#!/usr/local/bin/perl # # 日記CGI # # 定義部 $Ver="2008/07/09"; $www="."; $cginame="nicky.cgi"; $cgipath="./$cginame"; $vDir="."; sub InitialNicky { # 最新×日分の表示 $PrintDay=5; $PageCnt=5; # 最新×日分の表示(iMODE) $PrintiDay=1; $PageiCnt=3; $Age="r"; # 記事を表示させる時の画面幅 $NickyWidth="80%"; $NickyLineWidth="1"; $NickyLineSpan="12"; # 年月日の表現 $Year='年'; $Month='月'; $Day='日'; # 曜日の表現 $WEEK=0; # 記事本文の表示 $HonbunColor="#000000"; $HonbunSize="2"; # 記事本文の背景色 $HonbunBgColor="#ffffff"; # 記事タイトルの背景色 $TitleBgColor="#4386b1"; # タイトルの縦幅 $TSize="12"; # タイトル行の先頭に付加する文字列 $TitleHead="■"; # リンク用タグを出力する $LinkTH="No"; # 日付の色 $DateFontColor="#FFFFFF"; # 日付のフォントサイズ $DateSize="2"; # 記事タイトルの文字色 $TitleFontColor="#CCEDFF"; # 記事タイトルのフォントサイズ $TitleSize="2"; # 本文をエフェクトする文字と色 $EffectSTR1="#"; $EffectSTR2=">"; $EffectSTR3="("; $EffectSTR4="#"; $EffectCOL1="#FF0000"; $EffectCOL2="#00FF00"; $EffectCOL3="#0000FF"; $EffectCOL4="#00FFFF"; $LinkOpen="No"; $Fit_size=200; $Fit="OFF"; # コメント受付欄のデフォルト縦幅 $CommentRecv="1"; $CommentSTRlen="1024"; $CommentNameWidth="10"; $CommentMessageWidth="30"; $CommentStrSize="3 color=#000000"; $CommentNameStrSize="3 color=#000000"; # コメントの背景色 $CommentBgColor="#F1F5FA"; # コメントの名前フォント色 $CommentNameColor="#975580"; # コメントの名前フォントサイズ $CommentNameSize="1"; # コメントのフォント色 $CommentFontColor="#3A75AF"; # コメントのフォントサイズ $CommentFontSize="1"; # コメントの文字列 $CommentStr="コメント"; # コメント枠色 $CommentFlColor="#C5D6EB"; # URLを自動リンクする #$UrlLink="Yes"; # 時刻の表示 $PutTimeDefault="Yes"; # 過去ログの単語 $MsgNew="<< NEW"; $MsgOld="OLD >>"; $MsgOldLog="過去ログ"; $MsgOldNEWks="["; $MsgOldNEW="最新"; $MsgOldNEWke="]"; $MsgOldOLDks="["; $MsgOldOLD="最古"; $MsgOldOLDke="]"; $MsgOldOBgCol="#FFFFFF"; $MsgOldBetween="TitleList"; $MsgOldCol="#000000"; $MsgOldSize="1"; $MsgOldYBgCol="#FFFFFF"; $MsgOldYFnCol="#000000"; $MsgOldMBgCol="#FFFFFF"; $MsgOldYear="年"; $MsgOldMonth="月"; $MsgOldForm=$MsgOld1st=$MsgOldcelp=$MsgOldcels="0"; $MonthSort="UP"; $SaveHTML="OFF"; $LogFname="nicky"; $ks="["; $ke="]"; $MsgPageOut=1; #お絵描き系JavaApplet $image_width=$image_height=300; $ReplaySTR="Replay"; $ContinueSTR="Continue"; $undoNum=60; $layerNum=5; $Quality=0; $JPEG_border="60"; $CompressL="10"; #TitleList $MsgOldTG="・"; $TitleListSort="DOWN"; $TLyear="年"; $TLmonth="月"; $TLday="日"; $TLyearsz="5"; $TLmonthsz="4"; $TLdaysz="2"; # その他 # 検索をCGIに吹かせる $PutSerchTagFlag=0; # 最新記事のファイルネーム $NickyHtml="nicky.html"; $tagpl=$taglt=$tagbr=$tagmode=$anker=""; $tag2lf="
"; $tag3lf="
"; #ユーザーカスタマイズモード $UserN=$UserL=$UserR=$UserU=$UserD=$UserLC=$UserRC=$UserUC=$UserDC=$UserCmnt="No"; $mini_il_line=4; $mini_il_row=1; } #記事本文出力 sub PutNickyOneDay { #Global $GrpPath $pch,$PchPath,$ImgLINK,$ImgTAG,$TrTAG,$Msg $continue, $ContinuePath, $apIn,$w,$h,$sz,$wpx,$hpx my($fn, $fn1, $ext,$p1,$p2,$bg); my($flag_uc, $wops); my($iTS)=" 0 で画像ファイル有り $size=$pch=0; if( $GrpFileName ){ &IsApplet(); $apIn=$spsize+$PBsize; &MakeNickyDir(); $GrpPath="$NickyDir/$GrpFileName"; $ext=$GrpPath; $ext=~s/^.*\.//; $fn1=$GrpFileName; $fn1=~s/\..*$//; $fn="$NickyDir/$fn1"; $size=(stat($GrpPath))[7]; if( $size > 0 ){ ($w, $h)=&GetImageSize($GrpPath); if( $w && $h ){ $sz=int($size/1024).K; $bw=$w; $bh=$h; $p1=rindex($GrpPath,"\/"); $p2=rindex($GrpPath,"\/", $p1-1); $bg=substr($GrpPath, $p2+1); $ThmPath = &get_thumb_name($fn); if($ThmPath){ my($ow,$oh); $ow=$w+20; $oh=$h+26; $GrpPath=$ThmPath; ($w, $h)=&GetImageSize($GrpPath); $fw=" onclick=$wops,width=$ow,height=$oh\');return false;\""; }elsif( ($FitCheck eq "ON") && ($w != $fit_size) && ($h != $fit_size) ){ my($pw, $ph, $fit_width, $fit_height); $fiw=$w+20; $fih=$h+26; $pw=$fit_size/$w; $ph=$fit_size/$h; if( $pw > $ph ){ $fit_width=int($w*$ph); $fit_height=int($h*$ph); }else{ $fit_width=int($w*$pw); $fit_height=int($h*$pw); } $p1=rindex($GrpPath,"\/"); $p2=rindex($GrpPath,"\/", $p1-1); $gm=substr($GrpPath, $p2); $ImgURL="$www$gm"; if( ($w == $fit_width) && ($h == $fit_height) ){ undef $fw; }else{ $fw=" onclick=$wops,width=$fiw,height=$fih\');return false;\""; } $w=$fit_width; $h=$fit_height; }else{ undef $fw; } $p1=rindex($GrpPath,"\/"); $p2=rindex($GrpPath,"\/", $p1-1); $gm=substr($GrpPath, $p2); $ImgURL="$www$gm"; if( $nalt ){ $ntit="$nalt"; } else { $ntit="$GrpFileName $bw×$bh $sz"; } $alt=" width=\"$w\" height=\"$h\" alt=\"$ntit\" title=\"$ntit\""; $wpx=$w."px"; $hpx=$h."px"; } } # pch データはあるか $PchPath="$fn.pch"; $pch=(stat($PchPath))[7]; if( !$pch ){ $PchPath="$fn.spch"; $pch=(stat($PchPath))[7]; } #pchが無くてもjpegかgiffでContinue可に if(!$pch && ($GrpFileName =~ /\.jpg$|\.jpeg$|\.gif$|\.giff$|\.png$/i)){ $ContinuePath=$GrpPath; $continue=(stat($ContinuePath))[7]; } } # ファイルネームが確定しているなら日付取得 if( $NickyFname ){ &GetDateFromFname(); &MakeNickyFname(); } if( ($day==$w_day)&&($month==$w_month)&&($year==$w_year)&&($daysub eq $w_daysub)){ if( !$saveExec ){ $flag_new_hit=1; if( !$mkHTML ){ print "\n"; } } } $week=$Week[&GetWeek($year, $month, $day)]; # 本文&画像を指定のレイアウトで出力 $HonbunHead=""; $HonbunHud=""; $Msg=&Effect($Message); $Honbun=$HonbunHead.$Msg.$HonbunHud; $TrTAG="
$TitleHeadL$Date $hdt | |||||||||||
|
$tbTag |