Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
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...
commit aa712e44fc931289c5dfc5f8d7073b8272497f77 1 parent 7b1ccad
moritz authored
View
5 cgi/channel-index.pl
@@ -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
3  cgi/index.pl
@@ -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
7 cgi/search.pl
@@ -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
5 cgi/spam.pl
@@ -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
2  database.conf
@@ -1,5 +1,5 @@
DSN = mysql
-DATABASE = moritz2
+DATABASE = moritz5
HOST = localhost
USER = moritz
PASSWORD = foo
View
13 lib/IrcLog/WWW.pm
@@ -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";
}
Please sign in to comment.
Something went wrong with that request. Please try again.