diff -r bd470c2d0a0a -r 4027fd60ba3f htdocs/cgi-bin/status --- a/htdocs/cgi-bin/status Thu Feb 07 11:45:50 2013 +0100 +++ b/htdocs/cgi-bin/status Thu Feb 07 14:17:09 2013 +0100 @@ -2,6 +2,7 @@ use warnings; use strict; +use LWP::UserAgent; use CGI qw(-utf8); use CGI::Carp qw(fatalsToBrowser); use Net::SCP; @@ -27,28 +28,33 @@ close UUID; my $uuid = join(" .:;:. ",@uuid); my ($error, $farbe, $aerror); -if ($cgi->param("anummer") eq ''){ +if ($id eq ''){ $error="missing Key"; $farbe='rot'; } else{$farbe="black"} -if($cgi->param("anummer") !~ m/^[A-F0-9]{8}\-[A-F0-9]{4}\-[A-F0-9]{4}\-[A-F0-9]{4}\-[A-F0-9]{12}/){ +if($id !~ m/^[A-F0-9]{8}\-[A-F0-9]{4}\-[A-F0-9]{4}\-[A-F0-9]{4}\-[A-F0-9]{12}/){ $error="invalid Key"; $farbe="red"; $aerror="Format: 1A2B3C4B-5E6F-7G8H-9I0J-1K2L3M4N5O6P"; } -if ($cgi->param("anummer") =~ m/^[A-F0-9]{8}\-[A-F0-9]{4}\-[A-F0-9]{4}\-[A-F0-9]{4}\-[A-F0-9]{12}/){ +if ($id =~ m/^[A-F0-9]{8}\-[A-F0-9]{4}\-[A-F0-9]{4}\-[A-F0-9]{4}\-[A-F0-9]{12}/){ for(my $x=0;$x<=$#uuid;$x++){ chomp($uuid[$x]); - if ($cgi->param("anummer") eq $uuid[$x]) { + if ($id eq $uuid[$x]) { $farbe="black"; $error=''; - if (-e "/var/www/download/$id"){ + if (-e "/var/www/tmp/$id"){ last; } else{$error="Your order will be processed";} + my $url='http://192.168.0.144/cgi-bin/scp'; + my $ua=LWP::UserAgent->new; + my $req=HTTP::Request->new("POST",$url); + $req->content("id=$id"); + $ua->request($req); last; } else {$error="No such ID";} @@ -59,7 +65,7 @@ print CGI::header(-type => "text/html", -charset => "utf-8"); $tt->process("status.html", { farbe => $farbe, - anummer => $cgi->param("anummer"), + anummer => $id, error => $error, aerror => $aerror, test => $uuid, @@ -72,5 +78,3 @@ })or die $tt->error; exit 0; __END__ -my $scp=Net::SCP->new(); -$scp->scp("root\@192.168.0.144:/var/www/tmp/.$cgi->param('anummer')","/var/www/download/".$cgi->param("anummer"));