diff -r 2f11b54a69fe -r 73d827714711 htdocs/cgi-bin/send_n
--- a/htdocs/cgi-bin/send_n Tue Feb 05 08:05:54 2013 +0100
+++ b/htdocs/cgi-bin/send_n Tue Feb 05 14:01:36 2013 +0100
@@ -5,10 +5,11 @@
use LWP::UserAgent;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
+use Net::SCP;
my (
- @feld, $uid, $cgi, $feld, $feld4, $feld1, $feld2,
- $feld3, $get, $url, $ua, $ub, $req
+ $uid, $cgi, $feld, $feld4, $feld1, $feld2,
+ $feld3, $get, $url, $ua, $ub, $req
);
my $x = 1;
$uid = `uuidgen`;
@@ -21,8 +22,8 @@
# des Web-Formulars #
#######################
-$feld1 = $cgi->param('Firma'); # FIXED
-$feld2 = $cgi->param('Name');
+$feld1 = $cgi->param('Firma');
+$feld2 = $cgi->param('Mail');
$feld3 = $cgi->param('Test');
$feld4 = $cgi->param('req');
$feld1 =~ s/\&/\<26\>/g;
@@ -64,45 +65,29 @@
$ua->request($req);
open( HTML1, ">/var/www/$uid" . "1.html" );
-print HTML1 (
-'DownloadKlicken Sie bitte auf den Link um ihre Datei zu Downloaden oder anzuzeigen.
Zum Speichern des Inhaltes klicken Sie den Link mit der rechten Maustaste an und wählen "Ziel speichern unter..."
Test
' );
+print HTML1 ("DownloadKlicken Sie bitte auf den Link um ihre Datei zu Downloaden oder anzuzeigen.
Zum Speichern des Inhaltes klicken Sie den Link mit der rechten Maustaste an und wählen \"Ziel speichern unter...\"
$uid
" );
close HTML1;
open( HTML, ">/var/www/$uid.html" );
-print HTML (
-"DownloadIhr Download steht in kürze bereit!
Sie werden in 10 sekunden automatisch Weitergeleitet.
Sollte die automatische Weiterleitung nicht funktionieren, klicken Sie bitte hier
"
-);
+print HTML ("DownloadIhr Download steht in kürze bereit!
Sie werden in 10 sekunden automatisch Weitergeleitet.
Sollte die automatische Weiterleitung nicht funktionieren, klicken Sie bitte hier.
Bitte beachten Sie, dass Ihr Download nur 5 minuten gültig ist.
");
-#print HTML ("DownloadIhr Download steht in kürze bereit!
Sie werden in 10 sekunden automatisch Weitergeleitet.
Sollte die automatische Weiterleitung nicht funktionieren, klicken Sie bitte hier
");
close HTML;
# Test
-#$get = HTTP::Request->new( "GET", '192.168.0.144/cgi-bin/'.$uid );
-
#######################
# Erstellen einer #
# Feedback-Seite zum #
@@ -120,10 +105,7 @@
),
-title => 'CGI-Feedback'
);
-
-# $cgi->h1 ('Testen wir mal'),"
",$cgi->i('Countdown: ');
$cgi->h1( 'CGI-Feedback vom Programm ', $cgi->i('send') );
-
foreach my $Feld (@Feldnamen) {
print $cgi->strong('Feldname: '),
$Feld,
@@ -132,16 +114,17 @@
}
print $cgi->i($uid), $cgi->end_html;
-my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =localtime(time);
-if ($min >= 55){
- $min +=5;
- $min -=60;
- $hour +=1;
+my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) =
+ localtime(time);
+if ( $min >= 55 ) {
+ $min += 5;
+ $min -= 60;
+ $hour += 1;
}
else {
- $min +=5;
+ $min += 5;
}
-open (WRITE, "|at $hour:$min") or die;
+open( WRITE, "|sudo at $hour:$min" ) or die;
print WRITE "rm /var/www/$uid*\n";
print WRITE "rm /var/www/download/$uid*\n";
close WRITE;