#!/usr/local/bin/perl #ＺｏｏＣｈａｔプロフィール一覧表示 # 99/07/03 update(v2.1) by 普通 #============================================================= require './jcode.pl'; require './chat_lib.pl'; require './chat_env.cgi'; &env_init; $table1_bgc = ' BGCOLOR=#CCFFCC'; $table2_bgc = ' BGCOLOR=#FFFFFF'; $disp_cnt = 30; $ver = '2.1'; $room_count = @room_list; #部屋数セット #=============================================================== 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; &jcode'convert(*value,'sjis'); $value =~ s/｜/\|/g; $value =~ s/\n//g; $value =~ s/\r//g; $in{$name} = $value; } #=============================================================== if ($in{'req'}) {$req_cnt = $in{'req'};} else {$req_cnt = 0;} if ($func_pricq) {$icq_msg ='
  • ＩＣＱのＵＩＮ番号が登録されている場合はＩＣＱへのメッセージ送信が可能です。';} print "Content-type: text/html\n\n"; print "プロフィール一覧($title2）\n"; print<<"__EOF__"; $hp_bcolor

    プロフィール一覧($title）

  • 日付・時刻は最終更新日時を示しています。
  • お名前（ハンドル）をクリックすると登録詳細内容、『伝言・メール送信フォーム』が表\示されます。 $icq_msg __EOF__ #####フラッシュバージョン変更点##以下のスクリプトから$titleを削除しました########## if ($room_count eq 1) { print "
  • - Ｃｈａｔ室（入口）へ戻る。\n";} elsif ($in{'end'}) { print "
  • - Ｃｈａｔ室（入口）へ戻る。\n";} else { print "
  • - Ｃｈａｔ室（部屋選択）へ戻る。\n";} print<<"__EOF__";
  • プロフィール新規登録＆更新
  • キーワード：
    __EOF__ &ReadProfile(); if ($in{'func'} eq 'sel') { &prof_sel(); $pmf_count = $cnt; print "検索結果は$pmf_count人様です。

    \n"; } else { $pmf_count = @pmf_list; if ($req_cnt > 0) { splice(@pmf_list,0,$req_cnt); splice(@pmf_list,$disp_cnt); } else { splice(@pmf_list,$disp_cnt); } $wk_cnt1 = $req_cnt - $disp_cnt; $wk_cnt2 = $req_cnt + $disp_cnt; $wk_cnt3 = $req_cnt + 1; if ($wk_cnt2 < $pmf_count) {$wk_cnt4 = $disp_cnt;} else {$wk_cnt4 = $pmf_count - $req_cnt;} if (!($wk_cnt1 < 0)) { print "『前一覧へ』";} print "『現在表\示しているのは、$wk_cnt3人目から$wk_cnt4人様です。』"; if ($wk_cnt2 < $pmf_count) { print "『次一覧へ』";} print "
    現在の登録して頂いてるのは$pmf_count人様です。

    \n"; } foreach (@pmf_list) { next if (!($_)); ($pf_regno,$pf_udate,$pf_chatname,$pf_mail,$pf_url,$pf_turl,$pf_msg1,$pf_msg2,$pf_pass,$pf_yobi) = split("｜|\n"); print "\n"; if ($pf_msg1) { print "
    $pf_chatname\n"; if ($pf_url) { if ($pf_turl) {print "$pf_turl$pf_udate\n";} else {print "$pf_url$pf_udate\n";} print "$pf_msg1\n"; } else { print "$pf_udate
    $pf_msg1\n"; } } else { print "$pf_chatname\n"; if ($pf_url) { if ($pf_turl) {print "$pf_turl$pf_udate\n";} else {print "$pf_url$pf_udate\n";} } else { print "$pf_udate\n"; } } print "

    \n"; } if (!($in{'keyword'})) { if (!($wk_cnt1 < 0)) { print "『前一覧へ』";} print "『現在表\示しているのは、$wk_cnt3人目から$wk_cnt4人様です。』"; if ($wk_cnt2 < $pmf_count) { print "『次一覧へ』";} print "
    現在の登録して頂いてるのは$pmf_count人様です。

    \n"; } print<<"__EOF__";

    プロフィール登録・照会キット：Ver$ver
    Scrit written：普通のサラリーマン
    Support HomePage：ＺｏｏＣｈａｔ広場     __EOF__ exit(0); #キーワード検索 sub prof_sel { if (!($in{'keyword'})) {return;} $cnt = 0; foreach (@pmf_list) { ($pf_regno,$pf_udate,$pf_chatname,$pf_mail,$pf_url,$pf_turl,$pf_msg1,$pf_msg2,$pf_pass,$pf_yobi) = split("｜|\n"); if ($pf_chatname = /$in{'keyword'}/) {$cnt++;} elsif ($pf_url = /$in{'keyword'}/) {$cnt++;} elsif ($pf_turl = /$in{'keyword'}/) {$cnt++;} elsif ($pf_msg1 = /$in{'keyword'}/) {$cnt++;} elsif ($pf_msg2 = /$in{'keyword'}/) {$cnt++;} elsif ($pf_yobi = /$in{'keyword'}/) {$cnt++;} else {$_ = '';} } }