From a5ca55c677df9579c28bbb10e1a19d1b483609aa Mon Sep 17 00:00:00 2001 From: Benny Baumann Date: Fri, 16 Jan 2015 18:53:59 +0100 Subject: bug 1360: Minor whitespace cleanup --- CommModule/client.pl | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) (limited to 'CommModule') diff --git a/CommModule/client.pl b/CommModule/client.pl index 99918a0..e38e6b7 100755 --- a/CommModule/client.pl +++ b/CommModule/client.pl @@ -1057,7 +1057,7 @@ sub HandleGPG() while ( $rowdata = $sth->fetchrow_hashref() ) { my %row=%{$rowdata}; - + my $prefix="gpg"; my $short=int($row{'id'}/1000); @@ -1074,14 +1074,13 @@ sub HandleGPG() my $crtname=$csrname; $crtname=~s/^\.\.\/csr/..\/crt/; $crtname=~s/\.csr$/.crt/; SysLog("New Layout: $crtname\n"); - #my $csrname = "../csr/gpg-".$row{'id'}.".csr"; #my $crtname = "../crt/gpg-".$row{'id'}.".crt"; - + SysLog "Opening $csrname\n"; - + my $crt=""; - + if(-s $csrname && open(IN,"<$csrname")) { undef $/; @@ -1107,12 +1106,12 @@ sub HandleGPG() { SysLog "Opening $crtname\n"; setUsersLanguage($row{memid}); - + my $date=OpenPGPextractExpiryDate($crtname); my %user=getUserData($row{memid}); - + $dbh->do("update `gpg` set `crt`='$crtname', issued=now(), `expire`='$date' where `id`='".$row{'id'}."'"); - + my $body = _("Hi")." $user{fname},\n\n"; $body .= sprintf(_("Your CAcert signed key for %s is available online at:")."\n\n", $row{'email'}); $body .= "https://www.cacert.org/gpg.php?id=3&cert=$row{id}\n\n"; -- cgit v1.2.1