| 新聞製作管理 |
| 這只是預覽, 讓您看看有無任何錯誤發生, 您可以立刻回到上一頁重新編輯, 或是事後再使用新聞製作管理工具做修正 | ||||||
\n\n"; } elsif ($printing_type == 1) { print "
\n\n"; } else { print "
\n\n"; } print < |
| 發佈完成. 您可以手動修正事後的任何錯誤, 或使用新聞管理工具來編輯 |
| \n";
print " \n"; } @CURRENT_DATE = &FILE_READ(CURRENT_DATE, "$datadir/CURRENT_DATE.TXT"); @TOP_STORY = &FILE_READ(TOP_STORY, "$datadir/TOP_STORY.TXT"); @CURRENT_NEWS = &FILE_READ(CURRENT_NEWS, "$datadir/CURRENT_NEWS.TXT"); if ($headline_on) { @HEADLINE_FILE = &FILE_READ(HEADLINE_FILE, "$datadir/HEADLINE_FILE.TXT"); @HEADLINE_TOP = &FILE_READ(HEADLINE_TOP, "$datadir/HEADLINE_TOP.TXT"); } @ARCHIVED_NEWS = &FILE_READ(ARCHIVE, "$datadir/$special.TXT"); print "資料檔案: 讀取正常 \n"; $COUNT = 1; while($COUNT <= $NUMBER_OF_ARCHIVES) { if ($headline_on) { @TEMP_HEADARC = &FILE_READ(HEADARC, "$datadir/HEADLINE_ARC_$COUNT.TXT"); $TEMP2_HEADARC = join (/\n/,@TEMP_HEADARC); $HEADARCS[$COUNT] = $TEMP2_HEADARC; } @TEMP_ARCHIVES = &FILE_READ(TEMPFILE, "$datadir/ARCHIVE_$COUNT.TXT"); $TEMP2_ARCHIVE = join (/\n/,@TEMP_ARCHIVES); $ARCHIVES[$COUNT] = $TEMP2_ARCHIVE; $COUNT++; close(TEMPFILE); if ($headline_on) { close(HEADARC); } } print "昨日新聞: 共 $NUMBER_OF_ARCHIVES 個 \n"; if ($INPUT{'news'}) { &new_news; } elsif ($INPUT{'editing'}) { &editing; } elsif ($INPUT{'fixed_page'}) { &fixed_page; } elsif ($INPUT{'deleting'}) { &deleting; } print " |
\n"; } sub fixed_page { open (THIS, ">$datadir/$INPUT{'file_location'}"); print THIS "$INPUT{'FIXED_TEXT'}"; close(THIS); print "最後結束狀態: 新聞消息修改完成
\n"; } sub new_news { open(DATES, "$datadir/CURRENT_DATE.TXT"); @DATES =
\n"; if ("$TESTS" eq "$TEST") { &NEXT;} else { &AUTOARCHIVE_NEWS; &NEXT; } } sub AUTOARCHIVE_NEWS { open(CURRENT_TEST, ">$datadir/CURRENT_NEWS.TXT"); if ($headline_on) { open(HEAD_TEST1, ">$datadir/HEADLINE_FILE.TXT"); } open(BACKUP, ">$datadir/$special.TXT"); open(CURRENT_DATE, ">$datadir/CURRENT_DATE.TXT"); print CURRENT_DATE " $tanggal
\n"; close (CURRENT_DATE); if ($NUMBER_OF_ARCHIVES == 0) { print BACKUP "\t@CURRENT_DATE\n"; print BACKUP "\t@CURRENT_NEWS\n"; print BACKUP "@ARCHIVED_NEWS\n\n"; } else { if ($headline_on) { open(HEADLINE1, ">$datadir/HEADLINE_ARC_1.TXT"); print HEADLINE1 "@CURRENT_DATE\n"; print HEADLINE1 "@HEADLINE_FILE\n"; close(HEADLINE1); } open(BACK, ">$datadir/ARCHIVE_1.TXT"); print BACK "@CURRENT_DATE\n"; print BACK "@CURRENT_NEWS\n"; close(BACK); $COUNT = 2; while($COUNT <= $NUMBER_OF_ARCHIVES) { if ($headline_on) { open(HEADLINE2, ">$datadir/HEADLINE_ARC_$COUNT.TXT"); } open(BACKUP3, ">$datadir/ARCHIVE_$COUNT.TXT"); $TOPRINT = $COUNT-1; print BACKUP3 "$ARCHIVES[$TOPRINT]"; if ($headline_on) { print HEADLINE2 "$HEADARCS[$TOPRINT]"; } $COUNT++; if ($headline_on) { close(HEADLINE2); } close(BACKUP3); } print BACKUP "$ARCHIVES[$NUMBER_OF_ARCHIVES]\n\n"; print BACKUP "@ARCHIVED_NEWS\n\n"; } close (BACKUP); if ($headline_on) { close (HEAD_TEST1); } close (CURRENT_TEST); } sub NEXT { &UPDATE_NEWS; print "最後結束狀態: 新聞消息發佈完成
\n"; print "
\n"; } sub UPDATE_NEWS { ### CHECK FORM DATA TO SEE IF AUTO LINK IS ENABLED if ($INPUT{'autolink'} == 1) { &AUTO_LINK; print "自動轉換連結: 開啟
\n"; } ### OPEN COUNT FILE FOR TARGETING if (open (HEADCOUNT, "$datadir/HEADCOUNT.TXT")) { $HEADCOUNT =
\n"; print HEADLINE_TOP2 (@HEAD_TEST3); close (HEADLINE_TOP2); print "重大新聞標題: 本項新聞已加入重大新聞標題中
\n"; } else { #CHECK/READ DELAY FILE @HEAD_TEST = &FILE_READ(HEAD_TEST, "$datadir/HEADLINE_FILE.TXT"); open (HEADLINE, ">$datadir/HEADLINE_FILE.TXT"); print HEADLINE "$jam - $INPUT{'subject'}
\n"; print HEADLINE (@HEAD_TEST); close (HEADLINE); print "今日新聞標題: 本項新聞已加入今日新聞標題中
\n"; } close(HEADCOUNT); print "CURRENT TARGET: $HEADCOUNT
\n"; } ### WRITE NEWS TO TOPSTORY.TXT if ($INPUT{'document'} == 1) { #if (!(-z "$datadir/TOP_STORY.TXT")) { #@TOP_TEST = &FILE_READ(TOP_TEST, "$datadir/TOP_STORY.TXT"); #@CURRENT_TEST = &FILE_READ(CURRENT_TEST, "$datadir/CURRENT_NEWS.TXT"); #open (CURRENT_NEWS, ">$datadir/CURRENT_NEWS.TXT"); #print CURRENT_NEWS (@TOP_TEST); #print CURRENT_NEWS (@CURRENT_TEST); #close (CURRENT_NEWS); #} $LAST_FILE = "TOP_STORY.TXT"; @TOP_TEST = &FILE_READ(TOP_TEST, "$datadir/TOP_STORY.TXT"); open (UPDATING, ">$datadir/TOP_STORY.TXT"); print UPDATING "\n"; &PRINT_NEWS; print UPDATING (@TOP_TEST); } ### WRITE NEWS TO CURRENT_NEWS.TXT SHUFFLE ALL OTHER NEWS DOWN. else { $LAST_FILE = "CURRENT_NEWS.TXT"; @CURRENT_TEST = &FILE_READ(CURRENT_TEST, "$datadir/CURRENT_NEWS.TXT"); open (UPDATING, ">$datadir/CURRENT_NEWS.TXT"); print UPDATING "\n"; &PRINT_NEWS; print UPDATING (@CURRENT_TEST); } ### IF MAKE HEADLINE IS CHECKED, WRITE HEADLINE TO HEADLINE_FILE.TXT close(UPDATING); } sub PRINT_NEWS { if ($printing_type == 0) { print UPDATING "
$INPUT{'subject'}
\n"; print UPDATING "$INPUT{'story'}
\n"; if ($INPUT{'source'}) { print UPDATING "消息來源 : $INPUT{'name_source'}\n"; } print UPDATING "\n"; print "新聞發佈: 已新增至 $LAST_FILE 檔案中\n"; print "
| 您發佈的新聞內容 |
| \n";
print "$INPUT{'subject'} - $INPUT{'author'} @ $jam $standard_time \n"; print "$INPUT{'story'} \n"; if ($INPUT{'source'}) { print "消息來源 : $INPUT{'name_source'}\n"; } print " |
\n\n"; } elsif ($printing_type == 1) { print UPDATING "
$INPUT{'author'} @ $jam $standard_time - $INPUT{'subject'}
\n";
print UPDATING "$INPUT{'story'}
\n";
if ($INPUT{'source'}) {
print UPDATING "消息來源 : $INPUT{'name_source'}\n";
}
print UPDATING "
| 您發佈的新聞內容 |
| \n";
print " $INPUT{'author'} @ $jam $standard_time - $INPUT{'subject'} |
\n\n"; } else { print UPDATING "
$INPUT{'subject'}
\n"; print UPDATING "$INPUT{'story'}
\n"; if ($INPUT{'source'}) { print UPDATING "消息來源 : $INPUT{'name_source'}
\n"; } print UPDATING "發佈者 $INPUT{'author'}\n"; print "新聞發佈: 已新增至 $LAST_FILE 檔案中\n"; print "
| 您發佈的新聞內容 |
| \n";
print "$INPUT{'subject'} 發佈時間: $jam $standard_time \n"; print "$INPUT{'story'} \n"; if ($INPUT{'source'}) { print "消息來源 : $INPUT{'name_source'}\n"; } print "發佈者 $INPUT{'author'} |
\n\n"; } } sub AUTO_LINK { @AUTOLINK_DATA = &FILE_READ(AUTOLINK, $AUTOLINK_FILE); $AUTOLINK_TEMP = join(/\n/, @AUTOLINK_DATA); @AUTOLINK_INFO = split(/::/,$AUTOLINK_TEMP); $COUNT = 0; $STORY_DATA = join(/\n/, $INPUT{'story'}); while ($COUNT < @AUTOLINK_INFO) { $PATTERN = $AUTOLINK_INFO[$COUNT + 1]; $MATCH = $AUTOLINK_INFO[$COUNT]; $MATCH =~ s/_//g; $REPLACE = "$MATCH"; $STORY_DATA =~ s/$AUTOLINK_INFO[$COUNT]/$REPLACE/g; $COUNT = $COUNT + 2; } $INPUT{'story'} = $STORY_DATA; close(AUTOLINK_FILE); } sub checkcomplete { unless ($INPUT{'subject'}) { &error("您必須給予一個標題才能發佈"); } unless ($INPUT{'story'}) { &error("您忘記輸入新聞內容了?"); } if ($INPUT{'source'}) { unless ($INPUT{'name_source'}) { &error("您選擇了引入消息來源, 但忘了輸入來源名稱"); } unless ($INPUT{'url_source'}=~/\http:/) { &error("您選擇了引入消息來源, 但忘了輸入連結網址"); } } } sub printoptions { open (PASSWORD, "$cgidir/password.txt"); $password =
| ";
print " 在您使用新聞編輯工具之前, ";
print "您必須設定您的管理員密碼. ";
print " |
管理員密碼設定完成 現在就登入!
"; &Bottom; exit; } sub checkpassword { $log = $INPUT{'password'}; open (PASSWORD, "$cgidir/password.txt"); $password =
輸入管理員密碼: |
| 您目前使用的版本 | 最後更新的版本 | |
 .  .  |  .  .  | |
 | ||
如果您使用本程式有遇到任何問題, 請與網站管理員 $webmaster_name 連絡.
|
|
| ||||||||||||||
| 預覽/發佈 | |||||||||||||||
| 新聞管理 | |||||||||||||||
| |||||||||||||||
| 新聞製作管理工具 |
\n"; print "News Updater Scripts version $v1.$v2$v3 can be download FREE at King Richard Scripts\n"; print "
\n"; print "新聞製作管理工具 $v1.$v2$v3$cv1$cv2 中文版 您可以在 GoingFly OnLine 免費下載使用\n"; print "
發生了一個錯誤
錯誤在 :
$errors
"; &Bottom; exit; } sub grab_new_date { $time = time; ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime ($time); if ($min < 10) { $min = "0$min"; } if ($sec < 10) { $sec = "0$sec"; } $year = 1900+$year; $chineseday = $mday; #add Chinese display day @months1 = (January,February,March,April,May,June,July,August,September,October,November,December); $special = "$months1[$mon]$year"; if ($type_date == 0) { @days = (Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday); $hari = $days[$wday]; if ($mday < 10) { $mday = "0$mday"; } $bulan = $mon + 1; if ($bulan < 10) { $bulan = "0$bulan"; } $tanggal = "$hari - $bulan/$mday/$year"; } elsif ($type_date == 1) { &daysup; @days = (Sun,Mon,Tue,Wed,Thu,Fri,Sat); $hari = $days[$wday]; @months = (Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec); $bulan = $months[$mon]; $tanggal = "$hari - $bulan $mday, $year"; } elsif ($type_date == 2) { &daysup; @days = (Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday); $hari = $days[$wday]; @months = (January,February,March,April,May,June,July,August,September,October,November,December); $bulan = $months[$mon]; $tanggal = "$hari - $bulan $mday, $year"; } else { &daysup; @days = (Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday); my @days = qw!星期日 星期一 星期二 星期三 星期四 星期五 星期六!; #add on Chinese Display days $hari = $days[$wday]; @months = (January,February,March,April,May,June,July,August,September,October,November,December); my @months = qw!一 二 三 四 五 六 七 八 九 十 十一 十二!; #add on Chinese Display months $bulan = $months[$mon]; $chineseyear = ($year - 1911); $tanggal = "中華民國 $chineseyear 年 $bulan 月 $chineseday 日 - $hari"; } if ($type_time) { $ampm = "AM"; if ($hour eq 12) { $ampm = "PM"; } if ($hour eq 0) { $hour = "12"; } if ($hour > 12) { $hour = ($hour - 12); $ampm = "PM"; } if ($hour < 10) { $hour = "0$hour"; } if ($sec_activate) { $jam = "$hour\:$min\:$sec $ampm"; } else { $jam = "$hour\:$min $ampm"; } } else { if ($hour < 10) { $hour = "0$hour"; } if ($sec_activate) { $jam = "$hour\:$min\:$sec"; } else { $jam = "$hour\:$min"; } } } sub daysup { if ($mday == 1) { $mday = "$mdayst"; } elsif ($mday == 2) { $mday = "$mdaynd"; } elsif ($mday == 3) { $mday = "$mdayrd"; } else { $mday = "$mdayth"; } }