>>588
2について
メモ帳でもなんでもいいのでテキストエディタでnameicon.cgiという名前のファイルを作る。
そのファイルの中に以下のような感じで名前と画像のファイル名を書き込む。

太郎<>cow.gif<>
次郎<>dog.gif<>
花子<>zou.gif<>

画像のファイル名はinit.cgiの$ico1に書いてあるものにする。今後追加したり削除したりする場合は
nameicon.cgiを書き換えてupする。upする場所はregist.cgiとかと同じ場所。
そうしたら、regist.cgiのregistサブルーチンの # フォーム入力チェック の次あたりに以下を書き込む。

# 名前によってアイコンを指定
open(IN,"nameicon.cgi") || &error("Open Error: nameicon.cgi");
my @list = <IN>;
close(IN);

foreach (@list) {
my ($myname,$myicon) = split (/<>/);

if($in{'name'} eq $myname){
$in{'icon'} = $myicon;
last;
}
}

こんな感じでどうでしょう？試すときはバックアップを取っておいてください。