class.cgi

非常优秀的一套办公系统

@classinfo=&readdatafile("Class.DB");
print qq~
<table border="1" borderColorDark="#ffffff" borderColorLight="#222222"
        cellPadding="0" cellSpacing="0" width="100%">
~;
$bgcolor="#ffffff";$listmon=0;
for($i=0;$i<=$#classinfo;$i++) {
($remon,$rename,$ret1,$ret2,$ret3,$remust1,$remust2,$remust3,$remust4,$remust5,$remust6,$remust7,$remust8,$remust9,$remust10,$remust11,$remust12,$remust13,$remust14,$remust15,$remust16,$remust17,$remust18,$remust19,$remust20,$remust21,$last) = split(/\‖/,$classinfo[$i]);
  if ($rename) {
if ($listmon==0) {
  if ($bgcolor eq "#ffffff") {$bgcolor="#f6f6f6";}
  else {$bgcolor="#ffffff";}
  print "<tr bgColor=$bgcolor>";
}
print "<td height='19'><a href='$pageurl&mon=$remon'>□<font face=Verdana color=ff4400>[$remon]</font>$rename</a></td>";
$listmon++;
if ($listmon==3) {print "</tr>";$listmon=0;}
  }
}
if ($fields{'job'} eq "schomana") {
print "<tr><td width='100%' colspan='3' height=25><form><img src='images/openfold.gif' align=absmiddle> 当前操作数据库：<select name='selectDB' size='1' class='input' onchange=\"location.href='$indexurl?job=$fields{'job'}&mon=$fields{'mon'}&user=$fields{'user'}&page=$fields{'page'}$userinfo&DB='+this.form.selectDB.options[this.form.selectDB.selectedIndex].value;\">";
  opendir (DBDIR, "$DBdir"); 
  @dblist = readdir(DBDIR);
  closedir (DBDIR);
  @dblist = grep(/^\d+.cgi$/, @dblist);
  @dblist=(reverse sort{$a<=>$b}@dblist);
foreach (@dblist) {
open(DBFILE,"$datahead$_");
$dbconn=<DBFILE>;
close(DBFILE);
chomp($dbconn);
$dbconn=~s/\#|\?|\@|\&|\`|\|\\|\/|%|\n|\r|\f//g;
$dbname=$_; $dbname=~s/.cgi//;
  if ($dbname eq $DBname) {print "<option selected value='$dbname' style='Color:dd2222;'>$dbconn</option>\n";}
  else {print "<option value='$dbname'>$dbconn</option>\n";}
}
print "</select> <img src='images/ppbook.gif' align='absmiddle'></td></tr></form>";
}
print "</table>";
@classinfo=();
sub returnclass {
my $setclassmon=shift;
return if (!$setclassmon);
my @classinfo=&readdatafile("Class.DB");
  foreach (@classinfo) {
    ($remon,$rename,$last) = split(/\‖/,$_);
    return $_ if ($setclassmon eq $remon);
  }
}