mstkのXOOPS HomePage - mstkのXOOPS HomePage ブログ

本日よりサーバ移行を行います。
安定するのは今週いっぱいかな？

金曜日からほとんど寝むれないや
薬使って、今朝やっと3時間寝たけど
ダメだ…

すべてもうおしまい

今日は画像キャッシュ用の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を通すと動く見たい^^;

今月中にサーバ移転する予定です。
アドレスは変わんないようにするんで、これからもよろしくですm(__)m

うまく移転できたらblogの方に手順載せますm(__)m

あ〜だめだだめだだめだだめだだめだだめだだめだ
落ちる落ちる落ちる落ちる落ちる
少し飲んでから寝ます

一応、メモ。
ユーザー領域にCPANをインストールする方法を参照して設定。

.bashrcに以下を追加
export PATH=$HOME/local/bin:$HOME/local/script:$PATH
perlversion=`perl -v | grep ‘built for’ | awk ‘{print $4}’ | sed -e ’s/v//;’`
export PERL5LIB=$HOME/local/share/perl/$perlversion:$HOME/local/lib/perl/$perlversion:$HOME/local/lib:$PERL5LIB
export PERL_AUTOINSTALL=”–defaultdeps” # インストール時にyの入力を抑止
export FTP_PASSIVE=1 # passive modeでFTPダウンロード

rootで$HOME/local/share/perlを/usr/local/share/perlにリンクさせる(/usr/local/share/perl以下にインストールはされないんだけど、いちいち聞いてくるのがウザイんで^^;)。

$HOME/.cpan/CPAN/MyConfig.pmに以下を設定。
‘make_install_arg’ => qq[PREFIX=$HOME/local SITEPREFIX=$HOME/local],
‘makepl_arg’ => qq[INSTALLDIRS=site install_base=$HOME/local PREFIX=$HOME/local LIB=$HOME/local/lib INSTALLMAN1DIR=$HOME/local/man/man1 INSTALLMAN3DIR=$HOME/local/man/man3],
‘mbuild_arg’ => qq[-L$HOME/local/lib],
‘mbuildpl_arg’ => qq[./Build –install_base $HOME/local],

CPANの対話モードから
force install Task::Catalyst
を実行。
Module::Build is not configured with C_support の対処方法を参考にいろいろインストール。
(うまくいかないときはforceでインストール)

大体インストールし終わったら、CPANの対話モードで
recompile
を実行。

うまくいったみたいだけど、どうかな？
不具合あったら追記します。

7日まで休み
いろいろやりたいこともあるけど、どこまでできるかな？

15日から仕事で使うため勉強中。
あちこちググったりしてインストールは無事完了。
正月休み(あるのかな？ )に個人的になんかつくろうかな。