[Talk-de] 04to05 als webservie (war: Migration auf 0.5 ist durch)

[hermann schwaerzler]

hallo

Frederik Ramm schrieb:

> Wenn irgendjemand etwas gutes tun will, kann er/sie dieses Perl- 
> Skript mal zu einem kleinen Webservice umbasteln, dem die Leute per  
> POST-Request ihre Files schicken koennen, das waere fuer diejenigen,  
> die einzelne OSM-Files herumliegen haben und kein Perl installieren  
> koennen/wollen, sicher eine tolle Sache.

ich bin dran. es gibt einen prototypen hier:

http://www.freirad.at/osm.html

04er osm-daten hinein-copy-und-pasten (ohne die erste zeile mit 
"<xml..."), auf submit klicken und die entstehende xml-datei speichern.

morgen vormittag (früher geht es leider nicht) baue ich es um auf 
file-upload und direkten download. ausser sonst jemand hat davor schon 
zeit.

hermann

ps: diff des skripts:

[hermann at dozer ~]$ diff -bu 04to05.pl www.freirad.at/cgi-bin/04to05.pl
--- 04to05.pl   2007-10-07 13:02:49.000000000 +0200
+++ www.freirad.at/cgi-bin/04to05.pl    2007-10-08 13:56:49.000000000 +0200
@@ -186,14 +186,20 @@
      },
  );

+use CGI qw/:standard/;
+#my $q = new CGI;
+
+print header(-type=>'text/xml' );
  print qq(<?xml version="1.0"?>\n<osm version="0.5" 
generator="04to05.pl">\n);

-if (@ARGV) {
-    $p->parsefile($_) for @ARGV;
-}
-else {
-    $p->parse( \*STDIN );
-}
+my $data = param('04data');
+
+#if (@ARGV) {
+#    $p->parsefile($_) for @ARGV;
+#}
+#else {
+    $p->parse( $data );
+#}

  for my $seg ( values %segs ) {
      my $tags;