--- 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"));