17 |
# SO THAT THIS SCRIPT CAN BE EXECUTED AS A CGI COMMAND. THANK YOU. |
# SO THAT THIS SCRIPT CAN BE EXECUTED AS A CGI COMMAND. THANK YOU. |
18 |
#------------------------------------------------------------------ |
#------------------------------------------------------------------ |
19 |
print "Content-type: text/html\n\n"; |
print "Content-type: text/html\n\n"; |
20 |
print "@html_begin@\n"; |
print "@page_begin@\n"; |
21 |
print "@body_begin@\n"; |
print "@body_begin@\n"; |
22 |
$htmlbase = $ENV{'HTTP_REFERER'}; |
$htmlbase = $ENV{'HTTP_REFERER'}; |
23 |
if (!$htmlbase) { |
if (!$htmlbase) { |
24 |
print "@error_begin@Error@error_end@\n"; |
print "@error_begin@Error@error_end@\n"; |
25 |
print "@message_begin@Your browser doesn't send HTTP_REFERER.@message_end@\n"; |
print "@message_begin@Your browser doesn't send HTTP_REFERER.@message_end@\n"; |
26 |
print "@body_end@\n"; |
print "@body_end@\n"; |
27 |
print "@html_end@\n"; |
print "@page_end@\n"; |
28 |
exit 0; |
exit 0; |
29 |
} |
} |
30 |
$htmlbase =~ s!/[^\/]+$!!; # remove file name. |
$htmlbase =~ s!/[^\/]+$!!; # remove file name. |
35 |
print "@error_begin@Error@error_end@\n"; |
print "@error_begin@Error@error_end@\n"; |
36 |
print "@message_begin@Server side command not found. <a href='$htmlbase/mains.@normal_suffix@'>[return]</a>@message_end@\n"; |
print "@message_begin@Server side command not found. <a href='$htmlbase/mains.@normal_suffix@'>[return]</a>@message_end@\n"; |
37 |
print "@body_end@\n"; |
print "@body_end@\n"; |
38 |
print "@html_end@\n"; |
print "@page_end@\n"; |
39 |
exit 0; |
exit 0; |
40 |
} |
} |
41 |
@pairs = split (/&/, $ENV{'QUERY_STRING'}); |
@pairs = split (/&/, $ENV{'QUERY_STRING'}); |
49 |
print "@error_begin@Error@error_end@\n"; |
print "@error_begin@Error@error_end@\n"; |
50 |
print "@message_begin@Pattern not specified. <a href='$htmlbase/mains.@normal_suffix@'>[return]</a>@message_end@\n"; |
print "@message_begin@Pattern not specified. <a href='$htmlbase/mains.@normal_suffix@'>[return]</a>@message_end@\n"; |
51 |
print "@body_end@\n"; |
print "@body_end@\n"; |
52 |
print "@html_end@\n"; |
print "@page_end@\n"; |
53 |
exit 0; |
exit 0; |
54 |
} |
} |
55 |
$pattern = $form{'pattern'}; |
$pattern = $form{'pattern'}; |
86 |
print "@error_begin@Error@error_end@\n"; |
print "@error_begin@Error@error_end@\n"; |
87 |
print "@message_begin@Couldn't find tag directory in secure mode. <a href='$htmlbase/mains.@normal_suffix@'>[return]</a>@message_end@\n"; |
print "@message_begin@Couldn't find tag directory in secure mode. <a href='$htmlbase/mains.@normal_suffix@'>[return]</a>@message_end@\n"; |
88 |
print "@body_end@\n"; |
print "@body_end@\n"; |
89 |
print "@html_end@\n"; |
print "@page_end@\n"; |
90 |
exit 0; |
exit 0; |
91 |
} |
} |
92 |
} |
} |
98 |
print "@error_begin@Error@error_end@\n"; |
print "@error_begin@Error@error_end@\n"; |
99 |
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"; |
100 |
print "@body_end@\n"; |
print "@body_end@\n"; |
101 |
print "@html_end@\n"; |
print "@page_end@\n"; |
102 |
exit 0; |
exit 0; |
103 |
} |
} |
104 |
chdir("../.."); |
chdir("../.."); |
106 |
print "@error_begin@Error@error_end@\n"; |
print "@error_begin@Error@error_end@\n"; |
107 |
print "@message_begin@Couldn't change directory for $form{'type'} search. <a href='$htmlbase/mains.@normal_suffix@'>[return]</a>@message_end@\n"; |
print "@message_begin@Couldn't change directory for $form{'type'} search. <a href='$htmlbase/mains.@normal_suffix@'>[return]</a>@message_end@\n"; |
108 |
print "@body_end@\n"; |
print "@body_end@\n"; |
109 |
print "@html_end@\n"; |
print "@page_end@\n"; |
110 |
exit 0; |
exit 0; |
111 |
} |
} |
112 |
} else { |
} else { |
122 |
print "@error_begin@Error@error_end@\n"; |
print "@error_begin@Error@error_end@\n"; |
123 |
print "@message_begin@Cannot execute gtags. <a href='$htmlbase/mains.@normal_suffix@'>[return]</a>@message_end@\n"; |
print "@message_begin@Cannot execute gtags. <a href='$htmlbase/mains.@normal_suffix@'>[return]</a>@message_end@\n"; |
124 |
print "@body_end@\n"; |
print "@body_end@\n"; |
125 |
print "@html_end@\n"; |
print "@page_end@\n"; |
126 |
exit 0; |
exit 0; |
127 |
} |
} |
128 |
print "@verbatim_begin@\n"; |
print "@verbatim_begin@\n"; |
134 |
close(PIPE); |
close(PIPE); |
135 |
print "@verbatim_end@\n"; |
print "@verbatim_end@\n"; |
136 |
print "@body_end@\n"; |
print "@body_end@\n"; |
137 |
print "@html_end@\n"; |
print "@page_end@\n"; |
138 |
exit 0; |
exit 0; |
139 |
} |
} |
140 |
# |
# |
145 |
print "@error_begin@Error@error_end@\n"; |
print "@error_begin@Error@error_end@\n"; |
146 |
print "@message_begin@Cannot execute global. <a href='$htmlbase/mains.@normal_suffix@'>[return]</a>@message_end@\n"; |
print "@message_begin@Cannot execute global. <a href='$htmlbase/mains.@normal_suffix@'>[return]</a>@message_end@\n"; |
147 |
print "@body_end@\n"; |
print "@body_end@\n"; |
148 |
print "@html_end@\n"; |
print "@page_end@\n"; |
149 |
exit 0; |
exit 0; |
150 |
} |
} |
151 |
$pattern =~ s/([&<>])/$ctab{$1}/ge; |
$pattern =~ s/([&<>])/$ctab{$1}/ge; |
152 |
print "@error_begin@" . $pattern . "@error_end@\n"; |
print "@title_begin@" . $pattern . "@title_end@\n"; |
153 |
print "Following $words are matched to above pattern.@hr@\n"; |
print "Following $words are matched to above pattern.@hr@\n"; |
154 |
$cnt = 0; |
$cnt = 0; |
155 |
local($tag, $lno, $filename, $fileno); |
local($tag, $lno, $filename, $fileno); |
159 |
print "@error_begin@Error@error_end@\n"; |
print "@error_begin@Error@error_end@\n"; |
160 |
print "@message_begin@Cannot execute gtags --convert. <a href='$htmlbase/mains.@normal_suffix@'>[return]</a>@message_end@\n"; |
print "@message_begin@Cannot execute gtags --convert. <a href='$htmlbase/mains.@normal_suffix@'>[return]</a>@message_end@\n"; |
161 |
print "@body_end@\n"; |
print "@body_end@\n"; |
162 |
print "@html_end@\n"; |
print "@page_end@\n"; |
163 |
exit 0; |
exit 0; |
164 |
} |
} |
165 |
$| = 1; # flush buffer |
$| = 1; # flush buffer |
179 |
print "@message_begin@Pattern not found. <a href='$htmlbase/mains.@normal_suffix@'>[return]</a>@message_end@\n"; |
print "@message_begin@Pattern not found. <a href='$htmlbase/mains.@normal_suffix@'>[return]</a>@message_end@\n"; |
180 |
} |
} |
181 |
print "@body_end@\n"; |
print "@body_end@\n"; |
182 |
print "@html_end@\n"; |
print "@page_end@\n"; |
183 |
exit 0; |
exit 0; |
184 |
#------------------------------------------------------------------ |
#------------------------------------------------------------------ |
185 |
# SORRY TO HAVE SURPRISED YOU! |
# SORRY TO HAVE SURPRISED YOU! |