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

$size → $
%size → %

776行目  my ($result,$size,$sec,$msec) = &file_upload($updir,$i); # $result(0:失敗 1:アップロード成功 2:上書きアップロード成功)
791行目  my $size_com = &kiro_byte($size);
1051行目 my (%pm, %size, %mod, %ind, %dir, %decode_name, %download);
1055行目  ($dm,$dm,$pm{"$file"},$dm,$dm,$dm,$dm,$size{"$file"},$dm,$mod{"$file"},$ind{"$file"},$dm) = stat(join('/',$updir,$file));
1061行目  $size{"$file"} = &size_measure(join('/',$updir, $file)) if $show_size;
1068行目  $download{"$file_"} = $size{"$file"};
1098行目  foreach my $key (sort { $size{$b} <=> $size{$a} } keys %size) {
1102行目  foreach my $key (sort { $size{$a} <=> $size{$b} } keys %size) {
1191行目  my $size = &kiro_byte($size{"$_"});
1238行目  my $size;
1240行目  $size = &kiro_byte(&size_measure(join('/',$updir,$link)));
1242行目  $size = "&nbsp;";
1905行目  my $size = &size_measure("$root"); # 専用ディレクトリの現在の総容量を計測
1920行目  } elsif ($usr_max_size && $pre_size + $size > $usr_max_size) {
1921行目  if ($usr_max_size - $size > 0) {
1922行目  $err_comment = qq(残り容量が) . &kiro_byte($usr_max_size - $size) . qq(ありますが、アップロードファイルが) . &kiro_byte($pre_size) . qq(あります。);
2436行目  my $size = length($mail_title) + 4;
2468行目  my (@file_list,%pm, %size, %mod, %ind, %dir, %decode_name);
2506行目  ($dm,$dm,$pm{"$file"},$dm,$dm,$dm,$dm,$size{"$file"},$dm,$mod{"$file"},$ind{"$file"},$dm) = stat(join('/',$updir,$file));
4356行目  my $size = (stat($_))[7];
4366行目  $tree .= qq(<td style="text-align:right;"><span style="font-size:80%">) . &kiro_byte($size) . qq(</span></td>);
4436行目  my $size = &kiro_byte(&size_measure($dir));
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(/\,/);
5716行目  my($size) = 0;
5725行目  $size +=(-s "$path/$entry");
5731行目  $size += &size_measure("$path/$temp");
5733行目  return $size;