?? 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 + -