網路討論區主題為 $subject

名稱: \n"; print NEWFILE " E-Mail: \n"; if ($subject_line == 1) { if ($subject_line =~ /^/) { print NEWFILE "\n"; print NEWFILE " 主題: $subject

\n"; } else { print NEWFILE "\n"; print NEWFILE " 主題: $subject

\n"; } } elsif ($subject_line == 2) { print NEWFILE " 主題:

意見內容:\n"; print NEWFILE "

; close(MAIN); # DSC: Open Main Document and reconstruct # DSC: Look for tag and place new message here open(MAIN,">$basedir/$mesgfile") || die $!; # DSC: Note major editing here to put stuff in table # DSC if it's a new message...then add to the main page if ($followup == 0) { foreach $main_line (@main) { # DSC: If $main_line finds begin marker, insert new message here if ($main_line =~ //) { print MAIN "\n"; print MAIN "

$subject$name$date\n"; print MAIN "\n"; print MAIN "(0)\n"; } # DSC: If not then just write back the code else { print MAIN "$main_line"; } } } # DSC: If the new message is a Reply, then update the number of responses # DSC: Note that we are not interested in tag. else { foreach $main_line (@main) { $work = 0; if ($main_line =~ /(.*)(.*)<\/a><\/font><\/td>(.*)<\/font><\/td>(.*)<\/i><\/font><\/td>/) { $mes_num = $1; $orig_subject = $3; $orig_author = $4; $orig_date = $5; foreach $followup_num (@followup_num) { if ($followup_num == $mes_num) { print MAIN " $orig_subject$orig_author$orig_date\n"; } else { print MAIN "$main_line"; } } } elsif ($main_line =~ /$(.*)$/) { $response_num = $1; $num_responses = $2; $num_responses++; foreach $followup_num (@followup_num) { if ($followup_num == $response_num) { print MAIN "($num_responses)\n"; $work = 1; } } if ($work != 1) { print MAIN "$main_line"; } } else { print MAIN "$main_line"; } } } close(MAIN); } ############################################ # Add Followup Threading to Individual Pages sub thread_pages { foreach $followup_num (@followup_num) { open(FOLLOWUP,"$basedir/$mesgdir/$followup_num\.$ext"); @followup_lines = ; close(FOLLOWUP); open(FOLLOWUP,">$basedir/$mesgdir/$followup_num\.$ext"); foreach $followup_line (@followup_lines) { $work = 0; if ($followup_line =~ /
/) { $num_responses = $1; $num_responses++; print FOLLOWUP "\n"; print FOLLOWUP "\n"; print FOLLOWUP "\n"; print FOLLOWUP "
\n"; print FOLLOWUP "回應者 $num_responses\n"; print FOLLOWUP "
\n"; if ($email) { print FOLLOWUP "名稱: $name
\n"; } else { print FOLLOWUP "名稱: $name
\n"; } print FOLLOWUP "日期: $long_date
\n"; if ($message_url) { print FOLLOWUP "網頁: $message_url_title
\n"; } print FOLLOWUP "主題: $subject
\n"; print FOLLOWUP "
\n"; print FOLLOWUP "Reply:
$body
\n"; if ($message_img) { print FOLLOWUP "
\n"; } print FOLLOWUP "

\n"; print FOLLOWUP "
\n"; print FOLLOWUP "
\n"; } elsif ($followup_line =~ /<\/ul>/) { } else { print FOLLOWUP "$followup_line"; } } close(FOLLOWUP); } } sub return_html { print "Content-type: text/html\n\n"; print "訊息增加: $subject\n"; print " \n"; print " \n"; # print " $\"網路討論區標題\"$ \n"; print "
若回應文章後進入討論主題頁, 要按下Reload才能看到剛剛Reply的文章!!!
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
$\"返回主頁圖像\"$ 返回主頁
\n"; print "
訊息增加: $subject
\n"; print "\n"; print "回應資料已經被加入訊息版面中:
\n"; print "名稱: $name
\n"; print "E-Mail: $email
\n"; print "主題: $subject
\n"; print "意見內容:
\n"; print "$body
\n"; if ($message_url) { print "連結: $message_url_title
\n"; } if ($message_img) { print "圖像:
\n"; } print "增加日期: $date
\n"; print "\n"; } sub increment_num { open(NUM,">$basedir/$datafile") || die $!; print NUM "$num"; close(NUM); } sub error { $error = $_[0]; print "Content-type: text/html\n\n"; if ($error eq 'no_name') { print "$title 錯誤: 無名稱\n"; print "\n"; print "
\n"; # print " $\"Bulletin$
\n"; print "
錯誤: 無名稱
\n"; print "你忘記填入這'名稱'資料欄. 現在你必須重新填寫 . 這必須要填寫的資料欄是：名稱，主題和訊息.
\n"; &rest_of_form; } elsif ($error eq 'no_subject') { print "$title 錯誤: 無主題\n"; print "\n"; print "
\n"; # print " $\"Bulletin$
\n"; print "
錯誤: 無主題
\n"; print "你忘記填入這'主題'資料欄. 現在你必須重新填寫 . 這必須要填寫的資料欄是：名稱，主題和訊息.
\n"; &rest_of_form; } elsif ($error eq 'no_body') { print "$title 錯誤: 無訊息內容\n"; print "\n"; print "
\n"; # print " $\"Bulletin$
\n"; print "
錯誤: 無訊息內容
\n"; print "你忘記填入這'訊息'資料欄. 現在你必須重新填寫 . 這必須要填寫的資料欄是：名稱，主題和訊息.
\n"; &rest_of_form; } else { print "錯誤! 無法定義.\n"; } exit; } sub rest_of_form { print "\n"; if ($followup == 1) { print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; } print "名稱:
\n"; print "E-Mail:
\n"; if ($subject_line == 1) { print "\n"; print "主題: $FORM{'subject'}
\n"; } else { print "主題:
\n"; } print "意見內容:
\n"; print "\n"; $FORM{'body'} =~ s/</</g; $FORM{'body'} =~ s/>/>/g; $FORM{'body'} =~ s/"/"/g; print "$FORM{'body'}\n"; print "
\n"; print " \n"; print "Optional Link URL:
\n"; print "Link Title:
\n"; print "Optional Image URL:
\n"; print "
\n"; print "
\n"; if ($show_faq == 1) { print "[ 回應 ] [ Post Followup ] [ $title ] [ FAQ ]\n"; } else { print "[ 回應 ] [ Post Followup ] [ $title ]\n"; } print "\n"; } sub mailMe { open (MAIL, "|$mailprog -t"); print MAIL "To: $khsue_email\n"; print MAIL "From: cs342301作業系統討論區\n"; print MAIL "Subject: OS討論區所問問題\n\n"; print MAIL "發問者:$name\n"; print MAIL "內容:$body"; close (MAIL); open (MAIL, "|$mailprog -t"); print MAIL "To: $alix_email\n"; print MAIL "From: cs342301作業系統討論區\n"; print MAIL "Subject: OS討論區所問問題\n\n"; print MAIL "發問者:$name\n"; print MAIL "內容:$body"; close (MAIL); }

主題: $subject

訊息增加: $subject

錯誤: 無名稱

錯誤: 無主題

錯誤: 無訊息內容