#!/usr/local/bin/perl #------------------------------------------------------# # 本程序為Yuzi工作室提供 # Yuzi論壇3000 免費版 v3.47 # # # 此程式由 台北抒情夜 中文化 # # 中文化版本 : v3.47b5 # 日期 : 2001.2.11 # 中文化作者 : 台北抒情夜站長 DC # # 台北抒情夜 http://www.ttt.idv.tw # #------------------------------------------------------# require "setup.cgi"; ###################### ## 以下部分不需修改 ## ###################### $cgiurl = "yhxiu.cgi"; $from = $ENV{'REMOTE_ADDR'}; ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday)= localtime(time+(3600*$time_hour)); $mon=$mon+1; if($mon <10){$mon="0".$mon;} if($mday<10){$mday="0".$mday;} if($hour<10){$hour="0".$hour;} if($min<10){$min="0".$min;} $year=$year+1900; $thistime=$year."-".$mon."-".$mday.".".$hour.":".$min.":".$sec; $lasttime=$year."-".$mon."-".$mday; ########## if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; } @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s///g; $value =~ s/\t/--/g; $value =~ s/>/>/g; $value =~ s//g; $FORM{'jiao'}=~s/\n/
/g; } ########## $username = $FORM{'username'}; $newpsd = $FORM{'newpsd'}; $userpsd = $FORM{'userpsd'}; $titles = $FORM{'titles'}; $comment = $FORM{'comment'}; $jiao = $FORM{'jiao'}; $mail = $FORM{'mail'}; $home = $FORM{'home'}; $city = $FORM{'city'}; $work = $FORM{'work'}; $love = $FORM{'love'}; $qm = $FORM{'qm'}; $sex = $FORM{'sex'}; $oicq = $FORM{'oicq'}; $tu = $FORM{'tu'}; $title = $FORM{'title'}; $menu = $FORM{'menu'}; $newpsd = $FORM{'newpsd'}; $photo = $FORM{'photo'}; $password = $FORM{'password'}; &GetCookies; if ($xgusername eq ""){$xgusername=$Cookies{username}}; if($menu eq "reguser"){®user; exit;} if($menu eq "reg"){®exit;} if($username eq ""){&bzgl;exit;} ® exit; ########## sub send_html { if ($has_send ne "1") { print "Content-type: text/html\n\n"; $has_send = "1"; } } ########## sub reg{ if ( -e "$filepath/yhzl/$username.cgi"){ open(PSD,"$filepath/yhzl/$username.cgi"); @lines=; close(PSD); foreach $line (@lines) { $line=~ s/\n//g; ($rdpassword,$rdname,$rdmail,$rdhome,$rdlasttime,$rdqm,$rdsex,$rdwork,$rdcity,$rdlove,$rdfy,$rdhf,$tu,$jiao,$iewin,$oicq,$photo)=split(/\t/,$line); $jiao=~s/
//g; $rdqm=~ s/<([^>]|\n)*>//g; if($userpsd ne "$rdpassword"){&errorview("您的密碼錯誤！");exit;} &send_html; print <用戶資料修改
　

用戶資料修改

● 帶*為必填

* 網上尊稱：
* 您的密碼：
您的新密碼： 　如果您不打算更改密碼，此處請留空！
* 您的Email地址：
性別： 男女
職業：
愛好：
OICQ：
您的主頁的URL：
個人簡介：
您的簽名檔：
EOF if ($YBBCodeAllow eq "is") { print <（支持 YBB 代碼） EOF } print <
您所在的省份：
請選擇您喜歡的人像：

[版主資料修改][用戶資料註冊][用戶資料修改][討論區列表][社區管理]

注意事項：
1、請遵守《中華民國網路安全保護管理辦法》的一切規定。
2、使用健康的話題，所以請不要涉及政治、宗教等敏感話題。
3、承擔一切因您的行為而直接或間接導致的民事或刑事法律責任。毀損他人名譽的不實言論，構成加重誹謗罪，可處2年以下有期徒刑.
免費論壇服務由飛喵喵空服網修正
EOF exit; } }else{ &errorview("對不起，此名字沒有在飛喵喵空服網註冊過!");exit; } } ########## sub reguser{ if(($userpsd eq "")||($username eq "")||($mail eq "")){&errorview("名字　密碼　信箱　必順要填寫的，請重新輸入！");exit;} if(!($mail=~ /.*\@.*\..*/)){&errorview("您的Email輸入錯誤！");exit(0);} if(length($qm) > 400 ){&errorview("您的簽名不能大於200個漢字！");exit;} if(length($jiao) > 400 ){&errorview("您的簡介不能大於200個漢字！");exit;} $qm=~ s/\[swf]//g;$qm=~ s/\[\/swf]//g; $qm=~ s/\[sound]//g;$qm=~ s/\[\/sound]//g; $qm = &YBBCode("$qm"); open(PSDD,"$filepath/yhzl/$username.cgi"); $line=; close(PSDD); $line=~ s/\n//g; ($rdpassword,$rdname,$rdmail,$rdhome,$rdlast,$rdqm,$rdsex,$rdwork,$rdcity,$rdlove,$fy,$hf,$tuu)=split(/\t/,$line); if($rdpassword ne $userpsd){&errorview("您的密碼錯誤！");exit;} if($newpsd ne ""){$userpsd = $newpsd} if($tu eq ""){$tu=$tuu}; open(PSD,">$filepath/yhzl/$username.cgi"); print PSD $userpsd."\t".$username."\t".$mail."\t".$home."\t".$rdlast."\t".$qm."\t".$sex."\t".$work."\t".$city."\t".$love."\t".$fy."\t".$hf."\t".$tu."\t".$jiao."\t".$ENV{'HTTP_USER_AGENT'}."\t".$oicq."\t".$photo; close(PSD); &send_html; print "\n"; print "祝 賀 您 ！ 您 已 經 成 功 更 改 ！\n"; print < EOF print "\n"; print "祝 賀 您 ！ 您 已 經 成 功 更 改 ！\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "

祝 賀 您 ！ 您 已 經 成 功 更 改 了 您 的 資 料 ！\n"; print "

\n"; print "
注冊姓名：$FORM{username}
您的密碼：$userpsd
性別：$FORM{sex}
您的信箱：$FORM{mail}
您的主頁：$FORM{home}
職業：$FORM{work}
愛好：$FORM{love}
省份：$FORM{city}
註冊時間：$lasttime.
\n"; print "\n"; print "
\n"; exit; } ######## sub bzgl{ &send_html; print < 用戶資料修改

用戶資料修改

您的姓名:
您的密碼:

──　找回密碼　──
請輸入您的用戶名:

[免費申請][版主資料修改][用戶資料註冊][用戶資料修改][論壇列表][社區管理]
免費論壇服務由 Yuzi工作室 修改飛喵喵空服網
EOF exit; } ######################### END OF SCRIPT #########################