-
# ログ更新処理
# unshift (@lines,"$date<>$DAT{'nm'}<>$DAT{'camp'}<>$com<>$DAT{'sogo'}<>$addr<>$host<>$agent<>\n");
unshift (@lines,"$date<>$DAT{'nm'}<>$DAT{'camp'}<>$com<>$DAT{'sogo'}<>$addr<>$host<>$agent<>$DAT{'icon'}<>\n");
open(OUT,">$logfile") || &error("Write Error : $logfile");
-
# <input type=text name="icon" class="button2" style="width:360px">
<input type=text name="icon" value="$icon" class="button2" >
|