use Apache2::Log;
use ModPerl::Util;
+use Carp;
+use Encode;
use DBI;
use DBD::Pg;
use Image::Magick;
require Sesse::pr0n::Config_local;
};
- $VERSION = "v2.11";
+ $VERSION = "v2.12";
@ISA = qw(Exporter);
@EXPORT = qw(&error &dberror);
%EXPORT_TAGS = qw();
footer($r);
$r->log->error($err);
+ $r->log->error("Stack trace follows: " . Carp::longmess());
ModPerl::Util::exit();
}
next unless defined($value);
next if (defined($defparam->{$key}) && $value == $defparam->{$key});
- $str .= ($first) ? "?" : '&';
+ $str .= ($first) ? "?" : ';';
$str .= "$key=$value";
$first = 0;
}