nn/search/nn2-search.cgi

#!/usr/bin/perl -w

use strict;
use CGI qw/:standard -no_xhtml/;
use DBI;
use Text::Query;
use CGI::Carp qw(fatalsToBrowser);

my $url="http://www.nn.hr/CijeliBrojS.asp?god=%d&br=%d&mid=%d#%d";

my %labels = ('Simple'=>'jednostavnim', 'Advanced'=>'naprednim');

my $hits=0;

print header(-charset=>'iso-8859-2'),start_html(-title=>'NN pretrazivanje',-lang=>'hr'),start_form;
print "Tra¾i zakon: ",textfield('search')," sa ";
print popup_menu(-name=>'type',-values=>[ keys %labels ],-labels=>\%labels);
print submit(-value=>'pretra¾ivanjem');
print end_form,hr;

if (param('search') && param('type')) {
        my $question;
        my ($query) = Text::Query->new('blurk', # param('search'),
                -parse => 'Text::Query::Parse'.param('type') || 'Advanced',
                -build => 'Text::Query::BuildSQLPg',
                -fields_searched => 'title_czs',
                -select => 'select br,god,aname,nr,title from nn where __WHERE__ order by god desc,br desc,nr asc'
                );

        my $s=param('search');
        $s=~tr/ðèæÐÈÆ/¹ð¾èæ©Ð®ÈÆ/;  # 1250 -> iso8859-2
        $s=~tr/¹©ðÐèÈæÆ¾®/sSdDcCcCzZ/;
        $query->prepare($s);

#       print "--",$query->matchstring();

        my $dbh = DBI->connect("DBI:Pg:dbname=nn","dpavlin","") || die $DBI::errstr;
        my $sth=$dbh->prepare($query->matchstring()) || die $dbh->errstr();
        $sth->execute() || die $dbh->errstr();
        while (my $row = $sth->fetchrow_hashref()) {
                print br,"<tt><a href=\"",sprintf($url,$row->{god},$row->{br},$row->{nr},$row->{aname}),"\">NN",$row->{god},"/",$row->{br},"</a> ",$row->{nr},"</tt> ",$row->{title},"\n";
                $hits++;
        }
        if ($hits > 0) {
                print p,hr,"Naðeno je $hits zakona...";
        } else {
                print p,"Nije naðen niti jedan zakon...";
        }
} else {
        print p('U jednostavnom pretra¾ivanju pretra¾ivaè pronalazi sve zakone u kojima se pojavljuje <b>bilo koja</b> od tih rijeèi. Da bi na¹li sve zakone u kojima se pojavljuju <b>sve upisane rijeèi</b>, upi¹ite ispred svake rijeèi znak plus (+). Npr: <tt>+zakon +kava</tt>',br,'Ako ispred rijeèi upi¹ete minus (-) neæe se prikazivati zakoni koji imaju takvu rijeè. Npr. <tt>+kava +zakon -dopunama</tt>');
        print p("Mo¾ete proèitati i <a href=\"http://www.rot13.org/~dpavlin/nn.html\">èlanak</a> o tome kako je ovaj pretra¾ivaè napravljen i za¹to.");
}
1	dpavlin	1.1	#!/usr/bin/perl -w
2
3			use strict;
4			use CGI qw/:standard -no_xhtml/;
5			use DBI;
6			use Text::Query;
7	dpavlin	1.4	use CGI::Carp qw(fatalsToBrowser);
8	dpavlin	1.1
9	dpavlin	1.3	my $url="http://www.nn.hr/CijeliBrojS.asp?god=%d&br=%d&mid=%d#%d";
10	dpavlin	1.1
11			my %labels = ('Simple'=>'jednostavnim', 'Advanced'=>'naprednim');
12
13	dpavlin	1.5	my $hits=0;
14
15	dpavlin	1.1	print header(-charset=>'iso-8859-2'),start_html(-title=>'NN pretrazivanje',-lang=>'hr'),start_form;
16			print "Tra¾i zakon: ",textfield('search')," sa ";
17			print popup_menu(-name=>'type',-values=>[ keys %labels ],-labels=>\%labels);
18			print submit(-value=>'pretra¾ivanjem');
19			print end_form,hr;
20
21			if (param('search') && param('type')) {
22			my $question;
23			my ($query) = Text::Query->new('blurk', # param('search'),
24			-parse => 'Text::Query::Parse'.param('type') \|\| 'Advanced',
25			-build => 'Text::Query::BuildSQLPg',
26			-fields_searched => 'title_czs',
27			-select => 'select br,god,aname,nr,title from nn where __WHERE__ order by god desc,br desc,nr asc'
28			);
29
30	dpavlin	1.6	my $s=param('search');
31			$s=~tr/ðèæÐÈÆ/¹ð¾èæ©Ð®ÈÆ/; # 1250 -> iso8859-2
32			$s=~tr/¹©ðÐèÈæÆ¾®/sSdDcCcCzZ/;
33			$query->prepare($s);
34	dpavlin	1.1
35			# print "--",$query->matchstring();
36
37			my $dbh = DBI->connect("DBI:Pg:dbname=nn","dpavlin","") \|\| die $DBI::errstr;
38			my $sth=$dbh->prepare($query->matchstring()) \|\| die $dbh->errstr();
39			$sth->execute() \|\| die $dbh->errstr();
40			while (my $row = $sth->fetchrow_hashref()) {
41	dpavlin	1.3	print br,"<tt><a href=\"",sprintf($url,$row->{god},$row->{br},$row->{nr},$row->{aname}),"\">NN",$row->{god},"/",$row->{br},"</a> ",$row->{nr},"</tt> ",$row->{title},"\n";
42	dpavlin	1.5	$hits++;
43			}
44			if ($hits > 0) {
45			print p,hr,"Naðeno je $hits zakona...";
46			} else {
47			print p,"Nije naðen niti jedan zakon...";
48	dpavlin	1.1	}
49	dpavlin	1.2	} else {
50			print p('U jednostavnom pretra¾ivanju pretra¾ivaè pronalazi sve zakone u kojima se pojavljuje <b>bilo koja</b> od tih rijeèi. Da bi na¹li sve zakone u kojima se pojavljuju <b>sve upisane rijeèi</b>, upi¹ite ispred svake rijeèi znak plus (+). Npr: <tt>+zakon +kava</tt>',br,'Ako ispred rijeèi upi¹ete minus (-) neæe se prikazivati zakoni koji imaju takvu rijeè. Npr. <tt>+kava +zakon -dopunama</tt>');
51	dpavlin	1.7	print p("Mo¾ete proèitati i <a href=\"http://www.rot13.org/~dpavlin/nn.html\">èlanak</a> o tome kako je ovaj pretra¾ivaè napravljen i za¹to.");
52	dpavlin	1.1	}