このところHPの更新をちょっとずつしています。
昨日は
ふらふらの隠し部屋を更新しました。
最初は一昨日更新した
多摩川散策へのリンクを書き換えて終りにするつもりだったのですが、掲示板スクリプトを更新することにしました。
以前チェックした時掲示板へ大量のSPAM書込みがあって慌てて掲示板を一旦閉鎖しました。
今回SPAM書込みを避けるために書込み時に認証コードを入れてもらうようにしました。
これでSPAM書込みがなくなるかは定かではないのですが当面これで行ってみようと思っています。
perlスクリプトを修正するのは久しぶりのことでしたので掲示板スクリプトがどうなっていたかなどすっかり忘れてしまっていました。
スクリプトの開発環境として
AN HTTPDを使用しているのですがこの辺のことも忘れてしまっていました。
昔スクリプトを組んだ時に色々試したファイルがあってどれが何だったかさっぱり思い出せませんでした。
エディタでいくつもスクリプトファイルを開いて中身を確かめたりしている間に時間ばかり経ってしまいなかなか実際の更新作業に入れませんでした。
修正自体はそれほど難しくも無くランダムに発生させた認証コードと入力されたコードを比較して一致したときだけ書込み処理をするだけです。
ちゃんとするにはコードが一致しなかったときの処理などをもう少し見直す必要があるのですが、今回はその辺は端折ってしまいました。
今回の更新でいくつか躓きました。
一つ目はランダムな文字列の作成に使ったString::Randomです。
ローカルで試して上手くいったのですが、xreaに設置してみたら動きませんでした。
どうやらxreaは対応していないみたいです。
googleで検索してみたらぴったりのものが見つかりました。
perlでランダムな文字列を作りたい -OKWave
今回はこれをそのまま使わせてもらいました。
この位なら自分でも作れるのですが、車輪の再発明はなるべくしないようにしました。
スクリプトを公表するなら著作権のこともあるので自作するのですが、このスクリプトは公開するつもりはありません。
それともう一つ躓いたのが開発環境と実際に設置したxreaのperlのパス名が違っていたのを忘れていたことです。
以前頻繁にスクリプトを更新していたころもこの間違いは良くあったのですが、その頃はスクリプトが実行できなければperlのパスを真っ先に確認するのが体に染み付いていたのですが、久しぶりだったので原因をつきとめるのに時間が掛かってしまいました。
しばらくHPの更新もperlスクリプトの作成もしていなかったので、何をするにも時間が掛かりあまり捗らないのが辛いです。
PR
