Changes user.cfg to pisg.cfg. puts in 'use strict' and cleans up indenting.

scripts/addalias/addalias.pl

@@ -1,136 +1,145 @@
 #!/usr/bin/perl -w
 
+use strict;
 
 print "Content-Type: text/html\n\n";
 
 my %oldnicks;
-open(FILE, "<users.cfg") || die "File not found";
-$i = 0;
+my (@users, @nick);
+open(FILE, "<pisg.cfg") or die("Error opening file: $!");
+my $i = 0;
 while(<FILE>) {
-	if($_ =~ /^<user/) {
-		$users[$i] = $_;
-		chomp $users[$i];
-		$i++;
-	}
+    if($_ =~ /^<user/) {
+        $users[$i] = $_;
+        chomp $users[$i];
+        $i++;
+    }
 }
 close(FILE);
-$i=0;
+
+my ($alias, $link, $pic, $ignore, $search);
+$i = 0;
 foreach(@users) {
-	if($users[$i] =~ /nick=/) {
-		if($users[$i] =~ /nick="(\S+)"(.*)/) {
-			$nick[$i] = $1;
-			$oldnicks{$nick[$i]}{'nick'} = $nick[$i];
-		}
-		if($users[$i] =~ /alias="(\S+)".*/ or $users[$i] =~ /alias="(.*)"\s.* / or $users[$i] =~ /alias="(.*)">/ ) {
-			$alias = $1;
-			$oldnicks{$nick[$i]}{'alias'} = $alias;
-		}
-        if($users[$i] =~ /link="(\S+)"(.*)/) {
+    if($users[$i] =~ /nick=/) {
+        if ($users[$i] =~ /nick="(\S+)"(.*)/) {
+            $nick[$i] = $1;
+            $oldnicks{$nick[$i]}{'nick'} = $nick[$i];
+        }
+        if ($users[$i] =~ /alias="(\S+)".*/ or $users[$i] =~ /alias="(.*)"\s.* / or $users[$i] =~ /alias="(.*)">/ ) {
+            $alias = $1;
+            $oldnicks{$nick[$i]}{'alias'} = $alias;
+        }
+        if ($users[$i] =~ /link="(\S+)"(.*)/) {
             $link = $1;
-			$oldnicks{$nick[$i]}{'link'} = $link;
+            $oldnicks{$nick[$i]}{'link'} = $link;
         }
-        if($users[$i] =~ /pic="(\S+)"(.*)/) {
+        if ($users[$i] =~ /pic="(\S+)"(.*)/) {
             $pic = $1;
             $oldnicks{$nick[$i]}{'pic'} = $pic;
         }
         if($users[$i] =~ /ignore="(\S+)"(.*)/) {
             $ignore = $1;
-			if($ignore eq "y" or $ignore eq "Y") { 
-				$ignore = 1; 
-			} else {
-				$ignore = 0;
-			}
+            if($ignore eq "y" or $ignore eq "Y") { 
+                $ignore = 1; 
+            } else {
+                $ignore = 0;
+            }
             $oldnicks{$nick[$i]}{'ignore'} = $ignore;
         }
-	} else {
-		$search = 1;
-	}
-	$i++;
+    } else {
+        $search = 1;
+    }
+    $i++;
 }
 
-if($ENV{'REQUEST_METHOD'} eq 'GET') {  
-	$input = $ENV{'QUERY_STRING'} 
+my $input;
+if ($ENV{'REQUEST_METHOD'} eq 'GET') {  
+    $input = $ENV{'QUERY_STRING'} 
 } else {
-	read(STDIN, $input, $ENV{'CONTENT_LENGTH'}); 
+    read(STDIN, $input, $ENV{'CONTENT_LENGTH'}); 
 }
 
-@formfields = split(/&/, $input);
-foreach $field (@formfields) {
-	($name, $value) = split(/=/, $field);
-	$value =~ tr/+/ /;
-	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
-	$value =~ s/<!--(.|\n)*-->//g;
-	$form{$name} = $value;
-}
-if($form{'ignore'} eq "on") { $form{'ignore'} = 1; }
+my %form;
+my @formfields = split(/&/, $input);
+foreach my $field (@formfields) {
+    my ($name, $value) = split(/=/, $field);
+    $value =~ tr/+/ /;
+    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
+    $value =~ s/<!--(.|\n)*-->//g;
+    $form{$name} = $value;
+}
+
+if ($form{'ignore'} eq "on") { $form{'ignore'} = 1; }
+
 if($search ne "1") {
-	foreach (@nick) {
-		if($oldnicks{$_}{'nick'} eq $form{'nick'}) {
-			$found = 1;
-		}
-	}
-	if($found eq "1") { 
-		print "<p>The Nickname you've choosen is allready configured with the following settings:</p>\n";
-		print "<table>\n <tr>\n";
-		print "  <td>Nickname:</td>\n  <td>$oldnicks{$form{'nick'}}{'nick'}</td>\n";
-		print " </tr>\n";
-		if($oldnicks{$form{'nick'}}{'alias'}) { 
-			print " <tr>\n";
-			print "  <td>Aliases:</td>\n  <td>$oldnicks{$form{'nick'}}{'alias'}</td>\n";
-			print " </tr>\n";
-		}
-		if($oldnicks{$form{'nick'}}{'link'}) {
-			print " <tr>\n"; 
-			if($oldnicks{$form{'nick'}}{'link'} =~ /^http:|ftp:/) {
-				print "  <td>Link:</td>\n  <td><a href=\"$oldnicks{$form{'nick'}}{'link'}\">$oldnicks{$form{'nick'}}{'link'}</a></td>\n";
-			}
-			elsif ($oldnicks{$form{'nick'}}{'link'} =~ /(.*)@(.*).(.*)/) {
-				print "  <td>Link:</td>\n  <td><a href=\"mailto:$oldnicks{$form{'nick'}}{'link'}\">$oldnicks{$form{'nick'}}{'link'}</a></td>\n";
-			} else {
-				print "  <td>Link:</td>\n  <td>$oldnicks{$form{'nick'}}{'link'}</td>\n";
-			}
-			print " </tr>\n";
-		}
-		if($oldnicks{$form{'nick'}}{'pic'}) { 
-			print " <tr>\n";
-			print "  <td>Userpic:</td>\n  <td valign=\"middel\"><a href=\"$oldnicks{$form{'nick'}}{'pic'}\"><img src=\"$oldnicks{$form{'nick'}}{'pic'}\" border=\"0\"></a></td>\n";
-			print " </tr>\n";
-		}
-		if($oldnicks{$form{'nick'}}{'ignore'} eq "1") {
+    my $found;
+    foreach (@nick) {
+        if($oldnicks{$_}{'nick'} eq $form{'nick'}) {
+            $found = 1;
+        }
+    }
+    if($found eq "1") { 
+        print "<p>The Nickname you've choosen is allready configured with the following settings:</p>\n";
+        print "<table>\n <tr>\n";
+        print "  <td>Nickname:</td>\n  <td>$oldnicks{$form{'nick'}}{'nick'}</td>\n";
+        print " </tr>\n";
+        if($oldnicks{$form{'nick'}}{'alias'}) { 
+            print " <tr>\n";
+            print "  <td>Aliases:</td>\n  <td>$oldnicks{$form{'nick'}}{'alias'}</td>\n";
+            print " </tr>\n";
+        }
+        if($oldnicks{$form{'nick'}}{'link'}) {
+            print " <tr>\n"; 
+            if($oldnicks{$form{'nick'}}{'link'} =~ /^http:|ftp:/) {
+                print "  <td>Link:</td>\n  <td><a href=\"$oldnicks{$form{'nick'}}{'link'}\">$oldnicks{$form{'nick'}}{'link'}</a></td>\n";
+            }
+            elsif ($oldnicks{$form{'nick'}}{'link'} =~ /(.*)@(.*).(.*)/) {
+                print "  <td>Link:</td>\n  <td><a href=\"mailto:$oldnicks{$form{'nick'}}{'link'}\">$oldnicks{$form{'nick'}}{'link'}</a></td>\n";
+            } else {
+                print "  <td>Link:</td>\n  <td>$oldnicks{$form{'nick'}}{'link'}</td>\n";
+            }
+            print " </tr>\n";
+        }
+        if($oldnicks{$form{'nick'}}{'pic'}) { 
+            print " <tr>\n";
+            print "  <td>Userpic:</td>\n  <td valign=\"middel\"><a href=\"$oldnicks{$form{'nick'}}{'pic'}\"><img src=\"$oldnicks{$form{'nick'}}{'pic'}\" border=\"0\"></a></td>\n";
+            print " </tr>\n";
+        }
+        if($oldnicks{$form{'nick'}}{'ignore'} eq "1") {
             print " <tr>\n";
             print "  <td>Ignore:</td>\n  <td>Yes</td>\n";
             print " </tr>\n";
-		}
-		print "</table>\n";
-		print "<p>Please click <a href=\"javascript:history.back()\">here</a> to choose an other Nickname</p>\n";
-		exit(0);
-	}
+        }
+        print "</table>\n";
+        print "<p>Please click <a href=\"javascript:history.back()\">here</a> to choose an other Nickname</p>\n";
+        exit(0);
+    }
 }
 if(!$form{'nick'}) { 
-	print "You haven't entered a Nickname.. Your request will be ignored<br>";
-	print "Please click <a href=\"javascript:history.back()\">here</a> to choose an other Nickname";
-	exit(0);
+    print "You haven't entered a Nickname.. Your request will be ignored<br>";
+    print "Please click <a href=\"javascript:history.back()\">here</a> to choose an other Nickname";
+    exit(0);
 }
 if($form{'nick'} and !$form{'alias'} and !$form{'link'} and !$form{'pic'} and !$form{'ignore'}) {
-	print "You've entered a Nickname but haven't configured any settings for that Nickname<br>\n";
-	print "Please click <a href=\"javascript:history.back()\">here</a> to configure some settings for the nickname";
-	exit(0);
+    print "You've entered a Nickname but haven't configured any settings for that Nickname<br>\n";
+    print "Please click <a href=\"javascript:history.back()\">here</a> to configure some settings for the nickname";
+    exit(0);
 }
-$eintrag = "<user";
+my $eintrag = "<user";
 if($form{'nick'}) {
-	$eintrag = $eintrag . " nick=\"$form{'nick'}\"";
+    $eintrag = $eintrag . " nick=\"$form{'nick'}\"";
 }
 if($form{'alias'}) {
-	$eintrag = $eintrag . " alias=\"$form{'alias'}\"";
+    $eintrag = $eintrag . " alias=\"$form{'alias'}\"";
 }
 if($form{'link'}) {
-	$eintrag = $eintrag . " link=\"$form{'link'}\"";
+    $eintrag = $eintrag . " link=\"$form{'link'}\"";
 }
 if($form{'pic'}) {
-	$eintrag = $eintrag . " pic=\"$form{'pic'}\"";
+    $eintrag = $eintrag . " pic=\"$form{'pic'}\"";
 }
 if($form{'ignore'} eq "1") {
-	$eintrag = $eintrag . " ignore=\"y\"";
+    $eintrag = $eintrag . " ignore=\"y\"";
 }
 $eintrag = $eintrag . ">";
 
@@ -143,9 +152,9 @@ You Nickname was successfully added.:<br>\n
 HTML
 ;
 if($form{'alias'}) { 
-	print " <tr>\n";
-	print "  <td>Aliases:</td><td>$form{'alias'}</td>\n";
-	print " </tr>\n";
+    print " <tr>\n";
+    print "  <td>Aliases:</td><td>$form{'alias'}</td>\n";
+    print " </tr>\n";
 }
 if($form{'link'}) {
     print " <tr>\n";
@@ -159,9 +168,9 @@ if($form{'pic'}) {
 }
 if($form{'ignore'} eq "1") {
     print " <tr>\n";
-    print "  <td>Ignorieren:</td><td>Ja</td>\n";
+    print "  <td>Ignore:</td><td>Ja</td>\n";
     print " </tr>\n";
 }
-open(FILE, ">>users.cfg") || die "File not found";
+open(FILE, ">>pisg.cfg") or die("Error opening file: $!");
 print FILE "$eintrag\n";
 close(FILE);