#!/usr/bin/perl
# Manage_Users (P.Burghouwt 2005 THRijswijk)
# Eenvoudig voorbeeld om gebruikers toe te voegen of te verwijderen.
# (Voor lab, dus niet bedoeld voor serieus gebruik)
# Gebruik als root: #Manage_Users <file>
# Waarbij <file> een tekstfile is met op elke regel drie velden
# <add/remove> <user> <password>
use warnings;
use strict;
my $user;
my $password;
my $line;
my $filename;
#Controle op meegegeven filenaam
die "ERROR: Usage $0 <list> !\n ...with <list> is file containing status user and password on
each line.\n\n" unless (@ARGV == 1);
($filename) = @ARGV;
die "ERROR: Cannot open $filename !\n\n" unless (open(IN, $filename));
for (<IN>){ #alle regels in de file doorlopen
if(/^add\s+(\w+)\s+(\w+)/) { #regexp: controle op add
$user=$1;
$password=$2;
`adduser $user`;
`echo $password | passwd $user`; #truc om password mee te geven
print("Added ", $user, " - ", $password, " \n");
};
if(/^remove\s+(\w+)/) { #regexp: controle op remove
$user=$1;
`tar cz /home/$user > archive.tar.gz`;
`userdel $user`;
`rm -rf /home/$user`;
print("Removed ", $user, " \n");
};
if(/^recover\s+(\w+)\s+(\w+)/) { #regexp: controle op remove
$user=$1;
$password=$2;
`tar zxvf archive.tar.gz > /home/$user`;
`adduser $user`;
`echo $password | passwd $user`; #truc om password mee te geven
print("Added ", $user, " - ", $password, " \n");
print ("recovered\n");
};};
close(IN);