57 lines
1.1 KiB
Plaintext
57 lines
1.1 KiB
Plaintext
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
package esmith;
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use Errno;
|
||
|
|
use esmith::config;
|
||
|
|
use esmith::util;
|
||
|
|
|
||
|
|
my %conf;
|
||
|
|
tie %conf, 'esmith::config';
|
||
|
|
|
||
|
|
my %accounts;
|
||
|
|
tie %accounts, 'esmith::config', '/home/e-smith/db/accounts';
|
||
|
|
|
||
|
|
my $event = $ARGV [0];
|
||
|
|
my $userName = $ARGV [1];
|
||
|
|
|
||
|
|
die "Username argument missing." unless defined ($userName);
|
||
|
|
|
||
|
|
my $value = $accounts {$userName};
|
||
|
|
my ($type, %properties) = split (/\|/, $value, -1);
|
||
|
|
|
||
|
|
if ($type ne 'user')
|
||
|
|
{
|
||
|
|
die "Account $userName is not a user account; modify user failed.\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
# defaults to rssh with no rights
|
||
|
|
my $Shell=$properties{'Shell'} || 'rssh';
|
||
|
|
|
||
|
|
if (($Shell eq 'bash') || ($Shell eq 'sudo'))
|
||
|
|
{
|
||
|
|
$Shell = '/bin/bash';
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
$Shell = '/usr/bin/rssh';
|
||
|
|
}
|
||
|
|
|
||
|
|
my $cmd = "/usr/sbin/usermod";
|
||
|
|
$cmd .= " -s \"$Shell\"";
|
||
|
|
$cmd .= " '$userName'";
|
||
|
|
|
||
|
|
my $discard = `$cmd`;
|
||
|
|
if ($? != 0)
|
||
|
|
{
|
||
|
|
die "Failed to modify account $userName.\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
esmith::util::processTemplate (\%conf, "/etc/sudoers");
|
||
|
|
chmod 0440, "/etc/sudoers";
|
||
|
|
|
||
|
|
esmith::util::processTemplate (\%conf, "/etc/rssh.conf");
|
||
|
|
|
||
|
|
esmith::util::processTemplate (\%conf, "/etc/proftpd.conf");
|