Leser: 18
1
2
3
4
5
6
7
8
#!/usr/bin/perl -w
use CGI;
use DBI;
# Neues CGI-Objekt erzeugen
my $cgi_obj=new CGI;
use LWP::Simple;
my $query = new CGI;
get('http://www.server-b.de/mysqldumper1/msd_cron/crondump.pl?config=mysqldumper.conf.php');
2009-06-10T21:06:05 dumbo[...]
das ist der inhalt der datei:
Code: (dl )1
2
3
4
5
6
7
8#!/usr/bin/perl -w
use CGI;
use DBI;
# Neues CGI-Objekt erzeugen
my $cgi_obj=new CGI;
use LWP::Simple;
my $query = new CGI;
get('http://www.server-b.de/mysqldumper1/msd_cron/crondump.pl?config=mysqldumper.conf.php');
[...]
1 2 3 4 5 6
#!/usr/bin/perl use strict; use warnings; use LWP::Simple; get('http://www.server-b.de/mysqldumper1/msd_cron/crondump.pl?config=mysqldumper.conf.php');
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl
use strict;
use warnings;
use LWP::Simple;
my $content = get('http://www.server-b.de/mysqldumper1/msd_cron/crondump.pl?config=mysqldumper.conf.php');
my $Text = "Hallo Welt";
print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">', "\n";
print "<html><head><title>Hallo Welt</title></head><body>\n";
print "<h1>$Text</h1>\n";
print "<p>$content</p>\n";
print "</body></html>\n";