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

# nisModUser
# This is the NIS user modification script.  This script
# is run after a user has been modified in the NIS password. 
# This is where you put any site specific commands required
# when modifing a new user.

# --- Initialization ---
# Deal with possible spaces in the input 
foreach $i (0 .. $#ARGV) {
   $data .= "@ARGV[$i] " ;
}
chop($data) ;

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

($OLDLOGIN, $LOGIN, $UID, $GID, $COMMENT, $HOME, $SHELL) = split(/\:/, $data, 7) ;
print "Running site specific NIS 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  ----




