PISG/scripts/addalias/addalias.pl

#!/usr/bin/perl -w

use strict;

print "Content-Type: text/html\n\n";

my %oldnicks;
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++;
    }
}
close(FILE);

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+)"(.*)/) {
            $link = $1;
            $oldnicks{$nick[$i]}{'link'} = $link;
        }
        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;
            }
            $oldnicks{$nick[$i]}{'ignore'} = $ignore;
        }
    } else {
        $search = 1;
    }
    $i++;
}

my $input;
if ($ENV{'REQUEST_METHOD'} eq 'GET') {  
    $input = $ENV{'QUERY_STRING'} 
} else {
    read(STDIN, $input, $ENV{'CONTENT_LENGTH'}); 
}

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") {
    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);
    }
}
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);
}
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);
}
my $eintrag = "<user";
if($form{'nick'}) {
    $eintrag = $eintrag . " nick=\"$form{'nick'}\"";
}
if($form{'alias'}) {
    $eintrag = $eintrag . " alias=\"$form{'alias'}\"";
}
if($form{'link'}) {
    $eintrag = $eintrag . " link=\"$form{'link'}\"";
}
if($form{'pic'}) {
    $eintrag = $eintrag . " pic=\"$form{'pic'}\"";
}
if($form{'ignore'} eq "1") {
    $eintrag = $eintrag . " ignore=\"y\"";
}
$eintrag = $eintrag . ">";

print <<HTML
You Nickname was successfully added.:<br>\n
<table>
 <tr>
  <td>Nickname:</td><td>$form{'nick'}</td>
 </tr>
HTML
;
if($form{'alias'}) { 
    print " <tr>\n";
    print "  <td>Aliases:</td><td>$form{'alias'}</td>\n";
    print " </tr>\n";
}
if($form{'link'}) {
    print " <tr>\n";
    print "  <td>Link:</td><td><a href=\"$form{'link'}\">$form{'link'}</a></td>\n";
    print " </tr>\n";
}
if($form{'pic'}) {
    print " <tr>\n";
    print "  <td>Userpic:</td><td><img src=\"$form{'pic'}\"></td>\n";
    print " </tr>\n";
}
if($form{'ignore'} eq "1") {
    print " <tr>\n";
    print "  <td>Ignore:</td><td>Ja</td>\n";
    print " </tr>\n";
}
open(FILE, ">>pisg.cfg") or die("Error opening file: $!");
print FILE "$eintrag\n";
close(FILE);