- 34 名前：ディストリいっぱい [2014/05/08(木) 23:50:10.89 ID:ES9LVHIm.net]
- 書き換えたcgi。書き換えたのが悪かったんでしょうか？パスとxx.pngのところを書き換えただけなんですけど。。
#!/usr/bin/perl
use strict;
use warnings;
my @from= (
'/home/murakami/www/2ch-net/00.png', #-- 0, 6,12,18
'/home/murakami/www/2ch-net/01.png', #-- 1, 7,13,19
'/home/murakami/www/2ch-net/02.png', #-- 2, 8,14,20
'/home/murakami/www/2ch-net/03.png', #-- 3, 9,15,21
'/home/murakami/www/2ch-net/04.png', #-- 4,10,16,22
'/home/murakami/www/2ch-net/99.png', #-- 5,11,17,23
)
my ($hour) = (localtime(time))[2];
print "Content-type: image/png\n\n";
open IMG,$from[$hour];
print <IMG>;
close IMG;
|
 |
