#!/usr/local/bin/perl $aliasdb="/var/spool/ifmail/ifdbm"; unshift(@INC,"/usr/local/etc/httpd/bin"); require "cgi-lib.pl"; print &PrintHeader; &ReadParse; unless (dbmopen(DB,$aliasdb,0770)) { print "cannot open $aliasdb: $!\n"; exit(1); } $action=$in{'action'}; $oldname=$in{'oldname'}; $newname=$in{'newname'}; $newaddr=$in{'newaddr'}; print "Edit Name-Address DB\n", "\n", "
\n", "

Edit Name-Address DB

\n"; if ($oldname) { $oldaddr=$DB{$oldname}; } if (($action eq "Clone") || ($action eq "Replace")) { $newaddr=$DB{$newname}; if ($newname eq $oldname) { print "New name matches old, nothing to change
\n"; } elsif ($newaddr) { print "New name already exists, remove it first
\n"; } elsif ($oldaddr eq "") { print "Old entry does not exist, nothing to change
\n"; } else { $DB{$newname}=$oldaddr; if ($action eq "Replace") { delete $DB{$oldname}; print "Entry for \"$oldname\" removed
\n"; } print "New entry for \"$newname\" has address \"$oldaddr\"
\n"; $newaddr=$oldaddr; } } elsif ($action eq "Update") { if ($newname ne $oldname) { print "New name does not match old, will not change address
\n"; } elsif ($newaddr eq $oldaddr) { print "New address is the same as old, nothing to change
\n"; } elsif ($oldaddr eq "") { print "Old entry does not exist, nothing to change
\n"; } else { $DB{$newname}=$newaddr; print "New entry for \"$newname\" now has address \"$newaddr\"
\n"; } } elsif ($action eq "Remove") { if ($newname) { delete $DB{$newname}; print "Entry for \"$newname\" deleted
\n"; $newname=""; $newaddr=""; } } else { $newaddr=$DB{$newname}; } dbmclose(DB); print "
\n"; print "\n"; print "\n"; print "
\n"; print "Name \n"; print "
\n"; print "
\n"; print "Address
\n"; print "
 \n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "
\n"; print "
\n", "
\n", "
\n", "www.fido7.ru\n", "\n";