#!/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;

`useradd $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 > archief.tar.gz`;

`userdel $user`;

`rm -rf /home/$user`;

print("Removed ", $user, " \n");

};

if(/^recover\s+(\w+)/) { #regexp: controle op remove

$user=$1;

`tar -xzvf archief.tar.gz -C /home`;

};

};

close(IN);