16 lines
369 B
Perl
16 lines
369 B
Perl
#!/bin/perl
|
|
use strict;
|
|
use mysql;
|
|
use CGI qw(:standard);
|
|
my $dbh = DBI->connect("DBI:mysql:database=c2;host=localhost",'root','', {RaiseError => 1});
|
|
|
|
print header();
|
|
|
|
print "<html>\n";
|
|
print "<head>\n";
|
|
print "</head>\n";
|
|
print "<body>\n";
|
|
$dbh->do("delete from alerts_log");
|
|
print "<br><br>Alerts_log geleert!\n";
|
|
print "</body>\n";
|
|
print "</html>\n"; |