Changeset 948

Timestamp:

08/02/24 11:08:31 (3 months ago)

Author:

Kris Deugau

Message:

/trunk

Minor style fiddles with interpolation and whitespace

File:

• trunk/cgi-bin/access-pwd-update.pl (modified) (3 diffs)

trunk/cgi-bin/access-pwd-update.pl

@@ -71 +71 @@
 open HTPASS, "<$passfile";
 
-my $sth = $ip_dbh->prepare("SELECT count(*) FROM users WHERE username = ?");
+my $sth         = $ip_dbh->prepare("SELECT count(*) FROM users WHERE username = ?");
 my $insert_user = $ip_dbh->prepare("INSERT INTO users (username) VALUES (?)");
-my $del_user = $ip_dbh->prepare("DELETE FROM users WHERE username = ?");
+my $del_user    = $ip_dbh->prepare("DELETE FROM users WHERE username = ?");
 
 while (<HTPASS>) {
@@ -82 +82 @@
   if ($data[0] == 0) {
     if ($doadd) {
-      $insert_user->execute($user) or print "error inserting $user: ".$DBI::errstr."\n";
+      $insert_user->execute($user) or print "error inserting $user: $DBI::errstr\n";
       print "new user: $user\n";
     } else {
@@ -102 +102 @@
     }
     if ($dodel) {
-      $del_user->execute($data[0]) or print "error deleting $data[0]: ".$DBI::errstr."\n";
+      $del_user->execute($data[0]) or print "error deleting $data[0]: $DBI::errstr\n";
       print "deleting $data[0] (acl $data[1])\n";
     } else {