sub DoOtherRequest { ... if ($action ne "") { $action = lc($action); ############### ### replaced by gypark ### action 모듈화 - 여기서부터 추가 my $action_file = ""; my ($MyActionDir, $ActionDir) = ("./myaction/", "./action/"); if (-f "$MyActionDir/$action.pl") { $action_file = "$MyActionDir/$action.pl"; } elsif (-f "$ActionDir/$action.pl") { $action_file = "$ActionDir/$action.pl"; } if ($action_file ne "") { my $loadaction = eval "require '$action_file'"; if (not $loadaction) { # action 로드 실패 $UseShortcut = 0; &ReportError(Ts('Fail to load action: %s', $action)); return; } my $func = "action_$action"; &{\&$func}(); return; } ### ############### if ($action eq "edit") { ... }