Changeset 11609

Timestamp:

05/03/11 20:20:04 (13 months ago)

Author:

OlivierRaginel

Message:

Item1518: perltidy

File:

• trunk/core/lib/Foswiki/Users/HtPasswdUser.pm (modified) (3 diffs)

trunk/core/lib/Foswiki/Users/HtPasswdUser.pm

@@ -183 +183 @@
 
             # implicit untaint OK; data from htpasswd
-            my ($hID, $hRealm, $hPasswd, $hEmail ) = $line =~ /^(.*?):(.*?):(.*?)(?::(.*))?$/;
-
-            if (! $hEmail && $hPasswd =~ m/@/ ) {   # Missing email and Password might contain an email address
+            my ( $hID, $hRealm, $hPasswd, $hEmail ) =
+              $line =~ /^(.*?):(.*?):(.*?)(?::(.*))?$/;
+
+            if ( !$hEmail && $hPasswd =~ m/@/ )
+            {    # Missing email and Password might contain an email address
                 $data->{$hID}->{pass} = $hRealm;
                 $data->{$hID}->{emails} = $hPasswd || '';
@@ -194 +196 @@
             }
         }
-        else {                                      # htpasswd format
+        else {    # htpasswd format
             if ( $line =~ /^(.*?):(.*?)(?::(.*))?$/ ) {
 
@@ -230 +232 @@
     my $db = shift;
 
-    unless (-e "$Foswiki::cfg{Htpasswd}{FileName}" ) {
-        # Item4544: Document special format used in .htpasswd for email addresses
-        open( my $readme, '>', "$Foswiki::cfg{Htpasswd}{FileName}.README" ) or
-          throw Error::Simple( $Foswiki::cfg{Htpasswd}{FileName}.
-                                 '.README open failed: '.$! );
-
-        print $readme "# Foswiki uses a specially crafted .htpasswd file format that should not be\n";
-        print $readme "# manipulated using a standard htpasswd utility or loss of registered emails might occur..\n";
-        print $readme "# (3rd-party utilities do not support the email address format used by Foswiki).\n";
+    unless ( -e "$Foswiki::cfg{Htpasswd}{FileName}" ) {
+
+       # Item4544: Document special format used in .htpasswd for email addresses
+        open( my $readme, '>', "$Foswiki::cfg{Htpasswd}{FileName}.README" )
+          or throw Error::Simple(
+            $Foswiki::cfg{Htpasswd}{FileName} . '.README open failed: ' . $! );
+
+        print $readme
+"# Foswiki uses a specially crafted .htpasswd file format that should not be\n";
+        print $readme
+"# manipulated using a standard htpasswd utility or loss of registered emails might occur..\n";
+        print $readme
+"# (3rd-party utilities do not support the email address format used by Foswiki).\n";
         print $readme "# \n";
-        print $readme "# More information available at: http://foswiki.org/System/UserAuthentication.\n";
-        close( $readme );
+        print $readme
+"# More information available at: http://foswiki.org/System/UserAuthentication.\n";
+        close($readme);
     }