Ｐａｇｅ 4 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼旧BBS参考４ ユー 02/7/25(木) 12:35 ─────────────────────────────────────── ■題名 ： 旧BBS参考４ ■名前 ： ユー ■日付 ： 02/7/25(木) 12:35 -------------------------------------------------------------------------
| Ｑ FFA（改）Ver1.105でメッセージの全員送信を組み込ませて頂きましたが、 うまく作動しません Ａ Ver1.105はＩＤが暗号化されているためそのままではうまく動きません。 1.104の改造方法と照らし合わせながら見てください。 赤字の部分はVer.1.104と異なる部分です。 （タグの関係上コピペしても、エラーがでます） ---------------------------------------------------------- 【届いているメッセージ】表\示数<b>$max_gyo</b>件まで<br> EOM open(IN,"$message_file"); @MESSAGE_LOG = <IN>; close(IN); my $angou_kid = crypt("$kid","$ch_id_messe"); $hit=0;$i=1; foreach(@MESSAGE_LOG){ ($pid,$hid,$hname,$hmessage,$hhname,$htime) = split(/<>/); if($angou_kid eq "$pid"){ if($max_gyo < $i) { last; } print "<hr size=0><font color =\"red\"><small><b>$hnameさん</b> ＞ 「<b>$hmessage</b>」($htime)</small></font><br>\n"; $hit=1;$i++; }elsif($kid eq "$hid"){ if("$pid" eq "●●"){ print "<hr size=0><small><b>$knameさん(全員宛)</b> ＞ 「$hmessage」($htime)</small><br>\n"; $i++; } else { print "<hr size=0><small><b>$knameさんから$hhnameさんへ</b> ＞ 「$hmessage」($htime)</small>br>\n"; } }elsif("$pid" eq "AllUser"){ print "<hr size=0><font color =\"blue\"><small><b>$hnameさんから全員へ</b> ＞ 「<b>$hmessage</b>」($htime)</small></font><br>\n"; $i++; } } if(!$hit){ print "<hr size=0>$knameさん宛てのメッセージはありません\n"; } print "<hr size=0><p>"; ---------------------------------------------------------- ---------------------------------------------------------- foreach(@MESSAGE) { ($did,$dpass,$dsite,$durl,$dname) = split(/<>/); $angou_id = crypt("$did","$ch_id_messe"); if($in{'mesid'} eq "$angou_id") { last; } } $mes_max = @mes_regist; if($mes_max > $max) { pop(@mes_regist); } if ($in{'mesid'} eq "●●"){$dname = "▲▲";} unshift(@mes_regist,"$in{'mesid'}<>$in{'id'}<>$in{'name'}<>$in{'mes'}<>$dname<>$gettime<>\n"); open(OUT,">$message_file") or &error('ファイルを開けませんでした。'); ---------------------------------------------------------- |