「next if(!$Title && !$Message && (!$Admin || $mkHTML));」という行（２箇所）の下に、

next if(($year > 2900) && (!$Admin || $mkHTML));

をそれぞれ追加。
（※２箇所といっても半角スペース有無の違いがあるので、
　「!$Title && !$Message && (!$Admin || $mkHTML)」とかで検索するといいらしい）

-------------------------

「next if( !$Title && !$Message )」という行（３箇所）の下に、

next if($year>2900);

をそれぞれ追加。

---------------------------

「$ITS"KAKUNINH" value="ヘッダをつけて確認">」の行の下あたりに

$ITS"SWRITE" value="下書き"> 

を追加。ボタン作り。

---------------------------

『Modeに従って実行』（sub NickyExec）内の「}elsif( ($Mode eq "WRITE") && ($Admin) ){」の行を、

}elsif((($Mode eq "WRITE")||($Mode eq "SWRITE"))&& ($Admin) ){

に変更。

---------------------------

その数行下の「$Category=$nCategory;」の行の下あたりに、

if($Mode eq "SWRITE"){
	$nyear=$nyear+1000;
}

を追加。

---------------------------

「sub MakeNickyLast」内の「if( !$flag_new_hit && ($Mode eq "WRITE") ){」の行を

if( !$flag_new_hit && (($Mode eq "WRITE")||($Mode eq "SWRITE")) ){

に変更。

---------------------------

『日付の作成』（sub MakeDateStr）を以下のように変更。

#
# 日付の作成
#
sub MakeDateStr{
	if( !$Date ){
		my($syear);
		$week=$Week[&GetWeek($year, $month, $day)];
		if($year>2900){
			$syear=$year-1000;
			$Date="$syear$Year$month$Month$day$Day　※この記事はまだ投稿されていません※　";
		}else{
			$Date="$year$Year$month$Month$day$Day$week";
		}
		if( ($hour >= 0) && ($PutTime eq "Yes") ){ $Date.="$hour:$min"; }
	}
}

---------------------------

『記事修正フォーム出力』（sub PutEditNicky）内の「 print "<select name=\"nyear\">";」から
「 print "</select>年";」までを以下のように変更。

 print "<select name=\"nyear\">";
 if($year>2900){
 	for($i=$year-1010; $i<=$year-990; $i++){
		if( $i == $year-1000 ){
			$dat1=" selected";
		}else{
			$dat1="";
		}
		print "<option value=\"$i\"$dat1>$i";
 	}
}else{
	for($i=$year-10; $i<=$year+10; $i++){
		if( $i == $year ){
			$dat1=" selected";
		}else{
			$dat1="";
		}
		print "<option value=\"$i\"$dat1>$i";
	}
}
 print "</select>年";

---------------------------

「sub GetFileList」内の「if( opendir(RD, "$vDir/") ){」から
「if( opendir(RDD, "$vDir/$dirname") ){」までを以下のように変更。

if( opendir(RD, "$vDir/") ){
	my($dirs);
	if ($Admin || $mkHTML){
		$dirs=9;
	}else{
		$dirs=2;
	}
	for $dirname( readdir(RD) ){
		if( $dirname =~ /^[1-$dirs][0-9][0-9][0-9]$/ ){
		  if( opendir(RDD, "$vDir/$dirname") ){

---------------------------

『過去ログとして月単位のログを出力』（sub PutMonthTag）内の
「if( ($oyear != $year) || ($omon != $mon) ){」という行（２箇所）の上に、

next if($year>2900);

をそれぞれ追加。

---------------------------

「sub PutTitleList」内の「&GetNickyFile("$vDir/$NickyFname");」の行の下に

next if($year>2900);

を追加。

---------------------------

mkrssnky.cgiでRSSフィードを出力しているのでそれも書き換え。
mkrssnky.cgiの「# 記事のURI」から「$RSS_ITEM_URI = $RSS_SCRIPT_URI."〜」までの８行を「#タイトル」の上に
移動させ（多分必要ないけど一応）、「$RSS_ITEM_URI = $RSS_SCRIPT_URI."〜」の行の下に以下を追加。

if(( !$logdata[1] && !$logdata[2] )||($dateY>2900)){
	$RSS_NUM++;
	next;
}