\n"; if ($user[6] != 1) { $msg_tmp=$msg_tmp."我記得上次您來的那天是 $time[0]年$time[1]月$time[2]日$time[3]時$time[4]分，來自 $user[5]！
\n"; } # Check if Personal Data Uodated if ( $today3 - $user[7] > $expireday*100 || $user[7] eq '尚未更新') { $msg_tmp=$msg_tmp."
注意!!\n您已經超過 $expireday 個月沒有更新您的個人資料！
為確保您的個人資料正確，請立即至 $listname4 確認您的個人資料！
\n";
}
# Check if today is user's birthday
@date = split(/\//, $user[8]);
if ($mon1 eq $date[1] && $mday1 eq $date[2]) {
$yearold = $year - $date[0];
$msg_tmp=$msg_tmp."
生日快樂！！ 如果我沒記錯的話，今天是您的 $yearold 歲生日唷∼";
}
# Check if User is a Message Receiver
sysopen(MSG,$msgreal,O_RDWR) || die "Can't Open $msgreal: $!\n";
flock(MSG,2);
@MSGS= \n";
$receive=true;
}
}
if ($receive) {
truncate(MSG,0) || die "Can't Truncate $msgreal: $!\n";
seek(MSG,0,0) || die "Can't Seek $msgreal: $!\n";
for ($n=0;$n<@MSGS;$n++) {
if ($MSGS[$n] =~ /^#/) {
print MSG $MSGS[$n];
next;
}
$mesg=$MSGS[$n];
chomp $mesg;
@mesgs=split(/&&/,$mesg);
if ($mesgs[0] eq $user[3]) {
next;
} else {
print MSG $MSGS[$n];
}
}
}
flock(MSG,8);
close(MSG);
$msg_tmp=$msg_tmp."
![](\"$imageurlbase/icon_new.gif\"){kind=icon}
");
} else {
push (@info,"$NEWS[$z]");
}
}
}
return @info;
}
#############
# Show_Main #
#############
sub show_main {
my ($msg_tmp)=@_;
my @news_info=&get_news;
&html_top("",$msg_tmp,"",@news_info);
# Display Output HTML Page
print <
HTML
# Check if someone's birthday is comming!!
# Read Passwd Data Base
open (PASSWD,"$passwdreal") || die "Can't Open $passwdreal: $!\n";
flock(PASSWD,1);
@PASSWDS=
|
MIDDLE1
# Read Board Data Base
$boardreal = "$boardrealbase/$COOKIE{'group'}.txt";
open (BOARD,"$boardreal") || die "Can't Open $boardreal: $!\n";
flock(BOARD,1);
@BOARDS= |
- \n";
print DEST "$FORM{'message'}\n";
if (@file_did_save) {
if (@was_too_big) {
print DEST "
![](\"$imageurlbase/icon_off.gif\"){kind=icon}
$filename ( 檔案大小超過 $max_size KB 限制 )\n"
} else {
$FORM{'message'} =~ s/
\n//g;
if (length($FORM{'message'}) > 30) {
$msg = substr($FORM{'message'},0,30)."...";
} else {
$msg = $FORM{'message'};
}
$photoreal = "$photorealbase/$COOKIE{'group'}.txt";
open (PHOTO,">>$photoreal") || die "Can't Open $photoreal: $!\n";
flock(PHOTO,2);
seek(PHOTO,0,2);
printf PHOTO "$today1&&$COOKIE{'name'} ( $COOKIE{'realname'} )&&$filename&&$newfilename&&%d&&$msg\n",$filesize/1024;
flock(PHOTO,8);
close(PHOTO);
printf DEST "
![](\"$imageurlbase/icon_on.gif\"){kind=icon}
$filename (%dKB)\n",$filesize/1024;
}
} elsif (@was_not_good_type) {
print DEST "
$filename ( 錯誤檔案類型 )\n"
} elsif(@did_not_save) {
print DEST "
$filename ( 系統發生不可預期錯誤 )\n"
}
print DEST "
\n"; if(@file_did_save && !@was_too_big) { $result_msg=$result_msg. "您欲分享的圖檔已經上傳完畢，系統將為您建立連結！
\n"; } if(@was_not_good_type) {$result_msg=$result_msg. "您欲分享的圖檔類型不符合要求，系統將忽略您上傳的檔案！
\n"; } if(@was_too_big) { $result_msg=$result_msg. "您欲分享的圖檔檔案大小超過 $max_size KB，系統將忽略您上傳的檔案！
\n"; } if(@did_not_save) {$result_msg=$result_msg. "您欲分享的圖檔無法儲存，系統將忽略您上傳的檔案！
請與 服務信箱 聯絡！
\n"; }
return $result_msg;
}
#############
# Show_Addr #
#############
sub show_addr {
@info=(
"地址電話依序為一筆永久資料（強制性）及兩筆目前資料（選擇性）。",
"若您想列印目前的通訊錄，建議使用 友善列印 以得到舒適的列印畫面。"
);
&html_top($listname2,"","",@info);
# Read Data Base
$datareal="$datarealbase/$COOKIE{'group'}.txt";
open (FILE,"$datareal") || die "Can't Open $datareal: $!\n";
flock(FILE,1);
@LINES=
\n
FRONT
# Show Quick Link
$count=1;
for ($i=0;$i<@LINES;$i++) {
if ($LINES[$i] =~ /^#/) { next; }
$user = $LINES[$i];
chomp $user;
$user =~ s/<br>/
/g;
@data = split(/&&/, $user);
if ($count==10) {
print "| $data[0] |
\n";
$count=1;
} else {
print "| $data[0] ";
$count++;
}
}
if ($count != 1) { print "|\n"; }
print "\n";
# Display Main Part
for ($i=0;$i<@LINES;$i++) {
if ($LINES[$i] =~ /^#/) { next; }
if ($color eq "#D8EFD8") {
$color = "#E6E8FA";
} else {
$color = "#D8EFD8";
}
$user = $LINES[$i];
chomp $user;
$user =~ s/<br>/
/g;
@data = split(/&&/, $user);
print "$data[0] \n";
print " $data[4] $data[5] $data[6] $data[7] $data[8] $data[9] $data[10] $data[11] $data[12] " if ($data[13] || $data[14]);
print " ![\"扣機號碼\"](\"$imageurlbase/icon_bbc.gif\"){kind=icon}
$data[13]" if $data[13];
print " ![\"手機號碼\"](\"$imageurlbase/icon_talker.gif\"){kind=icon}
$data[14]" if $data[14];
print " \n" if ($data[15]);
print " ![\"個人網頁\"](\"$imageurlbase/icon_ie.gif\"){kind=icon}
$data[15]\n" if $data[15];
print " \n" if ($data[16]);
if ($data[16]) {
@emails = split(/\;/,$data[16]);
foreach $em(@emails) {
print " ![\"電子信箱\"](\"$imageurlbase/icon_mail.gif\"){kind=icon}
$em\n";
}
}
print " \n" if ($data[17] || $data[18] || $data[19]);
print " ![\"ＩＣＱ\"](\"$imageurlbase/icon_icq.gif\"){kind=icon}
$data[17]" if $data[17];
print " ![\"ＭＳＮ\"](\"$imageurlbase/icon_msn.gif\"){kind=icon}
$data[18]" if $data[18];
print " ![\"Ｙａｈｏｏ\"](\"$imageurlbase/icon_yahoo.gif\"){kind=icon}
$data[19]" if $data[19];
print "最後更新日期：$data[20] $COOKIE{'gname'} $listname2
FRONT
# Display Main Part
for ($i=0;$i<@LINES;$i++) {
if ($LINES[$i] =~ /^#/) { next; }
$user = $LINES[$i];
chomp $user;
$user =~ s/<br>/
/g;
@data = split(/&&/, $user);
print "$data[0] \n";
print "永久 $data[4] $data[5] $data[6] 目前 $data[7] $data[8] $data[9] 目前 $data[10] $data[11] $data[12] " if ($data[13] || $data[14]);
print " BBC: $data[13]" if $data[13];
print " MobilePhone: $data[14]" if $data[14];
print " \n" if ($data[15]);
print " Homepage: $data[15]" if ($data[15]);
print " \n" if ($data[16]);
if ($data[16]) {
print " Email: ";
@emails = split(/\;/,$data[16]);
foreach $em(@emails) {
print " $em\n";
}
}
print " \n" if ($data[17] || $data[18] || $data[19]);
print " ICQ: $data[17]" if ($data[17]);
print " MSN: $data[18]" if ($data[18]);
print " Yahoo: $data[19]" if ($data[19]);
print "
$year年$mon月$mday日列印自 $nowsysurl