#15mg data post limit
$CGI::POST_MAX = 1024 * 15000;
-my ($TR_STATUS,$LOGOUT,$ERROR) = ("",0,"");
+my ($RDS,$TR_STATUS,$LOGOUT,$ERROR) = ("","",0,"");
my $sys = `uname -n`;
my $db = Settings::fetchDBSettings();
my $cgi = Settings->cgi();
my $stmtCat = 'SELECT * FROM CAT ORDER BY ID;';
-my $status = "Ready for change!";
+my $status = $RDS = "Ready for change!";
my $cats;
my %hshCats = {};
cats();
syslog('info', 'Status:%s', $status);
syslog('info', 'Password change request for %s', $alias);
closelog();
- $TR_STATUS = qq(<tr><td colspan="3"><b><font color=red>$status</font></b></td></tr>);
-
+ $TR_STATUS = qq(<tr><td colspan="3"><b><font color=red>$status</font></b></td></tr>) if $status !~ m/$RDS/;
}
elsif ($change == 1){
}
}
}
- $status = "Updated Categories!";
+ $status = "Updated Categories!";$TR_STATUS = qq(<tr><td colspan="3"><b>$status</b></td></tr>);
}
else{processDBFix()}
$status = "Performed Database Fixes!";
}
-
+$TR_STATUS = qq(<tr><td colspan="3"><b>Status -> </b>$status</td></tr>)if $status !~ m/$RDS/;
}
catch{