3 my $conf = new FS::Conf;
4 my $maxrecords = $conf->config('maxsearchrecordsperpage');
7 $limit .= "LIMIT $maxrecords" if $maxrecords;
9 my $offset = $cgi->param('offset') || 0;
10 $limit .= " OFFSET $offset" if $offset;
14 my $sql = $cgi->param('sql');
15 $sql =~ s/^\s*SELECT//i;
18 $count_sql =~ s/^(.*)\s+FROM\s/COUNT(*) FROM /i;
20 my $sth = dbh->prepare("SELECT $count_sql")
21 or eidiot dbh->errstr. " doing $count_sql\n";
22 $sth->execute or eidiot "Error executing \"$count_sql\": ". $sth->errstr;
24 $total = $sth->fetchrow_arrayref->[0];
26 my $sth = dbh->prepare("SELECT $sql $limit")
27 or eidiot dbh->errstr. " doing $sql\n";
28 $sth->execute or eidiot "Error executing \"$sql\": ". $sth->errstr;
29 my $rows = $sth->fetchall_arrayref;
37 if ( $total != scalar(@$rows) && $maxrecords ) {
38 unless ( $offset == 0 ) {
39 $cgi->param('offset', $offset - $maxrecords);
40 $pager .= '<A HREF="'. $cgi->self_url.
41 '"><B><FONT SIZE="+1">Previous</FONT></B></A> ';
45 for ( $poff = 0; $poff < $total; $poff += $maxrecords ) {
47 if ( $offset == $poff ) {
48 $pager .= qq!<FONT SIZE="+2">$page</FONT> !;
50 $cgi->param('offset', $poff);
51 $pager .= qq!<A HREF="!. $cgi->self_url. qq!">$page</A> !;
54 unless ( $offset + $maxrecords > $total ) {
55 $cgi->param('offset', $offset + $maxrecords);
56 $pager .= '<A HREF="'. $cgi->self_url.
57 '"><B><FONT SIZE="+1">Next</FONT></B></A> ';
62 print header('Query Results', menubar('Main Menu'=>$p) ).
63 "$total total rows<BR><BR>$pager". table().
65 print "<TH>$_</TH>" foreach @{$sth->{NAME}};
68 foreach $row ( @$rows ) {
70 print "<TD>$_</TD>" foreach @$row;
74 print "</TABLE>$pager</BODY></HTML>";