Bommels05/Mozilla
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Show the log

Browse Source 
git-svn-id: svn://10.0.0.236/trunk@137294 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
johnkeis
2003-02-03 03:31:39 +00:00
parent 0547419c12
commit 5eb115100f
2 changed files with 60 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
mozilla/webtools/tinderbox3/scripts/showlog.pl Executable file
View File

@@ -0,0 +1,30 @@
#!/usr/bin/perl -wT -I.
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use Tinderbox3::Log;
my $p = new CGI;
my $machine_id = $p->param('machine_id') || "";
my $logfile = $p->param('logfile') || "";
# Detaint machine id / logfile
$machine_id =~ s/[^0-9]//g;
$logfile =~ s/[^0-9A-Za-z\.]//g;
$logfile =~ s/^\.+//g;
if (!$machine_id || !$logfile) {
die "Must specify machine_id and logfile!";
}
my $log_fh = get_log_fh($machine_id, $logfile, "<");
if (!defined($log_fh)) {
die "No such log found!";
}
print $p->header("text/plain");
while (<$log_fh>) {
print;
}
close $log_fh;

30
mozilla/webtools/tinderbox3/server/showlog.pl Executable file
View File

@@ -0,0 +1,30 @@
#!/usr/bin/perl -wT -I.
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use Tinderbox3::Log;
my $p = new CGI;
my $machine_id = $p->param('machine_id') || "";
my $logfile = $p->param('logfile') || "";
# Detaint machine id / logfile
$machine_id =~ s/[^0-9]//g;
$logfile =~ s/[^0-9A-Za-z\.]//g;
$logfile =~ s/^\.+//g;
if (!$machine_id || !$logfile) {
die "Must specify machine_id and logfile!";
}
my $log_fh = get_log_fh($machine_id, $logfile, "<");
if (!defined($log_fh)) {
die "No such log found!";
}
print $p->header("text/plain");
while (<$log_fh>) {
print;
}
close $log_fh;