PAL.C.T MINI SHELL
#!/usr/bin/perl
# inbox_login.cgi
# Save inbox POP3 login and password
require './mailbox-lib.pl';
&ReadParse();
@folders = &list_folders();
$folder = $folders[$in{'folder'}];
# Validate inputs
&error_setup($text{'mail_loginerr'});
$in{'user'} =~ /\S/ || &error($text{'save_euser'});
$folder->{'user'} = $pop3{'user'} = $in{'user'};
$folder->{'pass'} = $pop3{'pass'} = $in{'pass'};
if ($folder->{'type'} == 2) {
# Try POP3 login
@err = &pop3_login($folder);
if ($err[0] == 0) {
&error($err[1]);
}
elsif ($err[0] == 2) {
&error(&text('save_elogin', $err[1]));
}
else {
&pop3_logout($err[1], 1);
}
# Save inbox .pop3 file
&write_file("$user_module_config_directory/inbox.pop3", \%pop3);
chmod(0700, "$user_module_config_directory/inbox.pop3");
}
else {
# Try IMAP login
$folder->{'mailbox'} = $pop3{'mailbox'} = undef;
@err = &imap_login($folder);
if ($err[0] == 0) {
&error($err[1]);
}
elsif ($err[0] == 2) {
&error(&text('save_elogin2', $err[1]));
}
elsif ($err[0] == 3) {
&error(&text('save_emailbox', $err[1]));
}
else {
&imap_logout($err[1], 1);
}
# Save inbox .imap file
&write_file("$user_module_config_directory/inbox.imap", \%pop3);
chmod(0700, "$user_module_config_directory/inbox.imap");
}
&redirect("index.cgi?folder=$in{'folder'}");
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`