htdocs/cgi-bin/status
changeset 12 4027fd60ba3f
parent 11 bd470c2d0a0a
--- 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"));