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	#!/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