listscript_XMP.cgi
<![CDATA[1 #!/usr/bin/perl
2 #%% Print script source in html using XMP tag | GEN | --
3 #________________________________________________________
4 $|=1;
5 use CGI ':standard';
6 $file = param('file') || $0; # File to be listed
7 $ss = param('ss'); # Search String
8 $hide = param('hide');
9
10 print header, "<body bgcolor=white>",
11 "<div align=right><h3><font color=blue>$file</font></h3></div>";
12 open (FF, $file) || error ("$file - $!");
13 if ($hide) {
14 print start_form, submit(-name=>'show', -value=>'Show Line Numbers'), hidden('file', $file), hidden('ss',$ss), end_form;
15 }
16 else {
17 print start_form, submit(-name=>'hide', -value=>'Hide Line Numbers'), hidden('file', $file), hidden('ss',$ss), end_form;
18 }
19
20 #print start_form,"Search for: ",textfield(-name=>'ss'), ' ', submit('Submit'),
21 #hidden('file', $file), end_form;
22
23 print "<XMP>";
24 if ($hide){
25 for (<FF>) {
26 print;
27 }
28 }
29 else {
30 for (<FF>) {
31 if ($ss) {$star=(/\Q$ss\E/oi)?'*':();}
32 print ++$i,"$star $_";
33 }
34 }
35
36 sub error {
37 print "<h2>Error</h2>",shift; # show error before dying
38 die;
39 }]]>