X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=vhost%2Fwebpac2.cgi;h=664669e72c0795a8fe5d10261e56546b1fac622b;hb=786e2eae96f21248824dc135cc315d98ca88ba46;hp=3825fe227c5fa690a312262772e4ea9bdccff18a;hpb=91fc3eea6fe1625d47fb126d6199baa169f8e70b;p=webpac2 diff --git a/vhost/webpac2.cgi b/vhost/webpac2.cgi index 3825fe2..664669e 100755 --- a/vhost/webpac2.cgi +++ b/vhost/webpac2.cgi @@ -7,79 +7,292 @@ use CGI qw/:standard/; use CGI::Carp qw/fatalsToBrowser/; use File::Slurp; use YAML; -use Search::Estraier; +use Data::Page; +use Data::Dump qw/dump/; +use SWISH::API; +use JSON; -print header; +my $range_around = 5; +my $entries_per_page = 30; +my $debug = param('debug'); + +print header( + -charset => 'utf-8', +); sub dump_yaml { - print qq|
|, YAML::Dump( @_ ), qq||; + my $name = shift; + print qq|
|, YAML::Dump( @_ ), qq|