ご希望のCGIを作成いたします

ご希望のCGIを作成い� ..

872:nobodyさん
07/09/07 19:59:56 y9OmwNJ6
自分のサーバー内に
フォームより送信したディレクトリ（フォルダ）を作成し
その中に決められた名前のhtmlファイルで
フォーム内容を書き出す物を作りたいのですが
----------------------------------------
#!/usr/bin/perl

$len = read(STDIN, $param, 1024);
$param =~ s/%([A-Fa-f0-9]{2})/pack("c",hex($1))/ge;
@plist = split(/&/, $param);
foreach $strdat (@plist){
($key, $val) = split(/=/, $strdat);
$prm{$key} = $val;
}
$userid = "test";
$userpwd = "test";
if (($prm{userid} eq $userid) and ($prm{userpwd} eq $userpwd)){
mkdir $prm{folder},eval("0$prm{fmod}");
print "作成完了！<br><br>\n";
print "フォルダ名：$prm{folder}<br>\n";
print "パーミッション：$prm{fmod}<br>\n";
}else{
print "<h3>ユーザーID、パスワードが違います。</h3>";
}
--------------------------------------------

次ページ

続きを表示

1を表示