# HG changeset patch # User Eric Schmalfuß (prakti) # Date 1360069296 -3600 # Node ID 73d8277147114ea7fc7f3ba138f49b32c32e355a # Parent 2f11b54a69fe5defa6bffca28c7fc2fbf096443b Changes diff -r 2f11b54a69fe -r 73d827714711 htdocs/cgi-bin/receive --- a/htdocs/cgi-bin/receive Tue Feb 05 08:05:54 2013 +0100 +++ b/htdocs/cgi-bin/receive Tue Feb 05 14:01:36 2013 +0100 @@ -4,6 +4,7 @@ use warnings; use CGI; use CGI::Carp qw(fatalsToBrowser); +use Net::SCP; my ( $Daten, $value, $name, $text, $anhang, $input, @@ -12,7 +13,6 @@ my %Formular; my @Formularfelder; -#$anhang = $ENV{'QUERY_STRING'}; read( STDIN, $Daten, $ENV{'CONTENT_LENGTH'} ); print $Daten; &verarbeiten; @@ -21,9 +21,12 @@ @Formularfelder = split( /&/, $Daten ); foreach my $Feld (@Formularfelder) { ( $name, $value ) = split( /=/, $Feld ); - $value=~ s/\<26\>/&/; $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; + $value =~ s/\<3D\>/\=/g; + $value =~ s/\<25\>/\%/g; + $value =~ s/\<2B\>/\+/g; + $value =~ s/\<26\>/\&/g; $Formular{$name} = $value; } } @@ -37,15 +40,29 @@ # Folgend Test-Script -open OUT,">test"; -print OUT "\@schluessel: @schluessel\n\@werte: @values\n\n"; -print OUT $Daten; +if ($Formular{req} ne ''){ + open (OUT, ">$uid.pem"); + print OUT "$Formular{req}"; + close OUT; +} + +open OUT,">$uid"; +print OUT "\@schluessel:\t=\t\@werte:\n"; +print OUT "------------\t\t-------\n\n"; +for(my $x=0;$x<=$#schluessel;$x++){ +print OUT "$schluessel[$x]\t\t=\t$values[$x]\n"; +} close OUT; +my $scp=Net::SCP->new(); +$scp->scp($uid,'root@192.168.0.138:/var/www/download/'); +system ("rm $uid"); +system ("rm $uid.pem"); +__END__ + # Test -$uid=$uid.'.html'; my $x=0; -open( OUT, ">/var/www/$uid" ); +open( OUT, ">/var/www/$uid.html" ); print OUT ( ' CGI-Feedback

CGI-Feedback vom Programm recieve

' @@ -60,6 +77,3 @@ } print OUT (''); close OUT; -sleep(180); -system "rm /var/www/$uid"; -__END__ 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 ( -'Download

Klicken 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 ("Download

Klicken 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 ( -"Download

Ihr 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 ("Download

Ihr 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 ("Download

Ihr 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; diff -r 2f11b54a69fe -r 73d827714711 htdocs/index.html --- a/htdocs/index.html Tue Feb 05 08:05:54 2013 +0100 +++ b/htdocs/index.html Tue Feb 05 14:01:36 2013 +0100 @@ -1,12 +1,14 @@ + + SSL-Zertifikat erneuern

Zertifikat abgelaufen?

Dann füllen Sie doch einfach das Formular aus.

Firma:
Mail:
Firmenstandort:
Test:
Request-Code:
Request-Code: (optional)			+