#„¬„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ #„«پ،(‚r‚r)‚bپ|‚a‚n‚`‚q‚cƒeƒ“ƒvƒŒپ[ƒg #„µ„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں #„«‹Lژ–‰و–ت‚جگف’èƒtƒ@ƒCƒ‹‚إ‚·پB #„«’تڈي‚ج‚g‚c‚l‚k‚ئ“¯‚¶ٹ´ٹo‚إ•زڈW‚·‚é‚±‚ئ‚ھڈo—ˆ‚ـ‚·پB #„«‚ب‚¨پA“r’†‚ة‚ ‚éپu$پ`پv‚ح‚»‚ê‚¼‚êƒvƒچƒOƒ‰ƒ€‚ة‚و‚ء‚ؤ”Cˆس‚ج•¶ژڑ—ٌ‚ة #„«’u‚«ٹ·‚¦‚ç‚ê‚ـ‚·پB #„¯„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ package DESIGN; #„¬„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ #„« ‹Lژ–•\ژ¦ƒwƒbƒ_پ[ #„¯„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ sub message_head { local *page = shift; #„ں„ں ƒyپ[ƒWڈî•ٌ print <<"<<<<<<<<<<<<<<<<<<<<<< ‚g‚c‚l‚k‚إ‚· >>>>>>>>>>>>>>>>>>>>>>"; $page{'next'} $page{'prev'} زئ°
- - - - - - - - <<<<<<<<<<<<<<<<<<<<<< ‚g‚c‚l‚k‚إ‚· >>>>>>>>>>>>>>>>>>>>>> } #„ں„ں„ں„ں‚±‚±‚ـ‚إ„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں #„¬„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ #„« ‹Lژ–•\ژ¦ƒtƒbƒ^پ[ #„¯„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ sub message_foot { print <<"<<<<<<<<<<<<<<<<<<<<<< ‚g‚c‚l‚k‚إ‚· >>>>>>>>>>>>>>>>>>>>>>"; - - - - - - - -
زئ°
<<<<<<<<<<<<<<<<<<<<<< ‚g‚c‚l‚k‚إ‚· >>>>>>>>>>>>>>>>>>>>>> } #„ں„ں„ں„ں‚±‚±‚ـ‚إ„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں #„¬„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ #„« ‹Lژ–•\ژ¦ #„¯„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ sub all { local *MSG = shift; #„ں„ں ‹Lژ– print <<"<<<<<<<<<<<<<<<<<<<<<< ‚g‚c‚l‚k‚إ‚· >>>>>>>>>>>>>>>>>>>>>>";
[$MSG{'no'}]$MSG{'subject'}
by $MSG{'name'}
[$MSG{'date'}]
$MSG{'body'} •شگM چيڈœ
<<<<<<<<<<<<<<<<<<<<<< ‚g‚c‚l‚k‚إ‚· >>>>>>>>>>>>>>>>>>>>>> } #„ں„ں„ں„ں‚±‚±‚ـ‚إ„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں #„¬„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ #„« ƒcƒٹپ[•\ژ¦ #„¯„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ sub tree { local *MSG = shift; #„ں„ں ‹Lژ– my $mode = shift; #„ں„ں ƒ‚پ[ƒh if ($mode) { print <<"<<<<<<<<<<<<<<<<<<<<<< ‚g‚c‚l‚k‚إ‚· >>>>>>>>>>>>>>>>>>>>>>"; $MSG{'subject'}
by $MSG{'name'}
[$MSG{'date'}]
<<<<<<<<<<<<<<<<<<<<<< ‚g‚c‚l‚k‚إ‚· >>>>>>>>>>>>>>>>>>>>>> } else { print <<"<<<<<<<<<<<<<<<<<<<<<< ‚g‚c‚l‚k‚إ‚· >>>>>>>>>>>>>>>>>>>>>>"; $MSG{'subject'} <<<<<<<<<<<<<<<<<<<<<< ‚g‚c‚l‚k‚إ‚· >>>>>>>>>>>>>>>>>>>>>> } } #„ں„ں„ں„ں‚±‚±‚ـ‚إ„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں #„¬„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ #„« ƒgƒsƒbƒN•\ژ¦ #„¯„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ sub topic { local *MSG = shift; #„ں„ں ‹Lژ– print <<"<<<<<<<<<<<<<<<<<<<<<< ‚g‚s‚l‚k‚إ‚· >>>>>>>>>>>>>>>>>>>>>>"; $MSG{'subject'} (•ش:$MSG{'reply'})
<<<<<<<<<<<<<<<<<<<<<< ‚g‚s‚l‚k‚إ‚· >>>>>>>>>>>>>>>>>>>>>> } #„ں„ں„ں„ں‚±‚±‚ـ‚إ„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں #„،„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں #„ ƒcƒٹپ[ٹش‚جƒXƒyپ[ƒX #„¤„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں sub tree_split { print <<"<<<<<<<<<<<<<<<<<<<<<< ‚g‚s‚l‚k‚إ‚· >>>>>>>>>>>>>>>>>>>>>>"; - - - - - - - - <<<<<<<<<<<<<<<<<<<<<< ‚g‚s‚l‚k‚إ‚· >>>>>>>>>>>>>>>>>>>>>> } #„ں„ں„ں„ں‚±‚±‚ـ‚إ„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں #„¬„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ #„« •شگM #„¯„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ sub follow { print <<"<<<<<<<<<<<<<<<<<<<<<< ‚g‚s‚l‚k‚إ‚· >>>>>>>>>>>>>>>>>>>>>>"; - - - - - - - -
•شگMپF <<<<<<<<<<<<<<<<<<<<<< ‚g‚s‚l‚k‚إ‚· >>>>>>>>>>>>>>>>>>>>>> } #„ں„ں„ں„ں‚±‚±‚ـ‚إ„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں #„¬„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ #„« “Y•tƒtƒ@ƒCƒ‹ڈî•ٌ #„¯„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ sub attach_info { my $r_file = shift; my $extension = 0; foreach (qw(.gif .png .jpg .bmp)) { if (rindex(${$r_file}{'name'}, $_) == (length(${$r_file}{'name'})-length($_))) { $extension = 1; break; } } my $url; if($extension) { # ‰و‘œ $url = ($CNF::mobile{'file'}{'url'})?($CNF::mobile{'file'}{'url'}):($CNF::place{'file'}{'url'}); } else { $url = $CNF::place{'file'}{'url'}; } return(\<<"<<<<<<<<<<<<<<<<<<<<<< ‚g‚c‚l‚k‚إ‚· >>>>>>>>>>>>>>>>>>>>>>"); ج§²ظ:${$r_file}{'name'} <<<<<<<<<<<<<<<<<<<<<< ‚g‚c‚l‚k‚إ‚· >>>>>>>>>>>>>>>>>>>>>> } #„ں„ں„ں„ں‚±‚±‚ـ‚إ„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں #„¬„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ #„« “Y•tƒtƒ@ƒCƒ‹چيڈœچد‚فڈî•ٌ #„¯„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ„ھ sub attach_delete_info { return(\<<"<<<<<<<<<<<<<<<<<<<<<< ‚g‚c‚l‚k‚إ‚· >>>>>>>>>>>>>>>>>>>>>>"); ج§²ظ: چيڈœچد
<<<<<<<<<<<<<<<<<<<<<< ‚g‚c‚l‚k‚إ‚· >>>>>>>>>>>>>>>>>>>>>> } #„ں„ں„ں„ں‚±‚±‚ـ‚إ„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں„ں 1; # $Id: msg.txt,v 1.1.1.2 2001/11/02 14:25:00 N.Hirai Exp $;