89 |
exit 0; |
exit 0; |
90 |
} |
} |
91 |
} |
} |
92 |
if ($flag eq 'g' || $flag eq 'I' || $form{'type'} eq 'source' || ($flag eq 'P' && $oflag)) { |
if ($flag eq 'g' || $flag eq 'I' || $form{'type'} eq 'source') { |
93 |
if (($flag eq 'g' && ! -f "../../GTAGS") |
if (($flag eq 'g' && ! -f "../../GTAGS") |
94 |
|| ($flag eq 'I' && ! -f "../../ID") |
|| ($flag eq 'I' && ! -f "../../ID") |
95 |
|| ($form{'type'} eq 'source' && ! -f "../../GTAGS") |
|| ($form{'type'} eq 'source' && ! -f "../../GTAGS")) { |
|
|| ($flag eq 'P' && $oflag && ! -f "../../GTAGS")) { |
|
96 |
print "@error_begin@Error@error_end@\n"; |
print "@error_begin@Error@error_end@\n"; |
97 |
print "@message_begin@Couldn't execute command. <a href='$htmlbase/mains.@normal_suffix@'>[return]</a>@message_end@\n"; |
print "@message_begin@Couldn't execute command. <a href='$htmlbase/mains.@normal_suffix@'>[return]</a>@message_end@\n"; |
98 |
print "@body_end@\n"; |
print "@body_end@\n"; |