#!/usr/local/bin/perl # view_log.cgi # Display the report for some log file require './webalizer-lib.pl'; &ReadParse(); if ($ENV{'PATH_INFO'} =~ /^\/([^\/]+)(\/[^\/]*)$/) { # Proper path escaping $escaped = $1; $file = $2; $log = &un_urlize($escaped); } elsif ($ENV{'PATH_INFO'} =~ /^(\/.*)(\/[^\/]*)$/) { # Path has been decode somehow, perhaps by proxy.. deal $log = $1; $file = $2; } else { &error($text{'view_epath'}); } $file =~ /\.\./ || $file =~ /\<|\>|\||\0/ && &error($text{'view_efile'}); &can_edit_log($log) || &error($text{'view_ecannot'}); $lconf = &get_log_config($log) || &error($text{'view_elog'}." : $log"); $full = "$lconf->{'dir'}$file"; open(FILE, $full) || &error($text{'view_eopen'}." : $full"); # Display file contents if ($full =~ /\.(html|htm)$/i && !$config{'naked'}) { while(read(FILE, $buf, 1024)) { $data .= $buf; } close(FILE); $data =~ /