📄 scudlib.pl
字号:
#!/usr/bin/perl
# 通用函数
sub getmytime
{
$mytime_diff=$_[0];
$mytime_format=$_[1]; #年月日,年月日小时分钟 ,小时分钟
$time = time;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time+$mytime_diff*3600);
$mon++;
$year += 1900;
if ($mytime_format eq 1){
$now = "$year\/$mon\/$mday";}
elsif($mytime_format eq 2){
$now = "$year\/$mon\/$mday $hour:$min";}
elsif($mytime_format eq 3){
$now = "$hour:$min";}
}
########## 发送邮件子程序 ##########
sub write_email {
$recipient =$_[0];
$frommail =$_[1];
$subject =$_[2];
$message =$_[3];
open(MAIL, "|$mail_prog -t") || &error("发送邮件错误");
print MAIL "To: $recipient \n";
print MAIL "From: $frommail\n";
print MAIL "Subject: $subject\n";
print MAIL $message;
print MAIL "\n\n";
close (MAIL);
}
########## HTML header ##########
sub Header {
local($mystyle,$myprgname,$myheader)=@_;
print qq~<HTML><HEAD><TITLE>$myprgname</TITLE>$mystyle</HEAD>\n
~;
print "<body bgcolor=$prg_bgcolor><center>";
print "$myheader";
print "</center><br>\n<center>";
}
########## Html FOOTER ##########
sub Footer {
local($myfooter)=@_;
print "$myfooter";
print <<EOF;
</BODY></HTML>
EOF
}
# 需要修改
sub myhint {
$myhint = $_[0] ;
&Header($prg_style,$prg_name,$prg_header);
print qq~
<table border=0 align=center bgcolor=$table_color width=$table_width>
<tr><td align=center>$myhint<br></td></tr></table>
~;
&Footer($prg_footer);
exit;
}
# 需要修改
sub ehint {
print "Content-type: text/html\n\n";
$error = $_[0] ;
&Header($prg_style,$prg_name,$prg_header);
print <<EOF;
<table cellpadding=4 border=0 cellspacing=0 align=center bgcolor=$table_color width=$table_width>
<tr><td>
<b>抱歉,你填写的信息出现错误<br><br>
<font color=#ff0000>信息提示如下:</font></b><br> $error<br></td></tr></table>
EOF
&Footer($prg_footer);
exit;
}
# 需要修改
sub error {
print "Content-type: text/html\n\n";
$error = $_[0] ;
&Header($prg_style,$prg_name,$prg_header);
print <<EOF;
<table cellpadding=4 border=0 cellspacing=0 align=center bgcolor=$table_color width=$table_width>
<tr><td>
<b>抱歉,系统正在维护或者出现问题,请稍后再访问,谢谢<br><br>
如果你认为系统出现了错误,请通知管理员<a href="mailto:$site_mail">$site_mail</A> 系统发生了错误.<br><br>
错误: <i>$error -- $!</i><br><br></td></tr></table>
EOF
&Footer($prg_footer);
exit;
}
# 结束
1;⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -