投稿できるかな?
今日は画像キャッシュ用のCGI作ってました。
参考にしたのは
Perl表技集と
PHPだけど
PHPで画像の縮小+キャッシュなど
一応、基本的な部分は、
#!/usr/bin/perl
use strict;
use warnings;
use LWP::Simple;
use CGI;
use File::Basename;my $CACHEDIR = ‘<キャッシュを置くディレクトリ>’;
my $BASEDIR = ‘<ホームページのトップディレクトリ>’;my $cgi = CGI->new();
my $file = $cgi->param(’filename’);my $dir = dirname($file);
my $basefile = basename($file);my @dirs = split("/”, $dir);
my ($d, $mkdir);
foreach my $d (@dirs){
next unless $d;
$mkdir .= ‘/’.$d;
unless (-d $BASEDIR.$CACHEDIR.$mkdir){
mkdir $BASEDIR.$CACHEDIR.$mkdir;
}
}
unless(-f $BASEDIR.$CACHEDIR.$file){
my $getstat = getstore(’http:/’.$file, $BASEDIR.$CACHEDIR.$file);
}print $cgi->redirect($file);
って感じで、.htaccessに
RewriteCond %{REQUEST_FILENAME} ^.*$
RewriteCond %{REQUEST_FILENAME} !-f
RewriteRule ^(.*)/(.*)(jpeg|jpg|gif|pnd)$ <CGIのファイル名>?filename=/$1/$2$3 [R]
って記述を設定してCGIと同じディレクトリに。
URLにアクセスすると、キャッシュがあればそのままキャッシュを返す、無ければダウンロードしてキャッシュに保存・リダイレクトって感じです。
面白くないし、いらつくんで、ちょっと現実逃避してから寝ます。
近況として、最近は仕事でColdFusion使ってます。
あまり、PHPと変わんないような利点が無いような?(^^;
どうなんだろ
多分もう、PにもSにも行かないかな
金曜日から連続飲酒状態(X_X)
飲めば飲むだけ落ちるけど、アルコール抜けないや
何もやる気しないや
http://red.ap.teacup.com/teampk/
http://pink.ap.teacup.com/umesyuka/
1月からやってるサーバの変更だけど、なかなか思うように進んでないです ![]()
一応、予定としては
・xoops関連は新規インストール
・ブログとリンク集のみデータ引継ぎ
って感じにしようと思っています。
悪かったことを無いことにするのは良くないよね?
正しいことを不正だって文句つけるのも良くないんじゃないかな?
そのまま力で意見を変えさせるのはもっと良くないことだと思うよ。
心技体がまったく…全然…無いのに、反骨の○○王なんて名乗ってほしくないや。
○○をちょっとやってた身としては、恥ずかしいや。
谷○と石○とT○Sはいなくなってほしいかな
忘れないようにメモ。
職場ではOutlook2007とMcAfeeを使用しているんだけど、naCmnLib.dll周りでOutlook2007がエラーで落ちる様になった(X_X)
ちょっとググってみて
Outlook 2007 and McAfee 8 - The required file naCmnLib.dll cannot be found in your path. Install Microsoft Office Outlook again.で対応。
naCmnLib.dllが置かれているディレクトリにpathを通すと動く見たい^^;
48 queries. 0.415 sec.
Powered by WordPress Module based on WordPress ME & WordPress
49pt (IN:0, OUT:49) |
39pt (IN:0, OUT:39) |
39pt (IN:0, OUT:39) |
32pt (IN:0, OUT:32) |
25pt (IN:0, OUT:25) |
25pt (IN:0, OUT:25) |
20pt (IN:0, OUT:20) |
19pt (IN:0, OUT:19) |
16pt (IN:0, OUT:16) |
14pt (IN:0, OUT:14) |