You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
52 lines
1.2 KiB
52 lines
1.2 KiB
#!/usr/bin/perl
|
|
#
|
|
# $Id: forgot.pl,v 1.2 2006/01/23 21:39:30 ddoughty Exp $
|
|
#
|
|
# Source File: forgot.pl
|
|
|
|
# Get config
|
|
require 'sitecfg.pl';
|
|
require 'testlib.pl';
|
|
|
|
&traceoutput("login.pl"); # TRACE IF ACTIVE
|
|
|
|
&app_initialize;
|
|
|
|
print "Content-Type: text/html\n\n";
|
|
|
|
$SESSION{'clid'} = $FORM{'clid'};
|
|
$SESSION{'lang'} = $FORM{'lang'};
|
|
&get_client_configuration();
|
|
&traceoutput("login.pl:$FORM{'clid'}:$FORM{'uid'}:$FORM{'pwd'}"); # TRACE IF ACTIVE
|
|
&setbrowsertype();
|
|
|
|
# Load Index.html
|
|
if ($FORM{'home'} eq 'client') {
|
|
|
|
if ($FORM{'uid'} eq '') {
|
|
return 0;
|
|
} else {
|
|
my $tmpfile = "cnd.$FORM{'clid'}";
|
|
my @cnds = &get_data($tmpfile);
|
|
foreach my $cnd (@cnds) {
|
|
chop ($cnd);
|
|
my @flds = split(/&/, $cnd);
|
|
if ($flds[0] eq $FORM{'uid'}) {
|
|
my $pw = $flds[1];
|
|
my $email = $flds[11];
|
|
$mmsubj = "Password for ".$CLIENT{'clnmc'};
|
|
$mmbody = "Dear $flds[3],\n";
|
|
$mmbody .= " Your password for the ";
|
|
$mmbody .= $CLIENT{'clnmc'};
|
|
$mmbody .= " Test Manager system is: $pw.\n";
|
|
&send_mail($mmautonotifyfrom, $email, $mmsubj, $mmbody);
|
|
}
|
|
}
|
|
@lines = &get_template("cindex");
|
|
}
|
|
} else {
|
|
@lines = &get_template("shome");
|
|
}
|
|
foreach $line (@lines) {
|
|
$line = &xlatline($line);
|
|
}
|
|
|