Viewing file:  changeacct.pl (3.69 KB) -rwxr-xr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
###########################################################################
# changeacct.pl - Let the user change their account information
###########################################################################
require "common.pl";
###########################################################################
# Print header
###########################################################################
if ($button eq $cancel_button) {
&cancel;
} elsif ($remip ne $fromip) {
&diffip;
}
&print_header;
if ($button eq $change_button) {
@username = split (/ /, $sessionid);
$username = $username[0];
###########################################################################
# Store the user's POP server
###########################################################################
dbmopen(%server, $serverdb, 0600) || die "Error opening db $serverdb";
$server{$username} = $popserver;
dbmclose(%server);
###########################################################################
# Store the user's POP username
###########################################################################
dbmopen(%popuser, $popdb, 0600) || die "Error opening db $popdb";
$popuser{$username} = $popusername;
dbmclose(%popuser);
###########################################################################
# Store the user's e-mail address
###########################################################################
dbmopen(%mail, $maildb, 0600) || die "Error opening db $maildb";
$mail{$username} = $email;
dbmclose(%mail);
###########################################################################
# Store a virtual domain e-mail entry
###########################################################################
# 990204 - jrtietsort - added check for sendmail configuration
if ($feature_forward == 1 && $dont_mess_with_sendmail != 1){
dbmopen(%usertable, $usertable, 0600) || die "Error opening db $usertable";
$newmail = $username . "\@" . $domain;
$usertable{$newmail} = $email;
dbmclose(%usertable);
}
###########################################################################
# Store the users header preference
###########################################################################
dbmopen(%head, $headerdb, 0600) || die "Error opening db $headerdb";
$head{$username} = $fullheader;
dbmclose(%head);
###########################################################################
# Store the user's button location preference
###########################################################################
dbmopen(%button, $buttondb, 0600) || die "Error opening db $buttondb";
$button{$username} = $butns;
dbmclose(%button);
###########################################################################
# Store the user's signature
###########################################################################
dbmopen(%sig, $sigdb, 0600) || die "Error opening db $sigdb";
$sig{$username} = $signature;
dbmclose(%sig);
###########################################################################
# Update the user's default From: address
###########################################################################
dbmopen(%def, $defaultdb, 0600) || die "Error opening db $defaultdb";
$def{$username} = $default;
dbmclose(%def);
###########################################################################
# Let the use know it worked
###########################################################################
print $accnt_change_info;
}
###########################################################################
# Done
###########################################################################
&print_options;
&update_sess;
&print_footer;
|