$user = possibly_foolish_untaint($user);
}
elsif (defined $ipaddr) {
- $user = "Anonymous from $ipaddr";
+ $user = "Anonymous from ".possibly_foolish_untaint($ipaddr);
}
else {
$user = "Anonymous";
sub rcs_add ($) { # {{{
my ($file) = @_;
- my @cmdline = ("hg", "-q", "-R", "$config{srcdir}", "add", "$file");
+ my @cmdline = ("hg", "-q", "-R", "$config{srcdir}", "add", "$config{srcdir}/$file");
if (system(@cmdline) != 0) {
warn "'@cmdline' failed: $!";
}
eval q{use CGI 'escapeHTML'};
error($@) if $@;
- my @cmdline = ("hg", "-R", $config{srcdir}, "log", "-v", "-l", $num);
+ my @cmdline = ("hg", "-R", $config{srcdir}, "log", "-v", "-l", $num,
+ "--style", "defaults");
open (my $out, "@cmdline |");
eval q{use Date::Parse};