上のディレクトリへ
	calendar.cgi
	multiupload.cgi
	subdir

変数名	スカラー	配列	ハッシュ
history	●	●		historyを編集
admin_mail	●	●		admin_mailを編集
ver	●	●		verを編集
access	●	●		accessを編集
path	●	●	●	pathを編集
mode	●		●	modeを編集
subdir	●	●		subdirを編集
sort	●		●	sortを編集
pass	●		●	passを編集
user	●	●		userを編集
dir	●		●	dirを編集
param	●		●	paramを編集
mail	●	●	●	mailを編集
size	●		●	sizeを編集
decode_name	●		●	decode_nameを編集
perm	●	●		permの編集をキャンセル
download	●		●	downloadを編集
tm	●		●	tmを編集
tmp	●	●		tmpを編集
value	●	●		valueを編集
val	●		●	valを編集
oval	●	●		ovalを編集
time	●		●	timeを編集
kigen	●	●		kigenを編集
html	●	●		htmlを編集
raw_pass	●	●		raw_passを編集
msg	●	●		msgを編集
url	●	●		urlを編集
t	●	●		tを編集
rpass	●		●	rpassを編集
htac	●	●		htacを編集
del_htac	●		●	del_htacを編集
d	●	●		dを編集
new_raw_pass	●	●		new_raw_passを編集
dlmail	●		●	dlmailを編集
max_day	●		●	max_dayを編集
max_down	●		●	max_downを編集
new_user	●	●		new_userを編集
str	●	●		strを編集
salt	●	●		saltを編集
host	●		●	hostを編集
cook	●	●	●	cookを編集
dir_user		●	●	dir_userを編集

$perm → $
@perm → @

1197行目  my $perm = sprintf("%o", $pm{"$_"} % 512);
1231行目  $perm = qq(<form action="$script" method="post" style="margin:0;padding:0">) . &hidden_param(%param) . qq(<input type="submit" value="$perm" /></form>\n);
1233行目  $perm = qq(<a href="$script) . &url_param(%param) . qq(">$perm</a>);
1754行目  my @perm;
1757行目  if($permit & $i){ $perm[$count] = 1; }
1758行目  else{ $perm[$count] = 0; }
1761行目  return @perm;
3537行目  my @perm = (' checked="checked"',' checked="checked"','','');
3542行目  $perm[$j] = ' checked="checked"';
3544行目  $perm[$j] = '';
3569行目  $perm[2] = ' checked="checked"' if param('permission');
3570行目  $perm[3] = ' checked="checked"' if param('cgi');
3599行目  $usr_form .= qq(<input type="checkbox" name="upload" value="1"$perm[0] tabindex="$tindx" />作成<span style="font-size:80%">&nbsp;\(ファイルのアップロード、ディレクトリの作成\)</span><br />\n); $tindx++;
3600行目  $usr_form .= qq(<input type="checkbox" name="delete" value="1"$perm[1] tabindex="$tindx" />削除<span style="font-size:80%">&nbsp;\(ファイル、ディレクトリの削除\)</span><br />\n); $tindx++;
3601行目  $usr_form .= qq(<input type="checkbox" name="permission" value="1"$perm[2] tabindex="$tindx" />属性の変更<br />\n); $tindx++;
3607行目  $usr_form .= qq(<input type="checkbox" name="cgi" value="1"$perm[3] tabindex="$tindx" />禁止ファイル$pexの操作</td>\n </tr>\n); $tindx++;
3936行目  my @perm = &perm_list($permit);
3937行目  foreach (@perm) {
4559行目  my ($time,$name,$dir,$epass,$perm,$size,$email,$max_day,$max_down,$dlmail) = split(/\,/);
4670行目  push(@new_user,qq($time,$name,$dir,$epass,$perm,$size,$email,$max_day,$max_down,$dlmail,\n));
4737行目  my ($time,$name,$dir,$epass,$perm,$size,$email,$max_day,$max_down,$dlmail);
4739行目  ($time,$name,$dir,$epass,$perm,$size,$email,$max_day,$max_down,$dlmail) = split(/\,/);