X-Git-Url: https://git.deb.at/?p=deb%2Fpackages.git;a=blobdiff_plain;f=lib%2FPackages%2FCGI.pm;h=b8607c933781104bb4f70d3502460374b2b0ce7f;hp=b2b261db705b7c009b9cb62c2534b2c3ed4039a7;hb=8d29452530e823cbcd07a30898e98abe565a046c;hpb=264b1245548e5c5494778a813e5e48897168b008

diff --git a/lib/Packages/CGI.pm b/lib/Packages/CGI.pm
index b2b261d..b8607c9 100644
--- a/lib/Packages/CGI.pm
+++ b/lib/Packages/CGI.pm
@@ -1,11 +1,18 @@
 package Packages::CGI;
 
+use strict;
+use warnings;
+
 use Exporter;
+use Packages::Config;
+
 our @ISA = qw( Exporter );
 our @EXPORT = qw( fatal_error error hint debug msg note
 		  print_errors print_hints print_debug print_msgs
-		  print_notes );
+		  print_notes DEBUG make_url make_search_url );
 
+# define this to 0 in production mode
+use constant DEBUG => 1;
 our $debug = 0;
 
 our (@fatal_errors, @errors, @debug, @msgs, @hints, @notes);
@@ -31,14 +38,11 @@ sub msg {
     push @msgs, $_[0];
 }
 sub note {
-    push @notes, $_[0];
-}
-sub notes {
     push @notes, [ @_ ];
 }
 sub print_errors {
     return unless @fatal_errors || @errors;
-    print '<div style="background-color:#F99;font-weight:bold;padding:0.5em;margin:0;">';
+    print '<div class="perror">';
     foreach ((@fatal_errors, @errors)) {
 	print "<p>ERROR: $_</p>";
     }
@@ -46,7 +50,7 @@ sub print_errors {
 }
 sub print_debug {
     return unless $debug && @debug;
-    print '<div style="font-size:80%;border:solid thin grey">';
+    print '<div class="pdebug">';
     print '<h2>Debugging:</h2><pre>';
     foreach (@debug) {
 	print "$_\n";
@@ -55,30 +59,395 @@ sub print_debug {
 }
 sub print_hints {
     return unless @hints;
-    print '<div>';
+    print '<div class="phints">';
     foreach (@hints) {
-	print "<p style=\"background-color:#FF9;padding:0.5em;margin:0\">$_</p>";
+	print "<p>$_</p>";
     }
     print '</div>';
 }
 sub print_msgs {
+    print '<div class="pmsgs">';
     foreach (@msgs) {
 	print "<p>$_</p>";
     }
+    print '</div>';
 }
 sub print_notes {
     foreach (@notes) {
 	my ( $title, $note ) = @$_;
-	my $str = "";
 
+	print '<div class="pnotes">';
 	if ($note) {
-	    $str .= "<h2 class=\"pred\">$title</h2>";
+	    print "<h2>$title</h2>";
 	} else {
 	    $note = $title;
 	}
-	$str .= "<p>$note</p>";
-	return $str;
+	print "<p>$note</p></div>";
+    }
+}
+
+our $USE_PAGED_MODE = 1;
+use constant DEFAULT_PAGE => 1;
+use constant DEFAULT_RES_PER_PAGE => 50;
+our %page_params = ( page => { default => DEFAULT_PAGE,
+                               match => '(\d+)' },
+                     number => { default => DEFAULT_RES_PER_PAGE,
+                                 match => '(\d+)' } );
+
+sub parse_params {
+    my ( $cgi, $params_def, $opts ) = @_;
+
+    my %params_ret = ( values => {}, errors => {} );
+    my %params;
+    if ($USE_PAGED_MODE) {
+        debug( "Use PAGED_MODE", 2 ) if DEBUG;
+        %params = %$params_def;
+        foreach (keys %page_params) {
+            delete $params{$_};
+        }
+        %params = ( %params, %page_params );
+    } else {
+        %params = %$params_def;
     }
+
+    foreach my $param ( keys %params ) {
+	
+	debug( "Param <strong>$param</strong>", 2 ) if DEBUG;
+
+	my $p_value_orig = $cgi->param($param);
+
+	if (!defined($p_value_orig)
+	    && defined $params_def->{$param}{alias}
+	    && defined $cgi->param($params_def->{$param}{alias})) {
+	    $p_value_orig = $cgi->param($params_def->{$param}{alias});
+	    debug( "Used alias <strong>$params_def->{$param}{alias}</strong>",
+		   2 );
+	}
+
+	my @p_value = ($p_value_orig);
+
+	debug( "Value (Orig) ".($p_value_orig||""), 2 ) if DEBUG;
+
+	if ($params_def->{$param}{array} && defined $p_value_orig) {
+	    @p_value = split /$params_def->{$param}{array}/, $p_value_orig;
+	    debug( "Value (Array Split) ". join('##',@p_value), 2 ) if DEBUG;
+	}
+
+	if ($params_def->{$param}{match} && defined $p_value_orig) {
+	    @p_value = map
+	    { $_ =~ m/$params_def->{$param}{match}/; $_ = $1 }
+	    @p_value;
+	}
+	@p_value = grep { defined $_ } @p_value;
+
+	debug( "Value (Match) ". join('##',@p_value), 2 ) if DEBUG;
+
+	unless (@p_value) {
+	    if (defined $params{$param}{default}) {
+		@p_value = ($params{$param}{default});
+	    } else {
+		@p_value = undef;
+		$params_ret{errors}{$param} = "undef";
+		next;
+	    }
+	}
+
+	debug( "Value (Default) ". join('##',@p_value), 2 ) if DEBUG;
+	my @p_value_no_replace = @p_value;
+
+	if ($params{$param}{replace} && @p_value) {
+	    foreach my $pattern (keys %{$params{$param}{replace}}) {
+		my @p_value_tmp = @p_value;
+		@p_value = ();
+		foreach (@p_value_tmp) {
+		    if ($_ eq $pattern) {
+			my $replacement = $params{$param}{replace}{$_};
+			if (ref $replacement) {
+			    push @p_value, @$replacement;
+			} else {
+			    push @p_value, $replacement;
+			}
+		    } else {
+			push @p_value, $_;
+		    }
+		}
+	    }
+	}
+	
+	debug( "Value (Final) ". join('##',@p_value), 2 ) if DEBUG;
+
+	if ($params_def->{$param}{array}) {
+	    $params_ret{values}{$param} = {
+		orig => $p_value_orig,
+		no_replace => \@p_value_no_replace,
+		final => \@p_value,
+	    };
+	    @{$params_def->{$param}{var}} = @p_value
+		if $params_def->{$param}{var};
+	} else {
+	    $params_ret{values}{$param} = {
+		orig => $p_value_orig,
+		no_replace => $p_value_no_replace[0],
+		final => $p_value[0],
+	    };
+	    ${$params_def->{$param}{var}} = $p_value[0]
+		if $params_def->{$param}{var};
+	}
+	$opts->{$param} = $params_ret{values}{$param}{final} if $opts;
+    }
+
+    if ($USE_PAGED_MODE) {
+        $cgi->delete( "page" );
+        $cgi->delete( "number" );
+    }
+
+    return %params_ret;
+}
+
+sub start { 
+    my $params = shift;
+
+    my $page = $params->{values}{page}{final}
+    || DEFAULT_PAGE;
+    my $res_per_page = $params->{values}{number}{final}
+    || DEFAULT_RES_PER_PAGE;
+
+    return 1 if $res_per_page =~ /^all$/i;
+    return $res_per_page * ($page - 1) + 1;
+}
+
+sub end {
+    my $params = shift;
+
+    use Data::Dumper;
+    debug( "end: ".Dumper($params) ) if DEBUG;
+    my $page = $params->{page}
+    || DEFAULT_PAGE;
+    my $res_per_page = $params->{number}
+    || DEFAULT_RES_PER_PAGE;
+
+    return $page * $res_per_page;
+}
+
+sub indexline {
+    my ($cgi, $params, $num_res) = @_;
+
+    my $index_line = "";
+    my $page = $params->{page}
+    || DEFAULT_PAGE;
+    my $res_per_page = $params->{number}
+    || DEFAULT_RES_PER_PAGE;
+    my $numpages = ceil($num_res /
+                        $res_per_page);
+    for (my $i = 1; $i <= $numpages; $i++) {
+        if ($i == $page) {
+            $index_line .= $i;
+        } else {
+            $index_line .= "<a href=\"".encode_entities($cgi->self_url).
+                "&amp;page=$i&amp;number=$res_per_page\">".
+                "$i</a>";
+        }
+	if ($i < $numpages) {
+	   $index_line .= " | ";
+	}
+    }
+    return $index_line;
+}
+
+sub nextlink {
+    my ($cgi, $params, $no_results ) = @_;
+
+    my $page = $params->{page}
+    || DEFAULT_PAGE;
+    $page++;
+    my $res_per_page = $params->{number}
+    || DEFAULT_RES_PER_PAGE;
+
+    if ((($page-1)*$res_per_page + 1) > $no_results) {
+        return "&gt;&gt;";
+    }
+
+    return "<a href=\"".encode_entities($cgi->self_url).
+        "&amp;page=$page&amp;number=$res_per_page\">&gt;&gt;</a>";
+}
+
+sub prevlink {
+    my ($cgi, $params ) = @_;
+
+    my $page = $params->{page}
+    || DEFAULT_PAGE;
+    $page--;
+    if (!$page) {
+        return "&lt;&lt;";
+    }
+
+    my $res_per_page = $params->{number}
+    || DEFAULT_RES_PER_PAGE;
+
+    return "<a href=\"".encode_entities($cgi->self_url).
+        "&amp;page=$page&amp;number=$res_per_page\">&lt;&lt;</a>";
+}
+
+sub resperpagelink {
+    my ($cgi, $params, $res_per_page ) = @_;
+
+    my $page;
+    if ($res_per_page =~ /^all$/i) {
+	$page = 1;
+    } else {
+	$page = ceil(start( $params ) / $res_per_page);
+    }
+
+    return "<a href=\"".encode_entities($cgi->self_url).
+        "&amp;page=$page&amp;number=$res_per_page\">$res_per_page</a>";
+}
+
+sub printindexline {
+    my ( $input, $no_results, $opts ) = @_;
+
+    my $index_line;
+    if ($no_results > $opts->{number}) {
+	
+	$index_line = prevlink( $input, $opts)." | ".
+	    indexline( $input, $opts, $no_results)." | ".
+	    nextlink( $input, $opts, $no_results);
+	
+	print "<p style=\"text-align:center\">$index_line</p>";
+    }
+}
+
+#sub multipageheader {
+#    my ( $input, $no_results, $opts ) = @_;
+#
+#    my ($start, $end);
+#    if ($opts->{number} =~ /^all$/i) {
+#	$start = 1;
+#	$end = $no_results;
+#	$opts->{number} = $no_results;
+#	$opts->{number_all}++;
+#    } else {
+#	$start = Packages::Search::start( $opts );
+#	$end = Packages::Search::end( $opts );
+#	if ($end > $no_results) { $end = $no_results; }
+#    }
+#
+#	print "<p>Found <em>$no_results</em> matching packages,";
+#    if ($end == $start) {
+#	print " displaying package $end.</p>";
+#    } else {
+#	print " displaying packages $start to $end.</p>";
+#    }
+#
+#    printindexline( $input, $no_results, $opts );
+#
+#    if ($no_results > 100) {
+#	print "<p>Results per page: ";
+#	my @resperpagelinks;
+#	for (50, 100, 200) {
+#	    if ($opts->{number} == $_) {
+#		push @resperpagelinks, $_;
+#	    } else {
+#		push @resperpagelinks, resperpagelink($input,$opts,$_);
+#	    }
+#	}
+#	if ($opts->{number_all}) {
+#	    push @resperpagelinks, "all";
+#	} else {
+#	    push @resperpagelinks, resperpagelink($input, $opts, "all");
+#	}
+#	print join( " | ", @resperpagelinks )."</p>";
+#    }
+#    return ( $start, $end );
+#}
+
+our ( %url_params, %query_params );
+
+sub init_url {
+    my ($input, $params, $opts) = @_;
+
+    %url_params = ();
+    %query_params = ();
+
+    if ($params->{values}{lang}{orig} &&
+	(my $l = $params->{values}{lang}{no_replace})) {
+	$url_params{lang} = $l;
+    }
+    if ($params->{values}{source}{no_replace}) {
+	$url_params{source} = 'source';
+	$query_params{source} = 1;
+    }
+    foreach my $p (qw(suite arch)) {
+	if ($params->{values}{$p}{orig}
+	    && (ref $params->{values}{$p}{final} eq 'ARRAY')
+	    && @{$params->{values}{$p}{final}}) {
+	    if (@{$params->{values}{$p}{final}} == 1) {
+		$url_params{$p} = $params->{values}{$p}{final}[0];
+	    } else {
+		$url_params{$p} =
+		    join(",",@{$params->{values}{$p}{no_replace}});
+	    }
+	}
+    }
+    foreach my $p (qw(format searchon mode exact debug)) {
+	if ($params->{values}{$p}{orig}
+	    && (my $pv = $params->{values}{$p}{no_replace})) {
+	    $url_params{$p} = $pv;
+	}
+    }
+
+    use Data::Dumper;
+    debug( join("\n",Dumper(\%url_params,\%query_params)), 2 ) if DEBUG;
+}
+
+sub make_url {
+    my ($add_path, $add_query, $override) = @_;
+    my (@path, @query_string) = ()x2;
+    $override ||= {};
+
+    push @path, $Packages::Config::ROOT;
+    foreach my $p (qw(lang source suite archive arch)) {
+	my $val = $url_params{$p};
+	$val = $override->{$p} if exists $override->{$p};
+	push @path, $val if $val;
+    }
+    foreach my $p (qw(format debug)) {
+	my $val = $url_params{$p};
+	$val = $query_params{$p} if exists $query_params{$p};
+	$val = $override->{$p} if exists $override->{$p};
+	push @query_string, "$p=$val" if $val;
+    }
+    push @path, $add_path if $add_path and $add_path ne '/';
+    push @query_string, $add_query if $add_query;
+
+    my $path = join( '/', @path );
+    my $query_string = join( '&', @query_string );
+    $path .= '/' if $add_path and $add_path eq '/';
+    $path .= "?$query_string" if $query_string;
+
+    return $path;
+}
+
+sub make_search_url {
+    my ($add_path, $add_query, $override) = @_;
+    my (@path, @query_string) = ()x2;
+    $override ||= {};
+
+    push @path, $Packages::Config::SEARCH_URL
+	if $Packages::Config::SEARCH_URL;
+    foreach my $p (qw(lang source suite archive section subsection
+		      exact mode searchon format debug)) {
+	my $val = $url_params{$p};
+	$val = $query_params{$p} if exists $query_params{$p};
+	$val = $override->{$p} if exists $override->{$p};
+	push @query_string, "$p=$val" if $val;
+    }
+    push @path, $add_path if $add_path;
+    push @query_string, $add_query if $add_query;
+
+    my $path = join( '/', @path );
+    my $query_string = join( '&', @query_string );
+
+    return "$path?$query_string";
 }
 
 1;