writeumsg.cgi

非常优秀的一套办公系统

sub wmsg {
my $toid=shift;
my $ssid=shift;
my $ssname=shift;
my $ssemail=shift;
my $ssubject=shift;
my $scontent=shift;
my $sstime=shift;
my $ssmode=shift;
my $stemp1=shift;
my $stemp2=shift;
my $stemp3=shift;
my $msgid=time;
        &lock("${userhead}info/$toid.cgi");
	open(DATA,">>${userhead}info/$toid.cgi");
	print DATA "$msgid‖new‖$ssid‖$ssname‖$ssemail‖$ssubject‖$scontent‖$sstime‖$ssmode‖no‖$stemp2‖$stemp3‖end\n";
	close(DATA);
	chmod(0777,"${userhead}info/$toid.cgi");
        &unlock("${userhead}info/$toid.cgi");
}
sub dmsg {
my $msgid=shift;
	open(FILE, "${userhead}info/$uid.cgi");
	@msginfo=<FILE>;
	close(FILE);

        &lock("${userhead}info/$uid.cgi");
	open(DATA,">${userhead}info/$uid.cgi");
	foreach (@msginfo) {
($mid,$mgzt,$msid,$msname,$msemail,$msubject,$mcontent,$mstime,$msmode,$mtemp1,$mtemp2,$mtemp3,$end) = split(/\‖/,$_);
print DATA $_ if ($mid ne $msgid);
	}
	close(DATA);
	chmod(0777,"${userhead}info/$uid.cgi");
        &unlock("${userhead}info/$uid.cgi");
}
sub rmsg {
my $msgid=shift;
my $rmsg_mode=shift;
	open(FILE, "${userhead}info/$uid.cgi");
	@msginfo=<FILE>;
	close(FILE);

        &lock("${userhead}info/$uid.cgi");
	open(DATA,">${userhead}info/$uid.cgi");
	foreach (@msginfo) {
($mid,$mgzt,$msid,$msname,$msemail,$msubject,$mcontent,$mstime,$msmode,$mtemp1,$mtemp2,$mtemp3,$end) = split(/\‖/,$_);
if ($mid ne $msgid) {print DATA "$_";}
else {
  if ($rmsg_mode eq "re") {
print DATA "$mid‖old‖$msid‖$msname‖$msemail‖$msubject‖$mcontent‖$mstime‖$msmode‖yes‖$mtemp2‖$mtemp3‖end\n";
  }
  elsif ($rmsg_mode eq "read") {
print DATA "$mid‖old‖$msid‖$msname‖$msemail‖$msubject‖$mcontent‖$mstime‖$msmode‖$mtemp1‖$mtemp2‖$mtemp3‖end\n";
  }
}
	}
	close(DATA);
	chmod(0777,"${userhead}info/$uid.cgi");
        &unlock("${userhead}info/$uid.cgi");
}