|
|
|
#!/usr/local/bin/perl
#use "../KCatch" qw( execdata );__DATA__
my($homedir,$ban,@ban,$text,$sanko,$folder);
$folder="tokushu/kenpo";
require '../../server.ini';
$homedir=$server::homedir;
#open(BAN,"$homedir/$folder/top_number.txt") or die $!;
open(BAN,"$homedir/$folder/top_number.txt") or die $!;
@ban=;
close(BAN);
$ban=$ban[0];
open(IN,"$homedir/$folder/messages/$ban.shtml") or die $!;
while(){
$text.=$_;
}
close(IN);
$text=~/(.+)<\/title>/;
my $title=$1;
my $body_title=$title;
$body_title=~s/\//<br>/g;
$text=~/<!--bs-->([\s\S]+)<!--be-->/;
my $body=$1;
if($text=~/<!--rs-->\n([\s\S]+)\n<!--re-->/){
$sanko=$1;
}
$body =~s/src="(.+?)"/src="\/$folder\/messages\/$1"/g;
print "content-type: text/html\n\n";
print "<center><h1>$body_title</h1></center>\n";
print "$body\n";
if($sanko){
print "<ul>\n";
print "$sanko\n";
print "</ul>\n";
}
</td>
</tr>
<tr>
<td width="100%">
<table border="0" width="100%" height="252">
<tr>
<td width="100%" align="center" colspan="3" style="border-bottom-style: solid; border-bottom-color: #0000FF" bgcolor="#00FFFF">
<p align="left"><font size="4"><b>
<font color="#FF0000">■運動の呼びかけ・紹介</font></b></font></p>
</td>
</tr>
<tr>
<td width="3%" align="center" height="18" valign="top">
<img border="0" src="../../BD14578_.GIF" width="15" height="15"></td>
<td width="97%" height="18" colspan="2">
<a href="messages/69.shtml">
明石で共同の大宣伝/8団体35人の参加/2時間で署名で167筆！/とても楽しくて「是非毎週やろう！」</a><img src="../../new.gif" width="28" height="11"></td>
</tr>
<tr>
<td width="3%" align="center" height="18" valign="top">
<img border="0" src="../../BD14578_.GIF" width="15" height="15"></td>
<td width="97%" height="18" colspan="2">
<a href="messages/60.shtml">
教育基本法の改悪を許すな！/宣伝署名活動、全県各地で全力投球</a></td>
</tr>
<tr>
<td width="3%" valign="top" align="center" height="18"></td>
<td width="97%" height="18" colspan="2"></td>
</tr>
<tr>
<td width="100%" align="center" colspan="3" style="border-bottom-style: solid; border-bottom-color: #0000FF" bgcolor="#00FFFF">
<p align="left"><font size="4"><b>
<font color="#FF0000">■憲法・教育基本法をめぐる動き</font></b></font></p>
</td>
</tr>
<tr>
<td width="3%" align="center" height="18" valign="top">
<img border="0" src="../../BD14578_.GIF" width="15" height="15"></td>
<td width="79%" height="18">
<a href="http://www.stop-ner.jp/060607horio.html#top">
堀尾輝久氏が国会で意見陳述</a><img src="../../new.gif" width="28" height="11"></td>
<td width="18%" height="18" valign="top">
2006/06/07</td>
</tr>
<tr>
<td width="3%" align="center" height="18" valign="top">
<img border="0" src="../../BD14578_.GIF" width="15" height="15"></td>
<td width="79%" height="18">
<a href="messages/64.shtml">
東京で「教育基本法の改悪をとめよう！６・２全国集会」/全教と日教組 旗林立</a></td>
<td width="18%" height="18" valign="top">
2006/06/03</td>
</tr>
<tr>
<td width="3%" align="center" height="18" valign="top">
<img border="0" src="../../BD14578_.GIF" width="15" height="15"></td>
<td width="79%" height="18">
<a href="messages/65.shtml">
“教育基本法は占領の残りかす”/安倍氏、発言改めず</a></td>
<td width="18%" height="18" valign="top">
2006/06/03</td>
</tr>
<tr>
<td width="3%" align="center" height="18" valign="top">
<img border="0" src="../../BD14578_.GIF" width="15" height="15"></td>
<td width="79%" height="18">
<a href="messages/64.shtml">
東京で「教育基本法の改悪をとめよう！６・２全国集会」/全教と日教組 旗林立</a></td>
<td width="18%" height="18" valign="top">
2006/06/02</td>
</tr>
<tr>
<td width="3%" align="center" height="18" valign="top">
<img border="0" src="../../BD14578_.GIF" width="15" height="15"></td>
<td width="79%" height="18">
<a href="messages/66.shtml">
少人数学級/首相「その方がいい」/教育基本法改悪は逆行</a></td>
<td width="18%" height="18" valign="top">
2006/06/02</td>
</tr>
<tr>
<td width="3%" align="center" height="18" valign="top">
<img border="0" src="../../BD14578_.GIF" width="15" height="15"></td>
<td width="79%" height="18">
<a href="messages/63.shtml">
愛国心評価の状況調査も 衆院教基法特委で文科相</a></td>
<td width="18%" height="18" valign="top">
2006/06/02</td>
</tr>
<tr>
<td width="3%" align="center" height="18" valign="top">
<img border="0" src="../../BD14578_.GIF" width="15" height="15"></td>
<td width="79%" height="18">
<a href="messages/67.shtml">教育基本法改悪 廃案求める/教育法学会が声明</a></td>
<td width="18%" height="18" valign="top">
2006/05/30</td>
</tr>
<tr>
<td width="3%" valign="top" align="center" height="18"></td>
<td width="79%" height="18"></td>
<td width="18%" height="18" valign="top"></td>
</tr>
<tr>
<td width="100%" align="center" colspan="3" style="border-bottom-style: solid; border-bottom-color: #0000FF" bgcolor="#00FFFF">
<p align="left"><font size="4"><b>
<font color="#FF0000">■憲法・教育基本法ニュース（全教のニュースからの転載）</font></b></font></p>
</td>
</tr>
<tr>
<td width="3%" align="center" height="18" valign="top">
<img border="0" src="../../BD14578_.GIF" width="15" height="15"></td>
<td width="97%" height="18" colspan="2">
<a href="messages/70.shtml">
【憲法・教育基本法ニュース№277】６月９日全国で一斉大宣伝行動</a><img src="../../new.gif" width="28" height="11"></td>
</tr>
<tr>
<td width="3%" align="center" height="18" valign="top">
<img border="0" src="../../BD14578_.GIF" width="15" height="15"></td>
<td width="97%" height="18" colspan="2">
<a href="messages/68.shtml">
【憲法・教育基本法ニュース№276】運動と国民世論が今後の動向を決める</a></td>
</tr>
<tr>
<td width="3%" align="center" height="18" valign="top">
<img border="0" src="../../BD14578_.GIF" width="15" height="15"></td>
<td width="97%" height="18" colspan="2">
<a href="messages/58.shtml">
【憲法・教育基本法ニュースNo.725】力緩めず、廃案までたたかいぬこう</a><img src="../../new.gif" width="28" height="11"></td>
</tr>
<tr>
<td width="3%" align="center" height="18" valign="top">
<img border="0" src="../../BD14578_.GIF" width="15" height="15"></td>
<td width="97%" height="18" colspan="2">
<a href="messages/61.shtml">
【憲法・教育基本法ニュースNo.724】時の政府が無制限に教育介入</a><img src="../../new.gif" width="28" height="11"></td>
</tr>
<tr>
<td width="3%" valign="top" align="center" height="18">
<img border="0" src="../../BD14578_.GIF" width="15" height="15"></td>
<td width="97%" height="18" colspan="2">
<a href="messages/62.shtml">
【憲法・教育基本法ニュース№273】特別委員会論戦はじまる/世論と運動を意識した自民質問</a><img src="../../new.gif" width="28" height="11"></td>
</tr>
<tr>
<td width="3%" valign="top" align="center" height="18"></td>
<td width="97%" height="18" colspan="2"></td>
</tr>
<tr>
<td width="100%" align="center" colspan="3" style="border-bottom-style: solid; border-bottom-color: #0000FF" bgcolor="#00FFFF" height="23">
<p align="left"><font size="4"><b>
<font color="#FF0000">■</font></b></font><b><font size="4">参考資料</font></b></p>
</td>
</tr>
<tr>
<td width="3%" align="center" height="18" valign="top">
<img border="0" src="../../BD14578_.GIF" width="15" height="15"></td>
<td width="97%" height="18" colspan="2"><a href="http://archive.hoops.ne.jp/law/1946C.html" target="_blank">憲法の条文日本語版</a> <a href="http://archive.hoops.ne.jp/law/1946C-English.html" target="_blank">英語版</a></td>
</tr>
<tr>
<td width="3%" align="center" height="18" valign="top">
<img border="0" src="../../BD14578_.GIF" width="15" height="15"></td>
<td width="97%" height="18" colspan="2"><a href="http://archive.hoops.ne.jp/law/1947L025.html" target="_blank">教育基本法の条文</a></td>
</tr>
<tr>
<td width="3%" valign="top" align="center" height="18">
<img border="0" src="../../BD14578_.GIF" width="15" height="15"></td>
<td width="97%" height="18" colspan="2"><a href="http://www.mext.go.jp/b_menu/shingi/chukyo/chukyo0/gijiroku/001/011102/011102a.htm" target="_blank">教育振興基本計画の策定と教育基本法の在り方について(諮問)<br>
</a><font size="2">２００１年１１月２６日文部大臣が中教審に諮問した内容</font></td>
</tr>
<tr>
<td width="3%" valign="top" align="center" height="18">
<img border="0" src="../../BD14578_.GIF" width="15" height="15"></td>
<td width="97%" height="18" colspan="2">
<a href="/infobox/messages/205.shtml">教職員の権利憲章（全教）</a></td>
</tr>
<tr>
<td width="3%" valign="top" align="center" height="18"></td>
<td width="97%" height="18" colspan="2"></td>
</tr>
<tr>
<td width="100%" align="center" colspan="3" style="border-bottom-style: solid; border-bottom-color: #0000FF" bgcolor="#00FFFF" height="23">
<p align="left"><font size="4"><b>
<font color="#FF0000">■</font><a href="whatsnew.shtml">このページの新着情報</a></b></font></p>
</td>
</tr>
<tr>
<td width="100%" align="center" valign="top" colspan="3">
<table>
#!/usr/local/bin/perl
use Time::Local;
$newmark = '<img src="/new.gif">';
$newdates=2;
$time=time;
open IN,"message.idx";
print "content-type: text/html\n\n";
while(<IN>){
if ($line++==10){
last;
}
@fields=split(/:=:/);
@fields[1]=~s/<br>/\//g;
($year,$mon,$day)=split(/\//,$fields[3]);
$updatetime=timelocal(0,0,0,$day,$mon-1,$year);
if (($time-$updatetime) > $newdates*24*60*60*2) { $newsign = ""; }
else { $newsign = "$newmark"; }
if(not($fields[0]=~/^\*/)){
print "<tr><td width=\"4%\" valign=\"top\"><img src=\"BD14578_.GIF\"><td width='80%'><a href=\"messages/$fields[0]\">$fields[1]</a>$newsign</td><td width=11%' valign=\"top\">$fields[2]</td></tr>\n" ;
}
}
print "<tr><td></td><td></td><td align=\"right\"><a href=\"/tokushu/kenpo/whatsnew.shtml\"><font size='2'>→続き</font><img border='0' src='garrow.gif' width='8' height='11'></a></td></tr>" ;
close IN;
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</body>
</html> | |