init III
This commit is contained in:
16
Perl CGI C2/admin/del_alerts_log.pl
Normal file
16
Perl CGI C2/admin/del_alerts_log.pl
Normal file
@@ -0,0 +1,16 @@
|
||||
#!/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";
|
||||
Reference in New Issue
Block a user