diff options
| author | root <root@einstein.tg15.gathering.org> | 2015-03-31 18:34:58 +0200 |
|---|---|---|
| committer | root <root@einstein.tg15.gathering.org> | 2015-03-31 18:34:58 +0200 |
| commit | 95fceee877ed34a6104f630c2daf8a908cab6ee4 (patch) | |
| tree | 8b4ae6e4ccb58d8aa9017df1ac6ddad17da654cd /web/nms.gathering.org/sshow.pl | |
| parent | ad8b587583fdb55ff3c43f72edab5ec6c1ea5d43 (diff) | |
NMS TG15-tweaks
Diffstat (limited to 'web/nms.gathering.org/sshow.pl')
| -rwxr-xr-x | web/nms.gathering.org/sshow.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/web/nms.gathering.org/sshow.pl b/web/nms.gathering.org/sshow.pl index f406b69..1b310af 100755 --- a/web/nms.gathering.org/sshow.pl +++ b/web/nms.gathering.org/sshow.pl @@ -7,6 +7,7 @@ use strict; use Switch; use CGI; use DBI; +use HTML::Entities; # Grab from .htaccess-authentication my $user = $ENV{'REMOTE_USER'}; @@ -182,7 +183,7 @@ if ($action eq 'showgid') { } my @lines = split(/[\n\r]+/, $data); foreach my $line (@lines) { - print "\t$line\n"; + print "\t", encode_entities($line), "\n"; } } while (($row = $sgetgid->fetchrow_hashref())); print "</pre>\n"; @@ -214,7 +215,7 @@ if ($action eq 'done') { print " gID: ".$row->{gid}."\n"; my @result = split(/[\n\r]+/, $row->{result}); foreach (@result) { - print "\t".$_."\n"; + print "\t", encode_entities($_), "\n"; } print "\n"; } |