かんたん作成【HTML CSS JavaScript PHP CGI Perl Ruby Python .htaccess】



このエントリーをはてなブックマークに追加
Web日記

#! /usr/local/bin/perl

# 設定
$FILE        = './dat/diary.dat';    # 日記保存ファイル
$TITLE        = 'Web日記';        # 日記のタイトル
$CALENDAR    = 5;            # カレンダー表示月数
$MAX        = $CALENDAR * 31;    # 日記保存件数
$TITLEVIEW    = 50;            # 新着日記タイトルの表示件数
$DIARYVIEW    = 5;            # トップページの日記表示件数
$TITLEMAX    = 30;            # 題名文字数制限(全角)
$DIARYMAX    = 5000;            # 日記文字数制限(全角)
$PASSWORD    = '1234';        # 書き込み・編集・削除用パスワード

loadForm();                # フォームデータ取り込み
loadData();                # データの読み込み・削除・書き込み

print qq(Content-type: text/html; charset=Shift_JIS\n\n);
print qq(<html>\n);
print qq(<head>\n);
print qq(<title>$TITLE</title>\n);
print qq(</head>\n);
print qq(<body link="#000000" vlink="#000000" style="margin:0;padding:0">\n);
print qq(<table align="center" cellspacing="0" style="margin:0;width:100%">\n);
print qq(<tr>\n);
print qq(<td colspan="2">\n);
printCalendar();                    # カレンダー表示
print qq(</td>\n);
print qq(</tr>\n);
print qq(<tr>\n);
print qq(<td valign="top" style="padding:5px;font-size:12px;width:20%">\n);
printTitle();                        # 新着日記タイトル一覧表示
print qq(</td>\n);
print qq(<td valign="top" style="padding:5px;font-size:13px">\n);
printDiary();                        # 日記表示
print qq(</td>\n);
print qq(</tr>\n);
print qq(</table>\n);
print qq(</body>\n);
print qq(</html>\n);

exit;

#================================================ 日記の表示
sub printDiary
{
    my    $i;
    if($FORM{'date'}) {
        my    ($year, $mon, $date, $title, $diary);
        for($i = 0 ; $i < @DATA ; ++$i) {
            ($year, $mon, $date, $title, $diary) = split(/\t/, $DATA[$i]);
            if($FORM{'year'} == $year and $FORM{'mon'} == $mon and $FORM{'date'} == $date) {
                last;
            }
        }
        if($FORM{'mode'} ne "input") {
            printf qq(<h1 style="padding:5px;background:#fc6;font-size:13px">%d月%d日 ),
                 $FORM{'mon'} + 1, $FORM{'date'};
            if($i < @DATA) {
                print qq($title</h1>\n);
                print qq($diary<br>\n);
            }
            else {
                print qq(日記は書かれていません。</h1>\n);
            }
            print qq(<form action="$ENV{'SCRIPT_NAME'}" method="POST" style="text-align:right">\n);
            print qq(<input type="hidden" name="mode" value="input">\n);
            print qq(<input type="hidden" name="year" value="$FORM{'year'}">\n);
            print qq(<input type="hidden" name="mon" value="$FORM{'mon'}">\n);
            print qq(<input type="hidden" name="date" value="$FORM{'date'}">\n);
            print qq(パスワード:);
            print qq(<input type="password" name="pass" size="5" value="$FORM{'pass'}"><br>\n);
            print qq(<input type="submit" value="書込/編集/削除"><br>\n);
            print qq(</form>\n);
        }
        else {
            if($FORM{'pass'} eq $PASSWORD) {
                if($i >= @DATA) {
                    $title = "";
                    $diary = "";
                }
                else {
                    $diary =~ s/<br>/\x0D\x0A/g;
                }
                print qq(<form action="$ENV{'SCRIPT_NAME'}" method="POST">\n);
                print qq(■■■■■【 書込/編集 】■■■■■<br>\n);
                print qq(題名:<br>\n);
                print qq(<input type="text" name="title" size="80" maxlength="$TITLEMAX" value="$title"><br>\n);
                print qq(日記: <small>※$DIARYMAX文字以内</small><br>\n);
                print qq(<textarea name="diary" style="width:95%;height:300px">$diary</textarea><br>\n);
                print qq(<input type="submit" value=" 日記書込 ">\n);
                print qq(<input type="hidden" name="year" value="$FORM{'year'}">\n);
                print qq(<input type="hidden" name="mon" value="$FORM{'mon'}">\n);
                print qq(<input type="hidden" name="date" value="$FORM{'date'}">\n);
                print qq(<input type="hidden" name="pass" value="$FORM{'pass'}">\n);
                print qq(<input type="hidden" name="mode" value="write">\n);
                print qq(</form>\n);
                print qq(<br>\n);
                if($i < @DATA) {
                    print qq(<form action="$ENV{'SCRIPT_NAME'}" method="POST">\n);
                    print qq(■■■■■【  削  除  】■■■■■<br>\n);
                    print qq(<input type="hidden" name="year" value="$FORM{'year'}">\n);
                    print qq(<input type="hidden" name="mon" value="$FORM{'mon'}">\n);
                    print qq(<input type="hidden" name="date" value="$FORM{'date'}">\n);
                    print qq(<input type="hidden" name="pass" value="$FORM{'pass'}">\n);
                    print qq(<input type="hidden" name="mode" value="delete">\n);
                    print qq(<input type="submit" value=" 日記削除 ">\n);
                    print qq(</form>\n);
                }
            }
            else {
                print qq(パスワードが違います!!<br>\n);
            }
        }
    }
    else {
        print qq(<h1 style="padding:5px;text-align:center;font-size:14px">$TITLE</h1>\n);
        if($DIARYVIEW > @DATA) {
            $DIARYVIEW = @DATA;
        }
        for($i = 0 ; $i < $DIARYVIEW ; ++$i) {
            my    ($year, $mon, $date, $title, $diary) = split(/\t/, $DATA[$i]);
            printf qq(<h2 style="padding:5px;background:#fc6;font-size:14px">%d月%d日 ), $mon + 1, $date;
            print qq($title</h2>\n);
            print qq($diary<br>\n);
            print qq(<br><br>\n);
        }
        my    ($sec, $min, $hour, $date, $mon, $year, $wday) = localtime time;
        print qq(<form action="$ENV{'SCRIPT_NAME'}" method="POST" style="text-align:right">\n);
        print qq(<input type="hidden" name="mode" value="input">\n);
        print qq(<input type="hidden" name="year" value="$year">\n);
        print qq(<input type="hidden" name="mon" value="$mon">\n);
        print qq(<input type="hidden" name="date" value="$date">\n);
        print qq(パスワード:);
        print qq(<input type="password" name="pass" size="5"><br>\n);
        print qq(<input type="submit" value="今日の日記を書く">\n);
        print qq(</form>\n);
    }
}

#================================================ 新着日記タイトル一覧表示
sub printTitle
{
    my    $i;
    print qq(<a href="$ENV{'SCRIPT_NAME'}" style="display:block;text-align:center">$TITLE</a>\n);
    print qq(<hr color="#cccccc">\n);
    if($TITLEVIEW > @DATA) {
        $TITLEVIEW = @DATA;
    }
    for($i = 0 ; $i < $TITLEVIEW ; ++$i) {
        my    ($year, $mon, $date, $title, $diary) = split(/\t/, $DATA[$i]);
        printf qq(■%d/$date-), $mon + 1;
        print qq(<a href="$ENV{'SCRIPT_NAME'}?year=$year&mon=$mon&date=$date">$title</a><br>\n),
    }
    print qq(<hr color="#cccccc">\n);
}

#================================================ カレンダー表示
sub printCalendar
{
    my    $i;
    my    ($sec, $min, $hour, $date, $mon, $year, $wday) = localtime time;
    my    $oneday    = 60 * 60 * 24;
    my    $starttime = time - $oneday * ((31 * ($CALENDAR - 1)) + $date);
    for(; $starttime <= time ; $starttime += $oneday) {
        my    ($sec, $min, $hour, $date, $mon, $year, $wday) = localtime $starttime;
        if($date == 1) {
            last;
        }
    }
    print qq(<table style="width:100%;font-size:12px;border-bottom:1px solid #f93">\n);
    for(; $starttime <= time ;) {
        my    ($sec, $min, $hour, $date, $mon, $year, $wday) = localtime $starttime;
        if($mon % 2 == 0) {
            print qq(<tr style="background:#eee">\n);
        }
        else {
            print qq(<tr>\n);
        }
        printf qq(<th style="text-align:right">%d月</th>\n), $mon + 1;
        for($i = 1 ; $i <= 31 ; $i++) {
            my    ($sec, $min, $hour, $date, $mon, $year, $wday) = localtime $starttime;
            if($i == $date) {
                if($starttime <= time) {
                    if($FORM{'year'} == $year and $FORM{'mon'} == $mon and $FORM{'date'} == $date) {
                        print qq(<th style="width:3%;background:#fc9">);
                    }
                    else {
                        print qq(<th style="width:3%">);
                    }
                    print qq(<a href="$ENV{'SCRIPT_NAME'}?year=$year&mon=$mon&date=$date">$date</a>);
                    print qq(</th>\n);
                }
                else {
                    print qq(<th style="width:3%;color:#999">$date</th>\n);
                }
                $starttime += $oneday;
            }
            else {
                print qq(<th> </th>\n);
            }
        }
        print qq(</tr>\n);
    }
    print qq(</table>\n);
}

#================================================ データ読み込み
sub loadData
{
    open(FILE, "<$FILE");                        # データ読み込み
    eval{ flock(FILE, 1) };
    @DATA = <FILE>;
    close FILE;
    my    $i;
    if($FORM{'mode'} and $FORM{'pass'} eq $PASSWORD) {
        if($FORM{'mode'} eq 'write') {                # データ追加 
            for($i = 0 ; $i < @DATA ; ++$i) {
                my    ($year, $mon, $date, $title, $diary) = split(/\t/, $DATA[$i]);
                if($FORM{'year'} == $year and $FORM{'mon'} == $mon and $FORM{'date'} == $date) {
                    splice @DATA, $i, 1;
                    last;
                }
            }
            $FORM{'mon'} = sprintf("%02d", $FORM{'mon'});
            $FORM{'date'} = sprintf("%02d", $FORM{'date'});
            if(length($FORM{'title'}) > $TITLEMAX * 2) {
                $FORM{'title'} = substr($FORM{'title'}, 0, $TITLEMAX * 2) . " ";
            }
            if(length($FORM{'diary'}) > $DIARYMAX * 2) {
                $FORM{'diary'} = substr($FORM{'diary'}, 0, $DIARYMAX * 2) . " ";
            }
            unshift @DATA,
                "$FORM{'year'}\t$FORM{'mon'}\t$FORM{'date'}\t$FORM{'title'}\t$FORM{'diary'}\t\n";
            @DATA = sort { $b cmp $a } @DATA;
            while(@DATA > $MAX) {
                pop @DATA;
            }
        }
        elsif($FORM{'mode'} eq 'delete') {            # データ削除 
            for($i = 0 ; $i < @DATA ; ++$i) {
                my    ($year, $mon, $date, $title, $diary) = split(/\t/, $DATA[$i]);
                if($FORM{'year'} == $year and $FORM{'mon'} == $mon and $FORM{'date'} == $date) {
                    splice @DATA, $i, 1;
                    last;
                }
            }
        }
        open(FILE, ">$FILE");                    # データ書き込み
        eval{ flock(FILE, 2) };
        print FILE @DATA;
        close FILE;
    }
}
    
#================================================ フォームデータ取り込み
sub loadForm
{
    my    ($query, $pair);
    if($ENV{'REQUEST_METHOD'} eq 'POST') {
        read(STDIN, $query, $ENV{'CONTENT_LENGTH'});
    }
    else {
        $query = $ENV{'QUERY_STRING'};
    }
    foreach $pair (split(/&/, $query)) {
        my    ($key, $value) = split(/=/, $pair);
        $value =~ tr/+/ /;
        $value =~ s/%([0-9a-fA-F][0-9a-fA-F])/chr(hex($1))/eg;
        $value =~ s/&/&amp;/g;
        $value =~ s/</&lt;/g;
        $value =~ s/>/&gt;/g;
        $value =~ s/\x0D\x0A/<br>/g;
        $value =~ tr/\t/ /;
        $FORM{$key} = $value;
    }
}
CGI(Perl)
Hello world ! ユーザーエージェント取得・表示($ENV{'HTTP_USER_AGENT'})
IPアドレス取得・表示($ENV{'REMOTE_ADDR'}) リンク元取得・表示($ENV{'HTTP_REFERER'})
URL取得・表示($ENV{'HTTP_HOST'}, $ENV{'REQUEST_URI'}) 環境変数を全て表示(%ENV)
ホスト名取得・表示(gethostbyaddr) 訪問者のプロバイダーを表示
訪問者の都道府県を取得・表示 日付を表示(localtime time)
日付を画像表示(localtime time, substr) アクセス日時を表示(localtime time)
指定の日までの日数を表示 曜日によって背景色を変える
日によって背景色を変える 月によって背景色を変える
見るたびに背景色を変える 見るたびに背景画像を変える
おみくじ(rand, int) カラーチャート
Shift_JIS文字コード表 UTF-8文字コード表
グラフ(横棒グラフ) アクセスカウンター
アクセスカウンター(画像) アクセスカウンター(今日・昨日)
訪問回数(クッキー, $ENV{'HTTP_COOKIE'}, Set-Cookie) アクセスログ保存
アクセスログ集計 パスワード認証
クッションページ($ENV{'QUERY_STRING'}) クッションページ($ENV{'PATH_INFO'})
フォーム入力内容をクッキーに保存 1つのCGIでフレームページを表示
IPアドレスからホスト名を取得(gethostbyaddr) ホスト名からIPアドレスを取得(gethostbyname)
IPアドレスからプロバイダーを取得 IPアドレスから都道府県を取得
文章中の文字列を別の文字列に一括変換 カレンダー
カレンダー(前月・次月へのリンク付) カレンダー(今年1月〜12月)
掲示板 掲示板(URL自動変換/連続改行・スペース削除)
掲示板(年齢・性別・都道府県選択) 画像アップロード掲示板
チャット Web日記
サイトマップ(ディレクトリ内のファイルを調べる) Webデータ取得(HTTPヘッダー, HTMLソース, use Socket)
Webデータ取得(HTTPヘッダー, HTMLソース, use HTTP::Request::Common) トラックバック受信
トラックバック送信 メール送信(メールフォーム, sendmail)
リバーシ(ボードゲーム) .htaccessユーザー認証用ユーザーファイル作成
リダイレクト 条件指定リダイレクト
言語振り分けリダイレクト 条件指定アクセス拒否(ステータスコードを返す)
HTMLファイル読み込み・表示 HTMLファイル読み込み・パスワード認証
HTMLファイル読み込み・条件指定アクセス拒否 HTMLファイル読み込み・条件指定リダイレクト
外部CGIファイル読み込み(require) 画像ファイル読み込み・表示
画像縮小・拡大・サイズ変更(Image::Magick, Resize) 画像切り出し(Image::Magick, Crop)
画像文字埋め込み(Image::Magick, Annotate) 画像合成(Image::Magick, Composite)
画像生成・保存(Image::Magick->new) 画像合成アクセスカウンター
かんたん作成【HTML CSS JavaScript PHP CGI Perl Ruby Python .htaccess】