Permalink
Browse files

[irclog] try to restore some of the old layout

git-svn-id: http://svn.pugscode.org/pugs/misc/irclog@21301 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 7b1ccad commit aa712e44fc931289c5dfc5f8d7073b8272497f77 moritz committed Jul 10, 2008
Showing with 22 additions and 13 deletions.
  1. +4 −1 cgi/channel-index.pl
  2. +2 −1 cgi/index.pl
  3. +5 −2 cgi/search.pl
  4. +4 −1 cgi/spam.pl
  5. +1 −1 database.conf
  6. +6 −7 lib/IrcLog/WWW.pm
@@ -32,7 +32,10 @@ sub get_channel_index {
my $conf = Config::File::read_config_file('cgi.conf');
my $base_url = $conf->{BASE_URL} || q{/};
- my $t = HTML::Template->new(filename => 'template/channel-index.tmpl');
+ my $t = HTML::Template->new(
+ filename => 'template/channel-index.tmpl',
+ die_on_bad_params => 0,
+ );
my $dbh = get_dbh();
View
@@ -44,7 +44,8 @@ sub get_index {
filename => 'template/index.tmpl',
loop_context_vars => 1,
global_vars => 1,
- );
+ die_on_bad_params => 0,
+ );
$template->param(BASE_URL => $base_url);
$template->param( channels => \@channels );
View
@@ -26,8 +26,11 @@
my $q = new CGI;
print http_header();
-my $t = HTML::Template->new(filename => "template/search.tmpl",
- global_vars => 1);
+my $t = HTML::Template->new(
+ filename => "template/search.tmpl",
+ global_vars => 1,
+ die_on_bad_params => 0,
+);
$t->param(BASE_URL => $base_url);
my $start = $q->param("start") || 0;
View
@@ -41,7 +41,10 @@
$count += $d2->execute($id);
}
-my $t = HTML::Template->new(filename => 'template/spam.tmpl');
+my $t = HTML::Template->new(
+ filename => 'template/spam.tmpl',
+ die_on_bad_params => 0,
+);
my $conf = Config::File::read_config_file("cgi.conf");
my $base_url = $conf->{BASE_URL} || "/";
View
@@ -1,5 +1,5 @@
DSN = mysql
-DATABASE = moritz2
+DATABASE = moritz5
HOST = localhost
USER = moritz
PASSWORD = foo
View
@@ -431,13 +431,12 @@ NICK: foreach (@$colors){
push @msg_classes, 'act';
}
- # class not used at the moment
-# if ($nick eq ""){
-# # empty nick column means that nobody said anything, but
-# # it's a join, part, topic change etc.
-# push @classes, "special";
-# $h{SPECIAL} = 1;
-# }
+ if ($nick eq ""){
+ # empty nick column means that nobody said anything, but
+ # it's a join, part, topic change etc.
+ push @classes, "special";
+ $h{SPECIAL} = 1;
+ }
if ($$c % 2){
push @classes, "dark";
}

0 comments on commit aa712e4

Please sign in to comment.