1 files changed, 0 insertions, 139 deletions
diff --git a/lib/WebCoso/Step/ReST/ToXml.pm b/lib/WebCoso/Step/ReST/ToXml.pm
deleted file mode 100644
index f5cf5a9..0000000
--- a/lib/WebCoso/Step/ReST/ToXml.pm
+++ /dev/null
@@ -1,139 +0,0 @@
-package WebCoso::Step::ReST::ToXml;
-use strict;
-use warnings;
-use base 'WebCoso::Step';
-use Class::Std;
-use Inline 'Python';
-use XML::LibXML;
-use Encode;
-
-{
-
-=head2 Che fa
-
-prende i {language=>'quelchece'}->rstdoc, li passa a docutils, prende
-l'xml, lo passa al parser, e salva il dom in
-{language=>'quelchece'}->xmldom
-
-suppone venga tutto da un solo file
-
-Fa tutto alla prima passata, e raccatta un po' di meta
-
-=cut
-
-my %srckey_of :ATTR(:init_arg<from> :get<srckey> :default<rstdoc>);
-my %dstkey_of :ATTR(:init_arg<to> :get<dstkey> :default<xmldom>);
-
-my $xml_parser=XML::LibXML->new();
-$xml_parser->load_ext_dtd(0);
-$xml_parser->clean_namespaces(1);
-
-sub process {
-    my ($self,$resource,$stage)=@_;
-
-    return unless $stage eq 'meta';
-
-    my ($src_path)=$resource->get_axis_values('filename');
-
-    my $srckey=$self->get_srckey();
-    my $dstkey=$self->get_dstkey();
-
-    my ($rst_doc,$xml_dom);
-    $rst_doc=$resource->get_property_string($srckey);
-    if (defined $rst_doc) { # monolingua
-        my $dom=rst2xml($rst_doc,$src_path);
-        $resource->set_property(
-            $dstkey,
-            $dom,
-        );
-        $self->_set_meta($resource,$dom);
-    }
-    else { # multilingua
-        my @langs=$resource->get_axis_values('language');
-        for my $cur_lang (@langs) {
-            $rst_doc=$resource->get_property_string({language=>$cur_lang},$srckey);
-            my $dom=rst2xml($rst_doc,$src_path,$cur_lang);
-            $resource->set_property(
-                {language=>$cur_lang},
-                $dstkey,
-                $dom,
-            );
-            $self->_set_meta($resource,$cur_lang,$dom);
-        }
-    }
-
-    return;
-}
-
-{
-my %docinfo_fields=(
-    title => '/document/title',
-    subtitle => '/document/subtitle',
-    author => '/document/docinfo/author|/document/docinfo/authors/author',
-    version => '/document/docinfo/version',
-    status => '/document/docinfo/status',
-    date => '/document/docinfo/date',
-    creation_date => '/document/docinfo/field[field_name="CreationDate"]/field_body',
-);
-my $collections='/document/docinfo/field[field_name="Collection"]/field_body|/document/docinfo/field[field_name="Collections"]/field_body//list_item';
-sub _set_meta {
-    my ($self,$res,$lang,$dom)=@_;
-
-    if ($dom) { # 4 parametri
-        $lang={language=>$lang};
-    }
-    else { # 3 parametri: monolingua
-        $dom=$lang;
-        $lang={};
-    }
-
-    for my $meta (keys %docinfo_fields) {
-        my @nodes=$dom->findnodes($docinfo_fields{$meta});
-        next unless @nodes;
-        @nodes=map {$_->textContent()} @nodes;
-        if (@nodes==1) {
-            $res->set_property($lang,$meta,$nodes[0]);
-        }
-        else {
-            $res->set_property($lang,$meta,[@nodes]);
-        }
-    }
-
-    # per questo serve poter chiamare coll e res per nome TODO
-    #my @collections=$dom->findnodes($collections);
-    #return unless @collections;
-    #@collections=map {$_->textContent()} @collections;
-
-    #$res->add_coll($_) for @collections;
-
-    return;
-}
-}
-
-sub rst2xml {
-    my ($rst_string,$source_path,$language)=@_;
-
-    $rst_string=Encode::encode('utf-8',$rst_string);
-    my $xml_string=_rst2xml($rst_string,$source_path,'en');
-    $xml_parser->base_uri($source_path);
-    return $xml_parser->parse_string($xml_string);
-}
-
-}
-1;
-__DATA__
-__Python__
-
-import locale
-import docutils.core
-
-def _rst2xml(source,source_path,language):
-    return docutils.core.publish_string(
-        source,source_path=source_path,
-        writer_name='xml',
-        settings_overrides={
-            'input_encoding':'utf-8',
-            'output_encoding':'utf-8',
-            'language_code':language,
-        },
-    )