trunk/html/index.cgi

#!/usr/bin/perl -w

use strict;
use CGI qw/:standard -no_xhtml/;
use CGI::Carp qw(fatalsToBrowser);
use Template;
use lib '../';
use MWS;

use Data::Dumper;

print header(-charset=>'iso-8859-2');
print start_html(-title=>'Mail::Box Web Search'),start_form;
print textfield('search');
print submit(-value=>'Find!');
print end_form,hr;

my $s=param('search');

if ($s) {

        my $mws = MWS->new('../global.conf');

        my $results = $mws->search($s);
        print "$results results...\n";

        my $t = Template->new({
                INCLUDE_PATH => $mws->{config}->val('global', 'templates'),
        });

        my @res = $mws->fetch_all_results();

        $t->process("results.html", {
                query   => $s,
                results => \@res,
        }) || die $t->error();

}

1	dpavlin	4	#!/usr/bin/perl -w
2
3			use strict;
4			use CGI qw/:standard -no_xhtml/;
5			use CGI::Carp qw(fatalsToBrowser);
6			use Template;
7			use lib '../';
8			use MWS;
9
10			use Data::Dumper;
11
12			print header(-charset=>'iso-8859-2');
13			print start_html(-title=>'Mail::Box Web Search'),start_form;
14			print textfield('search');
15			print submit(-value=>'Find!');
16			print end_form,hr;
17
18			my $s=param('search');
19
20			if ($s) {
21
22			my $mws = MWS->new('../global.conf');
23
24			my $results = $mws->search($s);
25			print "$results results...\n";
26
27			my $t = Template->new({
28			INCLUDE_PATH => $mws->{config}->val('global', 'templates'),
29			});
30
31			my @res = $mws->fetch_all_results();
32
33			$t->process("results.html", {
34			query => $s,
35			results => \@res,
36			}) \|\| die $t->error();
37
38			}
39