webrmuser.in 426 Bytes
Newer Older
1 2 3 4
#!/usr/bin/perl -w

#
# EMULAB-COPYRIGHT
5
# Copyright (c) 2000-2003 University of Utah and the Flux Group.
6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
# All rights reserved.
#
use English;

#
# This gets invoked from the Web interface. Simply a wrapper ...
#
# usage: webrmuser arguments ...
#

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

#
# Run the real thing, and never return.
# 
exec "$TB/sbin/rmuser", @ARGV;

die("webrmuser: Could not exec rmuser: $!");