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

$kigen → $
@kigen → @

920行目  my (@guest_list,@kigen,@mail);
930行目  $kigen[$guest_count] = $guest_list[$guest_count] + $kikan * 3600 * 24;
931行目  if ($kigen[$guest_count] < time) {
937行目  $kigen[$guest_count] = 0;
950行目  my $opc = (int(($kigen[$count] - time) / ($kigen[$count] - $guest_list[$count]) * 100) / 100) + 0.1;
954行目  if (! $kigen[$count]) {
963行目  my $com = qq(ゲストアカウント$guest_list[$count]\n) . &presenttime($kigen[$count]) . qq(まで有効);
1839行目  my $kigen = param('time') + $del_day * 3600 * 24;
1840行目  my $tmp = &presenttime($kigen);
2264行目  my $kigen = &presenttime(param('time') + param('kigen') * 3600 * 24);
2265行目  $kigen =~ s/:\d{2}$//;
2327行目  my $kigen = &presenttime(param('time') + param('kigen') * 3600 * 24);
2328行目  $kigen =~ s/:\d{2}$//;
2524行目  my $kigen = &presenttime($tm + $kday * 3600 * 24);
2525行目  $kigen =~ s/:\d{2}$//;
2566行目  my $kigen = param('kigen');
2567行目  chomp $kigen;
2570行目  $kigen = 0 if ! $kigen;
2572行目  if ((! $kigen && $count eq $max_day{"$id"}) || $count eq $kigen) {
2578行目  if ($kigen eq 'p') {