/[global]/global/htags/global.cgi.tmpl.in
ViewVC logotype

Diff of /global/htags/global.cgi.tmpl.in

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by shigio, Tue Mar 22 08:02:03 2005 UTC revision 1.7 by shigio, Tue Mar 29 04:43:18 2005 UTC
# Line 17  Line 17 
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.
# Line 35  if (! -x '@globalpath@' || ! -x '@gtagsp Line 35  if (! -x '@globalpath@' || ! -x '@gtagsp
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'});
# Line 49  if ($form{'pattern'} eq '') { Line 49  if ($form{'pattern'} eq '') {
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'};
# Line 86  if ($form{'id'}) { Line 86  if ($form{'id'}) {
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  }  }
# Line 98  if ($flag eq 'g' || $flag eq 'I' || $for Line 98  if ($flag eq 'g' || $flag eq 'I' || $for
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("../..");
# Line 106  if ($flag eq 'g' || $flag eq 'I' || $for Line 106  if ($flag eq 'g' || $flag eq 'I' || $for
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 {
# Line 122  if ($form{'type'} eq 'source') { Line 122  if ($form{'type'} eq 'source') {
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";
# Line 134  if ($form{'type'} eq 'source') { Line 134  if ($form{'type'} eq 'source') {
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  #  #
# Line 145  if ($?) { Line 145  if ($?) {
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);
# Line 159  if ($?) { Line 159  if ($?) {
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
# Line 179  if ($cnt == 0) { Line 179  if ($cnt == 0) {
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!

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26