root/trunk/dlcounter/dlcounter.cgi

#!/usr/local/bin/perl

# �������c�c�E�E����

# ���C�u�����ւ̃p�X
require './cclib.pl';

# �Ǘ��p�X���[�h�i�K���ύX���邱�ƁI�I�j
$password = '1234';

# CGI�t�@�C����
$cgifilename = 'dlcounter.cgi';

# ���O�t�@�C����
$logfilename = 'dlcounter.log';

# �������c�c�E�E�ݒ肱���܂�

        $admin_bgcolor       = "#FFFFFF" ;
        $admin_bgcolor_table = "#DDDDDD" ;
        $admin_fontcolor     = "#000000" ;
        $admin_bordercolor   = "#666666" ;

        &formdecord();
        $f_name = $FORM{'name'};
        $f_url  = $FORM{'url'};

        if ( ( $FORM{'url'} ne "" ) and ( $FORM{'name'} ne "" ) ) { &mode_download(); exit }
        if ( ( $FORM{'url'} ne "" ) and ( $FORM{'name'} eq "" ) ) { &error('�p�����[�^���������� exit }
        if ( ( $FORM{'mode'} eq "admin" ) && ( $FORM{'password'} eq $password ) ) { &mode_admin(); exit; }
        if ( ( $FORM{'mode'} eq "edit" ) && ( $FORM{'password'} eq $password ) ) { &mode_edit(); exit; }
        if ( ( $FORM{'mode'} eq "editwrite" ) && ( $FORM{'password'} eq $password ) ) { &mode_editwrite(); exit; }
        &mode_login();

exit;

# �������c�c�E�E�_�E�����[�h
sub mode_download {

        # ���O�ǂݍ���
        open ( IN , "< $logfilename" );
        chop(@log = <IN>);
        close(IN);

        foreach $fr (@log) {
                @data = split(/\t/,$fr);
                ( $count{$data[1]} , $name{$data[1]} , $url{$data[1]} , $date{$data[1]} ) = @data;
        }

        $count{$f_name}++;
        $name{$f_name} = $f_name;
        $url{$f_name} = $f_url;
        $time = time();
        $date{$f_name} = $time;

        # ���O�����o��
        open ( OUT , "> $logfilename" );
        while (($key , $value) = each(%name)) {
                print (OUT "$count{$key}\t$name{$key}\t$url{$key}\t$date{$key}\n");
        }
        close(OUT);
        print "location: $f_url\n\n";
}

# �������c�c�E�E���O�C�����[�h

sub mode_login
{
        $message = "�p�X���[�h��͂��Ă�������";
        if ( $FORM{'mode'} eq "admin" ) {
                $message = "<b><font color=red>�p�X���[�h���Ԉ��Ă��܂�</font></b>";
        }
        &htmlheader();
        &puthtml("top","�~�X�_�E�����[�h�J�E���^�[�Ǘ��y�[�W","$admin_fontcolor","$admin_bgcolor");
        print <<"HTML";
<h2 style="font-size:100%">�� ���O�C��</h2>
<form name="form" method="post" action="$cgifilename" style="display:inline">
<div style="margin-left:2em">
$message<br>
<input type="password" name="password" size="12" value="">
<input type="submit" name="submit" value="���O�C��">
<input type="hidden" name="mode" value="admin">
</div>
</form>
HTML
        &puthtml("bottom");
}

# �������c�c�E�E�Ǘ����[�h

sub mode_admin
{
        &loadlog();
        &htmlheader();
        &puthtml("top","�~�X�_�E�����[�h�J�E���^�[�Ǘ��y�[�W");
        $tdmargin = "20";
        print <<"HTML";
<div align="center">
<table frame="border" rules="groups" border="1" bordercolor="$admin_bordercolor" cellspacing="0" cellpadding="4">
<thead><tr style="font-weight:bold;background-color:$admin_bgcolor_table"><td>����/td><td>���O</td><td>DL��</td><td>�ŏIDL��></tr></thead>
<tbody>
HTML

        $no = 1;
        $count_total = 0;
        foreach $fr (@s_count) {
                ( $a , $name ) = split ( /\t/ , $fr );
                &maketime($date{$name});
                print <<"HTML";
<tr style="font-size: 90% ; line-height: 130%"><td style="text-align:right">$no</td><td><a href=$url{$name}>$name</a></td><td style="text-align:right">$count{$name}</td><td>$year/$mon/$mday $hour:$min</td></tr>
HTML
                $no++;
                $count_total += $count{$name};
        }

        print <<"HTML";
<tr style="font-size: 90% ; line-height: 130%;background-color:$admin_bgcolor_table"><td style="text-align:right"></td><td><strong>�v</strong></td><td style="text-align:right"><strong>$count_total</strong></td><td></td></tr>
</tbody>
</table>
</div>
<div align="center">
<form name="form" method="post" action="$cgifilename" style="display:inline">
<input type="hidden" name="mode" value="admin">
<input type="hidden" name="password" value="$password">
<input type="submit" name="submit" value="�X�V">
</form>
<form name="form" method="post" action="$cgifilename" style="display:inline">
<input type="hidden" name="mode" value="edit">
<input type="hidden" name="password" value="$password">
<input type="submit" name="submit" value="�f�[�^�ҏW">
</form>
</div>
HTML
        &puthtml("bottom");
}

# �������c�c�E�E�f�[�^�ҏW���[�h

sub mode_edit
{
        &loadlog();
        &htmlheader();
        &puthtml("top","�~�X�_�E�����[�h�J�E���^�[�Ǘ��y�[�W");
        $tdmargin = "20";
        print <<"HTML";
<form name="form" method="post" action="$cgifilename">
<UL>
<LI>���ڂ�������ꍇ�́A���O������ɂ��ĉ�����</LI>
<LI>���ڂ��������ꍇ�́A�ʼn��ʂ̋󗓂ɓ�ĉ�����</LI>
</UL>
<div align="center">
<table frame="border" rules="groups" border="1" bordercolor="$admin_bordercolor" cellspacing="0" cellpadding="4">
<thead>
<tr style="font-weight: bold" bgcolor="$admin_bgcolor_table"><td>���O</td><td>DL��</td></tr></thead>
<tbody>
HTML

        $no = 1;
        foreach $fr (@s_count) {
                ( $a , $name ) = split ( /\t/ , $fr );
                # &maketime($date{$name});
                print <<"HTML";
<tr style="font-size: 90% ; line-height: 130%">
<td><input type="text" name="name$no" value="$name" size="16"></td>
<td><input type="text" name="count$no" value="$count{$name}" size="10"></td>
<input type="hidden" name="nameold$no" value="$name">
<input type="hidden" name="url$no" value="$url{$name}">
<input type="hidden" name="date$no" value="$date{$name}">
</tr>
HTML
                $no++;
        }
        $date = time();
        print <<"HTML";
<tr style="font-size: 90% ; line-height: 130%">
<td><input type="text" name="name$no" value="" size="16"></td>
<td align="right"><input type="text" name="count$no" value="" size="10"></td>
<input type="hidden" name="url$no" value="">
<input type="hidden" name="date$no" value="$date">
</tr>
HTML

        print <<"HTML";
</tbody>
</table>
<input type="hidden" name="mode" value="editwrite">
<input type="hidden" name="password" value="$password">
<input type="hidden" name="dataquantity" value="$no">
<p>
<input type="submit" name="submit" value="���M">
</p>
</form>
<form name="form" method="post" action="$cgifilename">
<input type="hidden" name="mode" value="admin">
<input type="hidden" name="password" value="$password">
<input type="submit" name="submit" value="�߂�
</form>
</div>
HTML
        &puthtml("bottom");
}

# �������c�c�E�E�f�[�^����������s
sub mode_editwrite()
{
        # ���O�����o��
        open ( OUT , "> $logfilename" );
        for ( $fo = 1 ; $fo <= $FORM{dataquantity} ; $fo++ ) {
                $count = $FORM{'count'.$fo};
                $name = $FORM{'name'.$fo};
                $url = $FORM{'url'.$fo};
                $date = $FORM{'date'.$fo};
                if ( $name ne "" ) {
                        print (OUT "$count\t$name\t$url\t$date\n");
                }
        }
        close(OUT);
        &mode_admin();
}

# �������c�c�E�E����GI��L�̃��C�u�������[�`��
sub loadlog {
        # ���O�ǂݍ���
        open ( IN , "< $logfilename" );
        chop(@log = <IN>);
        close(IN);

        foreach $fr (@log) {
                @data = split(/\t/,$fr);
                ( $count , $name , $url , $date ) = @data;
                ( $count{$name} , $name{$name} , $url{$name} , $date{$name} ) = @data;
                $count = substr ( '0000000000'.$count , length ( $count ) );
                push ( @s_count , "$count\t$name" );
                push ( @s_name  , "$name\t$name" );
                push ( @s_url   , "$url\t$name" );
                push ( @s_date  , "$date\t$name" );
        }
        @s_count = reverse ( sort ( @s_count ) );
        @s_name  = sort ( @s_name );
        @s_url   = sort ( @s_url );
        @s_date  = reverse ( sort ( @s_date ) );
}

# �������c�c�E�E���C�u�������[�`��

# �G���[�\��
sub error {
        print <<"HTML";
<head>
<meta http-equiv="Content-Type" content="text/html; charset=x-sjis">
<title>�_�E�����[�h�J�E���^�[�G���[</title>
</head>
<body>
<h3>�_�E�����[�h�J�E���^�[�G���[</h3>
<hr>
$_[0]
</body>
HTML
}