Subversion Repositories sysadmin_scripts

Rev

Rev 50 | Rev 52 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 50 Rev 51
Line 345... Line 345...
345 
# main process loop to handle one account
 345 
# main process loop to handle one account
346 
#
 346 
#
347 
sub processAccount {
 347 
sub processAccount {
348 
   my $account = shift;
 348 
   my $account = shift;
349 
 
 349 
 
350 
   next unless $account->{'enabled'}; # blow it off if it is not enabled
 350 
   exit unless $account->{'enabled'}; # blow it off if it is not enabled
351 
   my $TESTING = $account->{'testing'}; # create mini global if we should test this account
 351 
   my $TESTING = $account->{'testing'}; # create mini global if we should test this account
352 
 
 352 
 
353 
   print "========= Test Mode ========\n" if $TESTING;
 353 
   print "========= Test Mode ========\n" if $TESTING;
354
354
355 
   # open and log into both source and target, and get the separator used
 355 
   # open and log into both source and target, and get the separator used