#!/usr/bin/perl
$version = 2 ;

# ModUser
# This is the modify user script.  
# NOTE:  This script is run before a user has been modified 
# in the password file. 
# This is where you put any site specific commands required
# when modifing a new user.


# --- Initialization ---
$data = "" ;
foreach $i (0 .. $#ARGV) {
   $data .= "@ARGV[$i] " ;
}
chop($data) ;

# Output the version if requested
if($data eq "-v") {
    print "$version\n" ;
    exit(0) ;
}

($OLDLOGIN, $LOGIN, $UID, $GID, $COMMENT, $HOME, $SHELL) = split(/\:/, $data, 7) ;
print "Running site specific user modify script\n" ;

# Debugging flag, set to 0 to turn off debugging
$debug = 0 ;

print "OLD Login = $OLDLOGIN\n" if $debug ;
print "Login = $LOGIN\n" if $debug ;
print "UID = $UID\n" if $debug ;
print "GID = $GID\n" if $debug ;
print "COMMENT = $COMMENT\n" if $debug ;
print "HOME = $HOME\n" if $debug ;
print "SHELL = $SHELL\n" if $debug ;

# ----  Add the site specific commands here  ----




