#!/usr/bin/perl
# +--------+
# BnrManager バナー広告出力管理スクリプト | bm.cgi |
#---------------------------------------------------------------------+--------+
# 20030624
#-------------------------------------------------------------------------------
#-------------------------------------------------------------------- 初期設定▼
#use strict;
$| = 1;
my(%INI,@bnr_files,$put_bnr_number);
# バナーリストディレクトリ
$INI{'bnr_files_dir_path'} = './dat/';
#-------------------------------------------------------------------------------
#-------------------------------------------------------------- メインルーチン▼
srand(time|$$);
opendir(DIR,"$INI{'bnr_files_dir_path'}") || die('can not open bnr dir!');
foreach (readdir(DIR)){
if($_ =~ /^bnr_[a-zA-Z0-9]+\.txt$/){
push(@bnr_files,"$_");
}
}
closedir(DIR);
$put_bnr_number = int(rand($#bnr_files + 1));
print "Content-type: text/html;\n\n";
open(BNR,"$INI{'bnr_files_dir_path'}$bnr_files[$put_bnr_number]") || die('can not open bnr file!');
while (){
print $_;
}
close(BNR) || die('can not close bnr file!');
exit(0);
#-------------------------------------------------------------------------------
# Copyright (c) 2001-CurrentYear bayashi.net. All rights reserved.
# http://tech.bayashi.net/
高単価9円のｸﾘｯｸ保証
ﾓﾊﾞｲﾙ広告はｸﾘｯｸ×ｸﾘｯｸ
