#!/usr/bin/perl

sub ask_for_user_params() {
my $suffix;
my $answer;
print("What suffix will You use? (e.g. -outside)\n");
$suffix = <STDIN>;
chop($suffix);
print("So You want me to create users with this suffix: $suffix?\n");
print("y/n\n");
$answer = <STDIN>;
chop($answer);
if($answer eq "y") { &create_users($suffix);}
elsif($answer eq "n") { exit 0;}
else { print("Must be really dumb one...\n");}
}

sub create_users($suffix) {
my $suffix = shift;
system("pw groupadd nofiles$suffix");
system("pw useradd alias$suffix -g nofiles$suffix -d /var/qmail$suffix/alias -s /nonexistent");
system("pw useradd qmaild$suffix -g nofiles$suffix -d /var/qmail$suffix -s /nonexistent");
system("pw useradd qmaill$suffix -g nofiles$suffix -d /var/qmail$suffix -s /nonexistent");
system("pw useradd qmailp$suffix -g nofiles$suffix -d /var/qmail$suffix -s /nonexistent");
system("pw groupadd qmail$suffix");
system("pw useradd qmailq$suffix -g qmail$suffix -d /var/qmail$suffix -s /nonexistent");
system("pw useradd qmailr$suffix -g qmail$suffix -d /var/qmail$suffix -s /nonexistent");
system("pw useradd qmails$suffix -g qmail$suffix -d /var/qmail$suffix -s /nonexistent");
}

&ask_for_user_params;