| Server IP : 208.122.213.31 / Your IP : 216.73.216.45 Web Server : Apache System : Linux msd6191.mjhst.com 4.18.0-553.137.1.el8_10.x86_64 #1 SMP Wed Jun 24 11:40:24 UTC 2026 x86_64 User : WHMCS_MIA_382 ( 1001) PHP Version : 7.4.33 Disable Function : NONE MySQL : ON | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : ON Directory : /home/httpd/html/lust-hero.net/public_html/cgi-bin/ucj/ |
Upload File : |
#!/usr/bin/perl
$ucjpath = "/local/home/a1625/domains/lust-hero.com/cgi-bin/ucj";
$ucjpass = "assa";
$perl = "/usr/bin/perl";
require "./cgi-lib.pl";
&SetVariables;
&ReadParse(*input);
if ($input{'ucjpass'} eq $ucjpass)
{
if ($input{'submit'} eq 'Backup'){&Backup;}
if ($input{'submit'} eq 'Settings'){&Settings;}
if ($input{'submit'} eq 'Database'){&Database;}
if ($input{'submit'} eq 'Restore Daily'){&RestoreDaily;}
if ($input{'submit'} eq 'Reset Daily'){&ResetDaily;}
if ($input{'edit'} eq "addnewuser") {&EditUser;}
if ($input{'edit'} ne '') {&EditUser;}
if ($input{'submit'} eq 'Delete User'){&DeleteUser;&MemberPage;}
if ($input{'submit'} eq 'Update User'){&UpdateUser;}
if ($input{'submit'} eq 'Update Cron'){&UpdateCron;}
if ($input{'submit'} eq 'Publish Links'){&PublishLinks;}
if ($input{'submit'} eq 'Reset Links'){&ResetLinks;&LinkReport;}
if ($input{'submit'} eq 'Members'){&MemberPage;}
if ($input{'submit'} eq 'Cron'){&CronSettings;}
if ($input{'submit'} eq 'HTML'){&HTMLPages;}
if ($input{'submit'} eq 'Add Page'){&AddPage;}
if ($input{'submit'} eq 'Update Page'){&UpdatePage;}
if ($input{'submit'} eq 'Delete Page'){&DeletePage;}
}
if ($input{'pass'} eq $ucjpass){&Settings;}
&Password;
sub SetVariables{
$ucjdata = "$ucjpath/data";
$ucjversion = '4.0.0';
print "Content-type: text/html\n\n";
$mbutton='<input type="submit" name="submit" value=';
$scell='<td><font face=Verdana size=0><center>';
$ecell='</td>';
$mcell="$ecell$scell";
}
sub Password{
print '<HTML><HEAD><TITLE>ZZ-CJ Admin Login</TITLE></HEAD>';
print '<BODY bgColor=#C0C0C0><FORM method=post><CENTER>';
print '<table border=1 width=450 height=50 cellpadding=3 cellspacing=0>';
print '<tr align=center bgColor=#C0C0C0><td height=50>';
print '<FONT SIZE=3 FACE=Verdana color=black>Enter Password<BR><INPUT NAME="pass" TYPE="text" SIZE="15" VALUE=""><br>';
print '<input type="submit" name="submit" value="Enter">';
print '</td></tr></table><br>';
print '</body></html>';
}
sub PrintPass { print "<INPUT TYPE=\"hidden\" NAME=\"ucjpass\" VALUE=\"$ucjpass\">"; }
sub MainButtons {
print "$mbutton\"Cron\"> $mbutton\"HTML\"> $mbutton\"Publish Links\">";
}
sub PublishLinks{
`$perl $ucjpath/top.cgi`;
$message="<br>Links Published";
&Settings;
}
sub UpdateCron {
open (UCJCRON,">$ucjdata/ucjtoptimes");
for ($i=0;$i<=23;$i++) {
$cron[$i]=$input{"cron-$i"};
print UCJCRON "$cron[$i]\n";
}
close (UCJCRON);
&CronSettings;
exit;
}
sub CronSettings {
print '<HTML><HEAD><TITLE>ZZ-CJ Admin</TITLE></HEAD>';
print '<BODY bgColor=#C0C0C0 text=#ffffff link=#FFFF00 alink=#FFFF00 vlink=#FFFF00><CENTER>';
print '<form method="POST">';
&PrintPass;
print '<TABLE BORDER=1 CELLSPACING=0 CELLPADDING=0 WIDTH=90% bgColor=#C0C0C0>';
print "<tr><td align=center><font face=Verdana size=3 color=black><b>Cron Settings</b></font></td></tr>";
print '<tr align=center><td>';
chomp(@cron=`cat $ucjdata/ucjtoptimes`);
print "<br><table>";
for ($i=0;$i<=11;$i++) {
$j=$i+12;
if ($cron[$i] eq 'y') {$checki="checked"} else {$checki=""}
if ($cron[$j] eq 'y') {$checkj="checked"} else {$checkj=""}
print "<tr><td><input type=checkbox name=cron-$i value=y $checki><font face=Verdana size=0>$i:59</td>";
print "<td><input type=checkbox name=cron-$j value=y $checkj><font face=Verdana size=0>$j:59</td></tr>";
}
print "</table>";
print '<br><INPUT NAME=submit TYPE=submit VALUE="Update Cron"><p>';
print '</tr></td><tr><td align=center>';
&MainButtons;
print "</td></tr></table>";
print '</form></body></html>';
exit;
}
sub Settings{
print '<HTML><HEAD><TITLE>ZZ-CJ Admin - Settings</TITLE></HEAD>';
print '<BODY bgColor=#C0C0C0 text=#ffffff link=#FFFF00 alink=#FFFF00 vlink=#FFFF00><FORM method=post><CENTER>';
&PrintPass;
print '<TABLE BORDER=1 CELLSPACING=0 CELLPADDING=0 WIDTH=90% bgColor=#C0C0C0>';
print '<tr><td align=center>';
print "<font face=Verdana size=3 color=black><b>Settings$message</b></font>";
print '</td></tr><tr><td align=center>';
&MainButtons;
print '</td></tr></table>';
print '</FORM></CENTER></BODY></HTML>';
exit
}
sub HTMLPages {
print '<HTML><HEAD><TITLE>ZZ-CJ Admin - HTML Pages</TITLE></HEAD>';
print '<BODY bgColor=#C0C0C0 text=#ffffff link=#FFFF00 alink=#FFFF00 vlink=#FFFF00><FORM method=post><CENTER>';
&PrintPass;
print '<TABLE BORDER=1 CELLSPACING=0 CELLPADDING=0 WIDTH=90% bgColor=#C0C0C0>';
print '<tr><td align=center>';
print '<font face=Verdana size=3 color=black><b>HTML Pages</b></font>';
print '</td></tr><tr><td align=center>';
chomp(@pages=`cat $ucjdata/ucjtop`);
print "<br><table border=1 cellpadding=0 cellspacing=0>";
$i=0;
foreach $page (@pages) {
print "<tr><td><input type=checkbox name=select-$i value=yes>";
print "$mcell <INPUT NAME=page-$i TYPE=text SIZE=20 VALUE=\"$page\"> $ecell</tr>";
$i++;
}
print "</table><p>";
print '<INPUT NAME=page TYPE=text SIZE=20 VALUE=""><p>';
print "$mbutton\"Add Page\">$mbutton\"Update Page\">$mbutton\"Delete Page\"><p>";
print '</td></tr><tr><td align=center>';
&MainButtons;
print '</td></tr></table>';
print '</FORM></CENTER></BODY></HTML>';
exit;
}
sub AddPage {
$page=$input{'page'};
open (HTML,">>$ucjdata/ucjtop");
print HTML "$page\n";
close (HTML);
&HTMLPages;
}
sub DeletePage {
chomp(@pages=`cat $ucjdata/ucjtop`);
open (HTML,">$ucjdata/ucjtop");
$i=0;
foreach $pages (@pages) {
if ($input{"select-$i"} ne "yes") {print HTML "$pages\n";}
$i++;
}
close (HTML);
&HTMLPages;
}
sub UpdatePage {
chomp(@pages=`cat $ucjdata/ucjtop`);
open (HTML,">$ucjdata/ucjtop");
$i=0;
foreach $pages (@pages) {
$page=$input{"page-$i"};
print HTML "$page\n";
$i++;
}
close (HTML);
&HTMLPages;
}