projects
/
BackupPC.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
3.1.0 changes:
[BackupPC.git]
/
lib
/
BackupPC
/
CGI
/
View.pm
diff --git
a/lib/BackupPC/CGI/View.pm
b/lib/BackupPC/CGI/View.pm
index
172e0e1
..
0247068
100644
(file)
--- a/
lib/BackupPC/CGI/View.pm
+++ b/
lib/BackupPC/CGI/View.pm
@@
-10,7
+10,7
@@
# Craig Barratt <cbarratt@users.sourceforge.net>
#
# COPYRIGHT
# Craig Barratt <cbarratt@users.sourceforge.net>
#
# COPYRIGHT
-# Copyright (C) 2003 Craig Barratt
+# Copyright (C) 2003
-2007
Craig Barratt
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
@@
-28,7
+28,7
@@
#
#========================================================================
#
#
#========================================================================
#
-# Version 3.
0.0alpha, released 23 Jan 2006
.
+# Version 3.
1.0, released 25 Nov 2007
.
#
# See http://backuppc.sourceforge.net.
#
#
# See http://backuppc.sourceforge.net.
#
@@
-86,11
+86,12
@@
sub action
$file = $bpc->ConfDir() . "/hosts";
$linkHosts = 1;
} elsif ( $type eq "docs" ) {
$file = $bpc->ConfDir() . "/hosts";
$linkHosts = 1;
} elsif ( $type eq "docs" ) {
- $file =
"$BinDir/..
/doc/BackupPC.html";
+ $file =
$bpc->InstallDir() . "
/doc/BackupPC.html";
} elsif ( $host ne "" ) {
if ( !defined($In{num}) ) {
# get the latest LOG file
$file = ($bpc->sortedPCLogFiles($host))[0];
} elsif ( $host ne "" ) {
if ( !defined($In{num}) ) {
# get the latest LOG file
$file = ($bpc->sortedPCLogFiles($host))[0];
+ $file =~ s/\.z$//;
} else {
$file = "$TopDir/pc/$host/LOG$ext";
}
} else {
$file = "$TopDir/pc/$host/LOG$ext";
}
@@
-173,7
+174,7
@@
sub action
last if ( $s eq "" );
$s =~ s/[\n\r]+//g;
$s = ${EscHTML($s)};
last if ( $s eq "" );
$s =~ s/[\n\r]+//g;
$s = ${EscHTML($s)};
- $s =~ s/\b([\w-]+)\b/defined($Hosts->{$1})
+ $s =~ s/\b([\w-
.
]+)\b/defined($Hosts->{$1})
? ${HostLink($1)} : $1/eg;
$c .= $s . "\n";
}
? ${HostLink($1)} : $1/eg;
$c .= $s . "\n";
}
@@
-199,7
+200,7
@@
sub action
$s =~ s[(\$Conf\{.*?\})][
my $c = $1;
my $s = lc($c);
$s =~ s[(\$Conf\{.*?\})][
my $c = $1;
my $s = lc($c);
- $s =~ s{(\W)}{
sprintf("%%%02x", ord($1) )}gxe
;
+ $s =~ s{(\W)}{
_}g
;
"<a href=\"?action=view&type=docs#item_$s\"><tt>$c</tt></a>"
]eg;
$c .= $s . "\n";
"<a href=\"?action=view&type=docs#item_$s\"><tt>$c</tt></a>"
]eg;
$c .= $s . "\n";