Compare commits
4 commits
add-a-cont
...
main
Author | SHA1 | Date | |
---|---|---|---|
12fdf40cda | |||
3a3dae868e | |||
de3cf38c5d | |||
18ffb1b781 |
2 changed files with 16 additions and 9 deletions
|
@ -40,6 +40,9 @@ my $paranoid=1;
|
||||||
|
|
||||||
my $debug=0;
|
my $debug=0;
|
||||||
|
|
||||||
|
# number of attempts before giving up
|
||||||
|
my $warn_threshold = 3;
|
||||||
|
|
||||||
#my $serialport="/dev/ttyS0";
|
#my $serialport="/dev/ttyS0";
|
||||||
my $serialport="/dev/ttyUSB0";
|
my $serialport="/dev/ttyUSB0";
|
||||||
|
|
||||||
|
@ -734,7 +737,9 @@ sub HandleCerts($$)
|
||||||
|
|
||||||
SysLog "HandleCerts $table\n";
|
SysLog "HandleCerts $table\n";
|
||||||
|
|
||||||
my $sth = $dbh->prepare("select * from $table where crt_name='' and csr_name!='' and warning<3");
|
my $sth = $dbh->prepare(sprintf(
|
||||||
|
"select * from %s where crt_name='' and csr_name!='' and warning<%d", $table, $warn_threshold
|
||||||
|
));
|
||||||
$sth->execute();
|
$sth->execute();
|
||||||
#$rowdata;
|
#$rowdata;
|
||||||
while ( my $rowdata = $sth->fetchrow_hashref() )
|
while ( my $rowdata = $sth->fetchrow_hashref() )
|
||||||
|
@ -904,7 +909,7 @@ sub HandleCerts($$)
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
SysLog("Could not find the issued certificate. $crtname ".$row{"id"}."\n");
|
SysLog("Could not find the issued certificate. $crtname ".$row{"id"}."\n");
|
||||||
$dbh->do("update `$table` set warning=warning+1 where `id`='".$row{'id'}."'");
|
$dbh->do(sprintf("update %s set warning=warning+1 where id=%d", $table, $row{'id'}));
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
@ -1078,7 +1083,9 @@ sub sendRevokeMail()
|
||||||
|
|
||||||
sub HandleGPG()
|
sub HandleGPG()
|
||||||
{
|
{
|
||||||
my $sth = $dbh->prepare("select * from gpg where crt='' and csr!='' ");
|
my $sth = $dbh->prepare(sprintf(
|
||||||
|
"select * from gpg where crt='' and csr!='' and warning<%d", $warn_threshold
|
||||||
|
));
|
||||||
$sth->execute();
|
$sth->execute();
|
||||||
my $rowdata;
|
my $rowdata;
|
||||||
while ( $rowdata = $sth->fetchrow_hashref() )
|
while ( $rowdata = $sth->fetchrow_hashref() )
|
||||||
|
@ -1144,7 +1151,7 @@ sub HandleGPG()
|
||||||
sendmail($user{email}, "[CAcert.org] Your GPG/PGP Key", $body, "support\@cacert.org", "", "", "CAcert Support");
|
sendmail($user{email}, "[CAcert.org] Your GPG/PGP Key", $body, "support\@cacert.org", "", "", "CAcert Support");
|
||||||
} else {
|
} else {
|
||||||
SysLog("Could not find the issued gpg key. ".$row{"id"}."\n");
|
SysLog("Could not find the issued gpg key. ".$row{"id"}."\n");
|
||||||
#$dbh->do("delete from `gpg` where `id`='".$row{'id'}."'");
|
$dbh->do(sprintf("update gpg set warning=warning+1 where id=%d", $row{'id'}));
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
|
@ -1273,19 +1273,19 @@ function get_user_agreements($memid, $type=null, $active=null){
|
||||||
select 1 from `domaincerts` join `domains`
|
select 1 from `domaincerts` join `domains`
|
||||||
on `domaincerts`.`domid` = `domains`.`id`
|
on `domaincerts`.`domid` = `domains`.`id`
|
||||||
where `domains`.`memid` = '$uid'
|
where `domains`.`memid` = '$uid'
|
||||||
and `revoked`>NOW()";
|
and `domaincerts`.`revoked` > NOW()";
|
||||||
} else {
|
} else {
|
||||||
$query1 = "
|
$query1 = "
|
||||||
select 1 from `domaincerts` join `domains`
|
select 1 from `domaincerts` join `domains`
|
||||||
on `domaincerts`.`domid` = `domains`.`id`
|
on `domaincerts`.`domid` = `domains`.`id`
|
||||||
where `domains`.`memid` = '$uid'
|
where `domains`.`memid` = '$uid'
|
||||||
and `expire`>( SUBDATE( NOW(), 90 ))
|
and `domaincerts`.`expire` > ( SUBDATE( NOW(), 90 ))
|
||||||
and `revoked`<`created`";
|
and `domaincerts`.`revoked` < `domaincerts`.`created`";
|
||||||
$query2 = "
|
$query2 = "
|
||||||
select 1 from `domaincerts` join `domains`
|
select 1 from `domaincerts` join `domains`
|
||||||
on `domaincerts`.`domid` = `domains`.`id`
|
on `domaincerts`.`domid` = `domains`.`id`
|
||||||
where `domains`.`memid` = '$uid'
|
where `domains`.`memid` = '$uid'
|
||||||
and `revoked`>( SUBDATE( NOW(), 90 ))";
|
and `domaincerts`.`revoked` > ( SUBDATE( NOW(), 90 ))";
|
||||||
}
|
}
|
||||||
$res = mysql_query($query1);
|
$res = mysql_query($query1);
|
||||||
$r1 = mysql_num_rows($res)>0;
|
$r1 = mysql_num_rows($res)>0;
|
||||||
|
|
Loading…
Reference in a new issue