webreport.in 331 Bytes
Newer Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!/usr/bin/perl -w
use English;

#
# This gets invoked from the Web interface. Simply a wrapper for tbreport.
#
# usage: webreport <pid> <eid>
#

#
# Configure variables
#
my $TB       = "@prefix@";

#
# Run the real thing, and never return.
# 
exec "$TB/bin/tbreport", "-v", @ARGV;

die("webreport: Could not exec tbreport: $!");