Commit d334d0c9 authored by Leigh B Stoller's avatar Leigh B Stoller

Add method to generate URL.

parent 0c669159
......@@ -40,6 +40,7 @@ use Data::Dumper;
# Configure variables
my $TB = "@prefix@";
my $TBOPS = "@TBOPSEMAIL@";
my $TBBASE = "@TBBASE@";
my $GZIP = "/usr/bin/gzip";
#
......@@ -298,6 +299,16 @@ sub Empty($)
return 0;
}
#
# Return a logfile URL.
#
sub URL($)
{
my ($self) = @_;
return "$TBBASE/spewlogfile.php3?logfile=" . $self->logid();
}
#
# Mark public or private.
#
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment