|
 |
|
#!/usr/local/bin/perl
#use "../KCatch" qw( execdata );__DATA__
my($homedir,$ban,@ban,$text,$sanko,$folder);
$folder="tokushu/23kakutei";
require '../../server.ini';
$homedir=$server::homedir;
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%" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0">
<tr>
<td width="100%" align="center" style="border-bottom-style: solid; border-bottom-color: #0000FF" bgcolor="#00FFFF">
<p align="left"><font size="4"><b>
<font color="#FF0000">■</font>ドキュメント１１．１８ 徹夜交渉 </b>下のリンクをクリック！</font></td>
</tr>
<tr>
<td width="100%" align="center" style="border-left-width:1; border-right-width:1; border-top-width:1" height="22">
<div align="left">
<table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber1" width="493" height="283">
<tr>
<td width="92" height="16"> 7:45〜
8:20</td>
<td width="389" height="16">
<a style="text-decoration: underline" href="/tokushu/23kakutei/messages/21.shtml">
拡大闘争委員会 全会一致で「妥結せず！」</a></td>
</tr>
<tr>
<td width="92" height="16"> 6:30〜
7:30</td>
<td width="389" height="16">
<a style="text-decoration: underline" href="/tokushu/23kakutei/messages/24.shtml">賃金確定第６回交渉</a></td>
</tr>
<tr>
<td width="92" height="16"> 3:00〜
3:18</td>
<td width="389" height="16">
<a style="text-decoration: underline" href="messages/19.shtml">
賃金確定第５回交渉</a></td>
</tr>
<tr>
<td width="92" height="16"> 0:10〜
3:00</td>
<td width="389" height="16">断続的に執行部中心に折衝。 <a style="text-decoration: underline" href="messages/17.shtml">眠らぬ元町の風景</a></td>
</tr>
<tr>
<td width="92" height="16"> 0:00〜
0:10</td>
<td width="389" height="16">
<span style="text-decoration: underline">
<a style="text-decoration: underline" href="/tokushu/23kakutei/messages/16.shtml">
拡大闘争委員会</a></span></td>
</tr>
<tr>
<td width="92" height="16">23:25〜23:40</td>
<td width="389" height="16">従組交渉</td>
</tr>
<tr>
<td width="92" valign="top" height="32">
22:00〜22:40</td>
<td width="389" height="32">
<a style="text-decoration: underline" href="/tokushu/23kakutei/messages/15.shtml">
拡大闘争委員会</a> （<a style="text-decoration: underline" href="messages/18.shtml">拡大闘争委員会で出された高教組独自要求に関する主な意見）</a></td>
</tr>
<tr>
<td width="92" height="16">20:30〜22:00</td>
<td width="389" height="16">
<a style="text-decoration: underline" href="/tokushu/23kakutei/messages/14.shtml">
交渉団、拡大闘争委員会メンバー、待機</a></td>
</tr>
<tr>
<td width="92" height="16">19:40〜20:30</td>
<td width="389" height="16">
<a style="text-decoration: underline" href="messages/20.shtml">
第３回拡大闘争委員会</a></td>
</tr>
<tr>
<td width="92" height="19">18:35〜19:25</td>
<td width="389" height="19">
<a style="text-decoration: underline" href="messages/12.shtml">
賃金確定第４回交渉</a></td>
</tr>
<tr>
<td width="92" height="16">17:40〜18:25</td>
<td width="389" height="16">
<a style="text-decoration: underline" href="/tokushu/23kakutei/messages/13.shtml">
退職手当に関する交渉</a></td>
</tr>
<tr>
<td width="92" height="16">17:15〜17:30</td>
<td width="389" height="16">
<a style="text-decoration: underline" href="/tokushu/23kakutei/messages/25.shtml">交渉団打ち合わせ</a></td>
</tr>
<tr>
<td width="92" height="16">16:00〜17:00</td>
<td width="389" height="16">
<font size="3">
<a style="text-decoration: underline" href="messages/11.shtml">
１１．１８第３波決起集会/500人の熱気で県教委を包囲！</a></font></td>
</tr>
<tr>
<td width="92" height="16"></td>
<td width="389" height="16"></td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td width="100%" align="center" style="border-bottom-style: solid; border-bottom-color: #0000FF" bgcolor="#00FFFF" height="22">
<p align="left"><font size="4"><b>
<font color="#FF0000">■確定速報ＰＤＦファイル</font></b></font></td>
</tr>
<tr>
<td width="100%" align="center" style="border-left-width:1; border-right-width:1; border-top-width:1" height="22">
<table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber2" width="493" height="44">
<tr>
<td width="21" height="20">
<img alt="→" src="../../BD14578_.GIF" width="15" height="15"></td>
<td width="472" height="20">
<a href="http://www.hyogo-kokyoso.com/tokushu/23kakutei/messages/image/img21_200311191558550.pdf">確定速報No.9(11月19日付)</a></td>
</tr>
<tr>
<td width="21" height="20">
<img alt="→" src="../../BD14578_.GIF" width="15" height="15"></td>
<td width="472" height="20">
<a href="/topnews/messages/image/img88_200311191015170.pdf">
確定速報No.8(11月19日付)</a></td>
</tr>
<tr>
<td width="21" height="20">
<img alt="→" src="../../BD14578_.GIF" width="15" height="15"></td>
<td width="472" height="20">
<a href="/topnews/messages/image/img88_200311190734430.pdf">
確定速報No.7 (11月19日付）</a></td>
</tr>
<tr>
<td width="21" height="16">
<img alt="→" src="../../BD14578_.GIF" width="15" height="15"></td>
<td width="472" height="16">
<a href="/tokushu/23kakutei/messages/image/img10_200311181141180.pdf">
調査情報No.17 (11月18日付）</a></td>
</tr>
<tr>
<td width="21" height="16">
<img alt="→" src="../../BD14578_.GIF" width="15" height="15"></td>
<td width="472" height="16">
<a href="messages/image/img9_200311171205460.pdf">
確定速報No.6 (11月17日付）</a></td>
</tr>
<tr>
<td width="21" height="16">
<img alt="→" src="../../BD14578_.GIF" width="15" height="15"></td>
<td width="472" height="16">
<a href="messages/image/img7_200311141549220.pdf">
確定速報No.5 (11月14日付）</a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" align="center" style="border-left-width:1; border-right-width:1; border-top-width:1" height="22">
</td>
</tr>
<tr>
<td width="100%" align="center" style="border-bottom-style: solid; border-bottom-color: #0000FF" bgcolor="#00FFFF" height="22">
<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" height="2">
<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/23kakutei/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> | |