#!/usr/bin/perl ######################################################## #版權宣告 #程式名稱：TMmany 線上傳訊 #程式版本：1.2.3 #程式作者：TurtleMan #作者電郵：turtlemn@pchome.com.tw #特別說明： # 原始碼中域名轉換部分參考自 紅雪網頁 傅鴻明先生 所創作之「NSLOOKUP 1.00 網域名稱查詢程式」 # 另外cookie設定及表單資料處理參考自男丁格爾之「Male Nurse Guest」程式 # 感謝網友「艾雲」告知空白字元發送問題，已修正 # 感謝網友「zz」及「...」共同討論重複ip問題，不過目前尚無防止重複ip功能，下一版也許會加入 # # 經由問題人提出，加入主機時差調整，由玉面白狐新增之功能。 # 修改者:玉面白狐 網址:http://www.ok123.idv.tc 白狐帝都 #以上版權宣告，請勿刪除 ################設定開始################################## $datafile='many.txt';##紀錄資料的檔案位址 $cycle=300;##自動reload的週期(單位：秒) $bgcolor='F0FFF0';##背景顏色 $cgiurl='TMmany.cgi';##主程式檔名 $usehtmlpass='~!123!~';##(使用HTML的密碼)注意：必須為7個半形字元《置於兩個單引號中》發送訊息時加在字串最前面就可以使用html語法了 $listcolor='darkslateblue';##線上人數選單文字顏色 $listbgcolor='f0fff0';##線上人數選單背景顏色 $cmdlistcolor='red';##系統命令選單文字顏色 $cmdlistbgcolor='aliceblue';##系統命令選單背景顏色 $onlistcolor='green';##線上人名選單文字顏色 $onlistbgcolor='lightcyan';##線上人名選單背景顏色 $nickcount=14;##設定暱稱可輸入的最多字元數(全形字一字佔2字元) $time_miss = +0; # 時差調整 ################設定結束################################## $version='1.2.3'; $now=time(); $ip=$ENV{'REMOTE_ADDR'}; $options=""; $found=0; $count=0; %FORM=&get_form; ######################################################################### if($FORM{job} eq "setnick") { &setnick; } elsif($FORM{job} eq "chgnick") { &chgnick; } elsif($FORM{job} eq "wrtmsg") { &wrtmsg; } elsif($FORM{job} eq "savemsg") { &savemsg; } elsif($FORM{job} eq "show") { &show; } elsif($FORM{job} eq "chgmsgonoff") { &chgmsgonoff; } elsif($FORM{job} eq "readme") { &readme; } else { &main; } ######################################################################### sub main{ ######################################################################### open (FILE, $datafile);@DATAS=;close (FILE); open(FILE,">$datafile"); $mynick=$ip; foreach $line (@DATAS) { ($recip,$recadd,$recmsgonoff,$rectime,$recintime,$recnick,$recmsg)=split("∥",$line); chop $recmsg; if(($now-$rectime)<=($cycle+30)) { if($ip eq $recip) { $message=$recmsg; $found=1; $count++; print FILE "$recip∥$recadd∥$recmsgonoff∥$now∥$recintime∥$recnick∥\n"; $options=$options."