Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2024-12-02 10:00:54 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Show the log

Browse Source
This commit is contained in:
johnkeis 2003-02-03 03:31:39 +00:00
parent 5e9d32b423
commit 5d5f079696
2 changed files with 60 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
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
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;