swish-e/pod/search.cgi

#!/usr/local/bin/perl -w
=pod

    If this text is displayed on your browser then your web server
    is not configured to run .cgi programs.

=cut

    use strict;
    use CGI;

    my $swish_binary = './swish-e';

    my $q = CGI->new;


    print $q->header,
          header(),
          $q->start_form,
          '<p><center>',
          $q->textfield(
                -name       => 'query',
                -size       => 40,
                -maxlength  => 60,
          ),
          ' &nbsp; ',
          $q->submit,
          '</center><p>',
          $q->end_form;

    show_results( $q ) if $q->param('query');

    print footer();

    
#============================================
sub show_results {
    my $q = shift;

    my $query = $q->param('query') || '';

    for ( $query ) {
        s/^\s+//;
        s/\s+$//;
        tr/\0//d;
    }

    return unless $query;


    my $pid;

    if ( $pid = open( SWISH, '-|' ) ) {
        my @rows;

        while (<SWISH>) {

            next unless /^\d/;
            chomp;

            my ($rank,$url,$title,$size) = split /::/;

            my $link = $q->a({ href => $url}, ($title || 'no title') );

            push( @rows,
                    $q->td( {align=>'right'}, $rank ) . 
                    $q->td( {align=>'left'}, $link ) .
                    $q->td( {align=>'right'}, $size )
            );
        }
        if ( @rows ) {
            print '<h2 align=center>Found: ',
                  scalar @rows,
                  (scalar @rows > 1) ? ' hits' : ' hit',
                  '</h2>';
                  
            unshift @rows, $q->th(['Rank','Title','Length']);
            print $q->table({align=>'center'}, $q->Tr( \@rows ) );
        } else {
            print '<h2 align=CENTER>Failed to find any results</h2>';
        }
    } else {
        unless ( defined $pid ) {
            print "<h2 align=CENTER>Failed to Fork: $!</h2>";
            return;
        }
        

        exec $swish_binary,
            '-w', $query,
            '-d','::';

        die "Failed to exec '$swish_binary' Error:$!";
    }
}

sub header {
    return <<EOF;
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
 
<html>
<head>
    <title>SWISH-Enhanced</title>
    <link href="style.css" rel=stylesheet type="text/css" title="refstyle">
</head>

<body>

    <h1 class="banner">
        <img src="images/swish.gif" alt="Swish Logo"><br>
        <img src="images/swishbanner1.gif"><br>
        <img src="images/dotrule1.gif"><br>
        <img src="images/swish2.gif" alt="SwishE2 Logo">
    </h1>

    <center>
        <a href="index.html">Table of Contents</a>
    </center>

    <p>
EOF
}

sub footer {
    return <<EOF;
    
    <P ALIGN="CENTER">
    <IMG ALT="" WIDTH="470" HEIGHT="10" SRC="images/dotrule1.gif"></P>
    <P ALIGN="CENTER">

    <div class="footer">
        <BR>SWISH-E is distributed with <B>no warranty</B> under the terms of the
        <A HREF="http://www.fsf.org/copyleft/gpl.html">GNU Public License</A>,<BR>
        Free Software Foundation, Inc., 
        59 Temple Place - Suite 330, Boston, MA  02111-1307, USA<BR> 
        Public questions may be posted to 
        the <A HREF="http://swish-e.org/Discussion/">SWISH-E Discussion</A>.
    </div>

  </body>
</html>
EOF
}
1	#!/usr/local/bin/perl -w
2	=pod
3
4	If this text is displayed on your browser then your web server
5	is not configured to run .cgi programs.
6
7	=cut
8
9	use strict;
10	use CGI;
11
12	my $swish_binary = './swish-e';
13
14	my $q = CGI->new;
15
16
17	print $q->header,
18	header(),
19	$q->start_form,
20	'<p><center>',
21	$q->textfield(
22	-name => 'query',
23	-size => 40,
24	-maxlength => 60,
25	),
26	'   ',
27	$q->submit,
28	'</center><p>',
29	$q->end_form;
30
31	show_results( $q ) if $q->param('query');
32
33	print footer();
34
35
36	#============================================
37	sub show_results {
38	my $q = shift;
39
40	my $query = $q->param('query') \|\| '';
41
42	for ( $query ) {
43	s/^\s+//;
44	s/\s+$//;
45	tr/\0//d;
46	}
47
48	return unless $query;
49
50
51	my $pid;
52
53	if ( $pid = open( SWISH, '-\|' ) ) {
54	my @rows;
55
56	while (<SWISH>) {
57
58	next unless /^\d/;
59	chomp;
60
61	my ($rank,$url,$title,$size) = split /::/;
62
63	my $link = $q->a({ href => $url}, ($title \|\| 'no title') );
64
65	push( @rows,
66	$q->td( {align=>'right'}, $rank ) .
67	$q->td( {align=>'left'}, $link ) .
68	$q->td( {align=>'right'}, $size )
69	);
70	}
71	if ( @rows ) {
72	print '<h2 align=center>Found: ',
73	scalar @rows,
74	(scalar @rows > 1) ? ' hits' : ' hit',
75	'</h2>';
76
77	unshift @rows, $q->th(['Rank','Title','Length']);
78	print $q->table({align=>'center'}, $q->Tr( \@rows ) );
79	} else {
80	print '<h2 align=CENTER>Failed to find any results</h2>';
81	}
82	} else {
83	unless ( defined $pid ) {
84	print "<h2 align=CENTER>Failed to Fork: $!</h2>";
85	return;
86	}
87
88
89	exec $swish_binary,
90	'-w', $query,
91	'-d','::';
92
93	die "Failed to exec '$swish_binary' Error:$!";
94	}
95	}
96
97	sub header {
98	return <<EOF;
99	<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
100
101	<html>
102	<head>
103	<title>SWISH-Enhanced</title>
104	<link href="style.css" rel=stylesheet type="text/css" title="refstyle">
105	</head>
106
107	<body>
108
109	<h1 class="banner">
110	<img src="images/swish.gif" alt="Swish Logo"><br>
111	<img src="images/swishbanner1.gif"><br>
112	<img src="images/dotrule1.gif"><br>
113	<img src="images/swish2.gif" alt="SwishE2 Logo">
114	</h1>
115
116	<center>
117	<a href="index.html">Table of Contents</a>
118	</center>
119
120	<p>
121	EOF
122	}
123
124	sub footer {
125	return <<EOF;
126
127	<P ALIGN="CENTER">
128	<IMG ALT="" WIDTH="470" HEIGHT="10" SRC="images/dotrule1.gif"></P>
129	<P ALIGN="CENTER">
130
131	<div class="footer">
132	<BR>SWISH-E is distributed with <B>no warranty</B> under the terms of the
133	<A HREF="http://www.fsf.org/copyleft/gpl.html">GNU Public License</A>,<BR>
134	Free Software Foundation, Inc.,
135	59 Temple Place - Suite 330, Boston, MA 02111-1307, USA<BR>
136	Public questions may be posted to
137	the <A HREF="http://swish-e.org/Discussion/">SWISH-E Discussion</A>.
138	</div>
139
140	</body>
141	</html>
142	EOF
143	}