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: [EMAIL PROTECTED] ~]$ 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; _______________________________________________ Talk-de mailing list [email protected] http://lists.openstreetmap.org/cgi-bin/mailman/listinfo/talk-de
