#!/usr/local/bin/perl #****************************************** # 新規作成: 2009/01/07 (HRS) T.Furuta # 機能: # 改訂履歴: #****************************************** # 外部ファイル取り込み require './subset.cgi'; require './sub.cgi'; require $jcode; # 参照logファイル指定 $logfile = './data/date.cgi'; &decodes; &htmlview3; $n3=0; $page2=0; #------------------------------------------------- # 記事表示 #------------------------------------------------- sub htmlview3 { if ($headflag) { return; } print "Content-type: text/html\n\n"; print < EOM print" $body"; $headflag = 1; my $page = 0; foreach ( keys(%in) ) { if (/^page:(\d+)$/) { $page2 = $1; last; } } # 表示部分　希望日付順に表示 $number=""; $dey="00000000"; $title=""; $main=""; @min; $j=0; $i = 0; $flg=0; $flg7=0; #データレコード数取得 open(FILE, "$logfile") or die; 1 for ; $g_su=$. ; close(FILE); #配列の初期化 for ($xx = 1; $xx <= $g_su; $xx++) { @min[$xx]="00000000" } #配列に投稿希望日を代入 open(IN,"$logfile") || &error("Open Error: $logfile"); while () { $i++; next if ($i < $page + 1); my ($a1,$a2,$a3,$a4,$a5,$a6,$a7,$a8,$a9,$a10,$a11,$a12,$a13,$a14,$a15,$a16,$a17,$a18,$a19,$a20,$a21,$a22) = split(/<>/); $a3 =~ s/\///g; # @min[$i]=$a3.$a1; @min[$i]=$a22; } close(IN); #配列を表示順にソート @min=sort{$a <=> $b}@min; #数値昇順 ##配列を投稿希望日順にソート # @min=sort{$b cmp $a}@min; $n2=1; #記事の表示 $r_su=1; $flg3=1; $flg4=1; print < EOM for ($n = 0; $n <= $g_su; $n++) { my $i = 0; open(IN,"$logfile") || &error("Open Error: $logfile"); while () { my ($a1,$a2,$a3,$a4,$a5,$a6,$a7,$a8,$a9,$a10,$a11,$a12,$a13,$a14,$a15,$a16,$a17,$a18,$a19,$a20,$a21,$a22) = split(/<>/); $a=datetring(); $b=$a3; $c=$a7; # /を取り除く $a =~ s/\///g; $b =~ s/\///g; $c =~ s/\///g; #日付と投稿ナンバーで比較 $x=$b.$a1; $count2=$n+$page; # if (($a >= $b)&&($x eq @min[$n])&&($a5 eq "on")) { if (($a >= $b)&&($a22 == @min[$n])&&($a5 eq "on")) { if($c ne ""){ if($a <=$c){ $flg=1; $flg3++; $flg4++; $date[$flg7]->[1]=$a1; $date[$flg7]->[2]=$a2; $date[$flg7]->[3]=$a3; $date[$flg7]->[4]=$a4; $date[$flg7]->[5]=$a5; $date[$flg7]->[6]=$a6; $date[$flg7]->[7]=$a7; $date[$flg7]->[8]=$a8; $date[$flg7]->[9]=$a9; $date[$flg7]->[10]=$a10; $date[$flg7]->[11]=$a11; $date[$flg7]->[12]=$a12; $date[$flg7]->[13]=$a13; $date[$flg7]->[14]=$a14; $date[$flg7]->[15]=$a15; $date[$flg7]->[16]=$a16; $date[$flg7]->[17]=$a17; $date[$flg7]->[18]=$a18; $date[$flg7]->[19]=$a19; $date[$flg7]->[20]=$a20; $flg7++; } }else{ $flg=1; $flg3++; $flg4++; $date[$flg7]->[1]=$a1; $date[$flg7]->[2]=$a2; $date[$flg7]->[3]=$a3; $date[$flg7]->[4]=$a4; $date[$flg7]->[5]=$a5; $date[$flg7]->[6]=$a6; $date[$flg7]->[7]=$a7; $date[$flg7]->[8]=$a8; $date[$flg7]->[9]=$a9; $date[$flg7]->[10]=$a10; $date[$flg7]->[11]=$a11; $date[$flg7]->[12]=$a12; $date[$flg7]->[13]=$a13; $date[$flg7]->[14]=$a14; $date[$flg7]->[15]=$a15; $date[$flg7]->[16]=$a16; $date[$flg7]->[17]=$a17; $date[$flg7]->[18]=$a18; $date[$flg7]->[19]=$a19; $date[$flg7]->[20]=$a20; $flg7++; } } } } close(IN); for ($n = 0; $n < $pageLog; $n++) { #掲示板に一件分表示 if(($n3+$page2)<=($flg7-1)) { $data=$date[$n3+$page2]->[8]; &firefox($data); print <

$data

EOM if($n2%$pageCol==0) { print < EOM } else { print < EOM } $n2++; $n3++; $r_su++; $flg=0; } } close(FILE); if(($n2-1)%($pageCol)>1){ for ($i = $n2; $i <= $pageCol; $i++) { print < EOM } } #登録件数0件の時、メッセージ表示 if($r_su==1){ print $emptyMsg; } print <

EOM # ページ繰り越し my $next = $page2 + $pageLog; my $back = $page2 - $pageLog; if ($back >= 0) { print < EOM } if ($next < $flg7) { print < EOM } print < EOM exit; } sub datetring{ local(@Time) = localtime(time); $Time[5] += 1900; $Time[4]++; for($i=0;$i<=5;$i++){ $Time[$i] = ($Time[$i] < 10) ? "0$Time[$i]" : "$Time[$i]"; } return "$Time[5]/$Time[4]/$Time[3]"; } sub firefox # firefoxでwrapされない問題対策(2009.11.30) { my $agent = $ENV{'HTTP_USER_AGENT'}; if ($agent =~ /Firefox/ ){ $_[0] =~ s/
/\n/g; my $len=length($_[0]); if ($len>30){ $_[0] =~ s/(\w)/$1/g; } $_[0] =~ s/\n/
/g; } } #************************************************************************************************************************************************************************************************************************************************************************************************************************** # 著作権について # # 1. このソースのすべての著作権は、アワーズ株式会社(以降、当社)が保有します。 # 2. このソースに記載されている情報は、各国の著作権法、各種条約及びその他の法律で保護されています。私的使用その他法律によって明示的に認められる範囲を超えて、これらの情報を使用（複製、改変、アップロード、掲示、送信、頒布、ライセンス、販売、出版等を含む）をすることは、事前に当社の文書による許諾がないかぎり、禁止します。 # 3. このソースに記載されている商品名・会社名・団体名及びそれらのロゴは、各社・各団体等の商標または意匠登録されているものは、法令その他で保護されています。 # 4. このソースの利用、商標権・特許権・意匠権その他の知的財産権に基づく如何なる権利の許諾、及び複製・翻案・公衆送信・送信可能化等も含めて、できませんのでご注意ください。なお、個々の著作物に個別の利用条件が付されている場合は、当該条件が優先されます。 # 5. このソースから提供されるソフトウエアは、当該ソフトウエアに関する権利者の著作物です。それぞれのソフトウエアの提供に際して権利者から提示されるソフトウエア使用許諾契約書の規定及び著作権法、各種条約その他の法律に従ってご使用ください。 # #**************************************************************************************************************************************************************************************************************************************************************************************************************************