root/trunk/getmtime/getmtime.cgi

#!/usr/bin/perl
#
# �~�XGetModifiedTime rev 1.00
#
# ���̃t�@�C���͎��Ȃ��N���v�g�ł��B
# �ݒ� conf.cgi �ōs���܂��B
# �o�[�W�����A�b�v���ɍ����ւ����”\�ł��B
#
# �g����  HTML�ɋL�q�����O�̕��@ 
#     <!--#include virtual="�p�X/getmtime.cgi?no=�e���v���[�g�ԍ�&see=����gi�����p�X*����gi�����p�X*etc..." -->
#   �L�q��#     <!--#include virtual="./cgi-bin/ccgetmtime/getmtime.cgi?no=1&see=../../htdocs/index.html" -->
#     <!--#include virtual="./cgi-bin/ccgetmtime/getmtime.cgi?no=1&see=../../htdocs/index.html*../../htdocs/update.html" -->
#
# �~�ϑ���l�i���̃T�C�g�j
# http://www.akiyan.com/
#
# �Ƃقق�SI�� http://tohoho.wakusei.ne.jp/wwwssi.htm
#
# �X�V���� 2002/01/02 rev1.00 ��B
#
require 'jcode.pl';
require 'conf.cgi';
&get_query_string();

        $MESSAGE{'file_error'} = '[CC GetModifiedTime error. Was not able to acquire the information on the file(s).]';
        $MESSAGE{'none_argument_error'} = '[CC GetModifiedTime error. There is no argument. Or, an argument is not right.]';
        @SEE = split(/\*/, $FORM{'see'});
        print &content_type('text/html');
        if ($#SEE >= 0 && $FORM{'no'} > 0 && $FORM{'no'} < 10) {
                &put(&main());
                exit;
        }
        &put($MESSAGE{'none_argument_error'});
        exit;

sub main
{
        local %data;
        local ($body, $bk_time, $latest_time) = ($CONF{'template'.$FORM{'no'}}, 0, 0);
        foreach my $path (@SEE) {
                my $mtime = (stat($path))[9];
                $latest_time = ($mtime > $bk_time) ? $mtime : $bk_time;
                $bk_time = $mtime;
        }
        if ($latest_time > 0) {
                ($data{'sec'}
                ,$data{'min'}
                ,$data{'hour'}
                ,$data{'mday'}
                ,$data{'mon'}
                ,$data{'YEAR'}
                ,$data{'wday'}
                ,$data{'yday'}
                ,$data{'isdst'}) = localtime($latest_time + $CONF{'timediff'});
                $data{'YEAR'} += ($data{'YEAR'} < 1900) ? 1900 : 0;
                $data{'year'} = substr($data{'YEAR'}, 2);
                $data{'MON'}  = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec')[$data{'mon'}];
                $data{'mon'}  = &enforce_figure($data{'mon'} + 1, 2);
                $data{'mday'} = &enforce_figure($data{'mday'}, 2);
                $data{'WDAY'} = ('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat')[$data{'wday'}];
                $data{'wday'} = ('����', '��, '��', '��, '�� '�y')[$data{'wday'}];
                $data{'hour'} = &enforce_figure($data{'hour'}, 2);
                $data{'min'}  = &enforce_figure($data{'min'}, 2);
                $data{'sec'}  = &enforce_figure($data{'sec'}, 2);
                $body = &replace_hash(*data, $body);
                return($body);
        } else {
                return($MESSAGE{'file_error'});
        }
}

sub put
{
        local($html) = @_;
        if ($CONF{'charset'} ne "" && $CONF{'charset'} ne "sjis") {
                &jcode'convert(*html, $CONF{'charset'});
        }
        print $html;
}

#____�T�u���[�`���Q

###
# �N�G���[������ǂݍ���
#
# @return void
#
sub get_query_string
{
        local($conv) = @_;
        local($a, $name, $value, $query_string);
        if ($ENV{'REQUEST_METHOD'} eq "POST") {
                read(STDIN, $query_string, $ENV{'CONTENT_LENGTH'});
        } else {
                $query_string = $ENV{'QUERY_STRING'};
        }
        @a = split(/\&/, $query_string);
        foreach $a (@a) {
                ($name, $value) = split(/=/, $a);
                $value =~ tr/+/ /;
                $value =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg;
                if ( $conv ne "" ) {
                        &jcode::convert(\$value,$conv);
                }
                $FORM{$name} = $value;
        }
}

###
# content-type�w�b�_
# @param string
#
# @return string
#
sub content_type
{
        if ($_content_type_printed) {
                return("");
        }
        $_content_type_printed = 1;
        return("Content-type: $_[0]\n\n");
}

###
# {}�Ɉ͂܂ꂽ�L�[��b�V���Œu��
#
# @param *hash �u�������[�ƒl
# @param string �u���Ώ�
#
# @return string �u���ς̑Ώ�
#
sub replace_hash
{
        local(*hash, $body) = @_;
        local($key, $value);
        while ( ($key, $value) = each %hash) {
        $body =~ s/\{$key\}/$value/g;
        }
        return($body);
}

###
# �t�@�C���̏��𓾂�# @param string �p�X
#
# @return hash �t�@�C���̏�
#
sub file_state
{
        my($path) = @_;
        my %data;
        ($data{'dev'},
         $data{'ino'},
         $data{'mode'},
         $data{'nlink'},
         $data{'uid'},
         $data{'gid'},
         $data{'rdev'},
         $data{'size'},
         $data{'atime'},
         $data{'mtime'},
         $data{'ctime'},
         $data{'blksize'},
         $data{'blocks'}) = stat($path);
        return(%data);
}

sub enforce_figure
{
        local($string, $figure) = @_;
        return(substr('0000000000000000' . $string, 16 + length($string) - $figure, $figure));
}