上のディレクトリへ
	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を編集

$max_day → $
%max_day → %

401行目 my (%tm, %mail, %max_day, %max_down, %dlmail);
461行目  my ($tm, $user, $path, $e_pass, $permit, $l_size, $mail,$max_day,$max_down,$dlmail) = split(/\,/,$line);
478行目  $max_day{"$user"} = $max_day;
525行目  my ($tm, $user, $path, $e_pass, $permit, $l_size, $mail,$max_day,$max_down) = split(/\,/,$line);
541行目  $max_day{"$id"} = $del_day;
728行目  my ($time,$name,$dir,$epass,$permit,$l_size,$mail,$max_day,$max_down,$dlmail) = split(/\,/);
730行目  $max_day{"$name"} = $max_day if ! $login_guest;
1837行目  $del_day = $max_day{"$id"} if ! $del_day;
1845行目  chomp $max_day{"$dir_owner"};
1846行目  $max_day{"$dir_owner"} = $auto_delete if ! $max_day{"$dir_owner"};
1847行目  print qq(&nbsp;&nbsp;ファイル保存日数&nbsp;<strong>$max_day{"$dir_owner"}日</strong>);
2519行目  $kday = $max_day{"$id"} if ! $kday;
2568行目  chomp $max_day{"$id"};
2571行目  $max_day{"$id"} = 0 if ! $max_day{"$id"};
2572行目  if ((! $kigen && $count eq $max_day{"$id"}) || $count eq $kigen) {
4559行目  my ($time,$name,$dir,$epass,$perm,$size,$email,$max_day,$max_down,$dlmail) = split(/\,/);
4654行目  if (param('max_day') != $max_day{"$id"}) {
4668行目  $max_day = param('max_day') if param('max_day');
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(/\,/);
4768行目  chomp $max_day{"$id"};
4769行目  $max_day{"$id"} = 0 if ! $max_day{"$id"};
4770行目  if ($max_day{"$id"} == $count || (!$max_day{"$id"} && $count == $auto_delete)) {