X-Git-Url: http://git.rot13.org//?a=blobdiff_plain;f=lib%2FBackupPC%2FCGI%2FView.pm;h=eabac58b3c1ecb1ec8531e536f9e0768945fc76b;hb=2a19fd178108b0898e79d2b8908236429ca4c6a3;hp=ce092592b0d2d438084982454f8417e3b08b7c09;hpb=99b9efe77451800084c477ed2139100f830cb7db;p=BackupPC.git diff --git a/lib/BackupPC/CGI/View.pm b/lib/BackupPC/CGI/View.pm index ce09259..eabac58 100644 --- a/lib/BackupPC/CGI/View.pm +++ b/lib/BackupPC/CGI/View.pm @@ -28,7 +28,7 @@ # #======================================================================== # -# Version 2.1.2, released 5 Sep 2005. +# Version 2.1.3, released 21 Jan 2007. # # See http://backuppc.sourceforge.net. # @@ -168,7 +168,7 @@ sub action 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"; } @@ -194,7 +194,7 @@ sub action $s =~ s[(\$Conf\{.*?\})][ my $c = $1; my $s = lc($c); - $s =~ s{(\W)}{sprintf("%%%02x", ord($1) )}gxe; + $s =~ s{(\W)}{_}g; "$c" ]eg; $c .= $s . "\n";