# tail -n 100 /scripts/post*acct
#==> /scripts/postsuspendacct <==
#!/usr/local/bin/perl

use strict;
use warnings;

my $user = $ARGV[0];

`ssh -i /root/.ssh/id_rsa root\@bak1 "/usr/bin/passwd -l $user"`;

#==> /scripts/postunsuspendacct <==
#!/usr/local/bin/perl

my $user = $ARGV[0];

`ssh -i /root/.ssh/id_rsa root\@bak1 "/usr/bin/passwd -u $user"`;

#==> /scripts/postwwwacct <==
#!/usr/local/bin/perl

my %OPTS = @ARGV;
my $user = $OPTS{user};
my $pass = $OPTS{pass};

my $cryptd = crypt($pass, &#039;sa&#039;);

`ssh -i /root/.ssh/id_rsa root\@bak1 "/usr/sbin/useradd -m -p $cryptd --shell /bin/false $user"`;