major modifications to produce first (non-working) version of Web CGI

[webpac] / all2xml.pl

diff --git a/all2xml.pl b/all2xml.pl
index bf992a1..94e1a47 100755 (executable)
--- a/all2xml.pl
+++ b/all2xml.pl
@@ -12,7 +12,13 @@ my $config=XMLin(undef, forcearray => [ 'isis' ], forcecontent => 1);
 
 my %opts;
 
-getopts('d:m:q', \%opts);
+# usage:
+#      -d directory name
+#      -m multiple directories
+#      -q quiet
+#      -s run swish
+
+getopts('d:m:qs', \%opts);
 
 my $db_dir = $opts{d} || "ps"; # FIX
 
@@ -29,6 +35,7 @@ sub isis2xml {
        my $row = shift @_;
 
        my $xml;
+       $xml->{db_dir} = [ $db_dir ];   # FIX remove?
 
        sub isis_sf {
                my $row = shift @_;
@@ -95,12 +102,14 @@ sub isis2xml {
 
                }
 #print "--display:$display_data\n--index:$index_data\n";
-               $xml->{$field}->{display} .= $isis_map->tou($display_data)->utf8 if ($display_data);
-               $xml->{$field}->{index} .= unac_string($config->{isis_codepage},$index_data) if ($index_data);
+               #$xml->{$field."_display"} = $isis_map->tou($display_data)->utf8 if ($display_data);
+               #$xml->{$field."_index"} = unac_string($config->{isis_codepage},$index_data) if ($index_data);
+               $xml->{$field."_display" } = [ $isis_map->tou($display_data)->utf8 ] if ($display_data);
+               $xml->{$field."_index"} = [ unac_string($config->{isis_codepage},$index_data)." jabuka" ] if ($index_data);
        
        }
        if ($xml) {
-               return XMLout($xml, rootname => 'xml', noattr => 1 );
+               return XMLout($xml, rootname => 'xml', keeproot => 0, noattr => 0 );
        } else {
                return;
        }
@@ -168,9 +177,12 @@ foreach my $isis_db (@isis_dbs) {
                        }
 
                        if (my $xml = isis2xml($row)) {
-                               print "Path-Name: $isis_db#".$row->{mfn}."\n";
-                               print "Content-Length: ".(length($xml)+1)."\n";
-                               print "Document-Type: XML\n\n$xml\n";
+                               my $path = $isis_db;
+                               $path =~ s#$config->{isis_data}/*##g;
+                               my $out = "Path-Name: $path#".$row->{mfn}."\n";
+                               $out .= "Content-Length: ".(length($xml)+1)."\n";
+                               $out .= "Document-Type: XML\n\n$xml\n";
+                               print $out;
                        }
                }
        }