webmkgroup.in 431 Bytes
Newer Older
Leigh B. Stoller's avatar
Leigh B. Stoller committed
1
#!/usr/bin/perl -w
Leigh B. Stoller's avatar
Leigh B. Stoller committed
2 3 4 5 6 7 8

#
# EMULAB-COPYRIGHT
# Copyright (c) 2000-2002 University of Utah and the Flux Group.
# All rights reserved.
#

Leigh B. Stoller's avatar
Leigh B. Stoller committed
9 10 11 12 13
use English;

#
# This gets invoked from the Web interface. Simply a wrapper ...
#
14
# usage: webmkgroup arguments ...
Leigh B. Stoller's avatar
Leigh B. Stoller committed
15 16 17 18 19 20 21 22 23 24
#

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

#
# Run the real thing, and never return.
# 
25
exec "$TB/sbin/mkgroup", @ARGV;
Leigh B. Stoller's avatar
Leigh B. Stoller committed
26

27
die("webmkgroup: Could not exec mkgroup: $!");