You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
25 lines
474 B
Perl
25 lines
474 B
Perl
![]()
15 years ago
|
#!/usr/bin/perl -w
|
||
|
|
||
|
my %mysqltables=("gpg"=>"gpg","client"=>"emailcerts","server"=>"domaincerts","orgclient"=>"orgemailcerts","orgserver"=>"orgdomaincerts");
|
||
|
|
||
|
sub mysql_query($)
|
||
|
{
|
||
|
$dbh->do($_[0]);
|
||
|
}
|
||
|
|
||
|
my $aktiv=1;
|
||
|
|
||
|
foreach my $dir (("../csr","../crt"))
|
||
|
{
|
||
|
my $dirhandle;
|
||
|
opendir($dirhandle,"../csr");
|
||
|
while($_=readdir($dirhandle))
|
||
|
{
|
||
|
if(! -s "$dir/$_" and -f "$dir/$_" and !-d "$dir/$_")
|
||
|
{
|
||
|
print "Loesche $dir/$_\n";
|
||
|
unlink "$dir/$_";
|
||
|
}
|
||
|
}
|
||
|
}
|