#!/opt/bin/perl
#
########################################################################
#                                                                      #
# Program for installing fax accounts for all users                    #
#                                                                      #
########################################################################
#                                                                      #
#   Version 1.0.1   -   Written 06.11.95 by Steffen Beyer              #
#                                                                      #
########################################################################
#                                                                      #
#   Copyright (C) 1995 by software design & management GmbH & Co. KG   #
#                                                                      #
########################################################################
#
# Some important default settings:
#
$version = 'version 1.0.1';
#
$self = $0;
#
if ($self =~ m!/([^/]+)$!) { $self = $1; }
#
# Configure here the name of the temporary output file:
#
$userfile = "$self.$$";
#
# Cycle through passwd file:
#
setpwent;
#
while (($user, $passwd, $uid, $gid, $quota, $comment, $name) = getpwent)
{
    $name =~ s/[\t\r\n\f]/ /g;
    $name =~ s/  / /g;
    $name =~ s/^\s*//;
    $name =~ s/\s*$//;
    $name =~ s/\s*\(.*\)\s*$//;
    $name =~ s/^Dr\.(\S)/Dr. $1/;
    if (($uid >= 10000) && ($uid < 20000) && (! $encountered{$name}))
    {
        $encountered{$name} = 1;
        unless (open(USERFILE, ">$userfile"))
        {
            die "$self error: Can't open '$userfile' for writing: $!\n";
        }
        print USERFILE "sunbi3\n";
        print USERFILE "$user\n";
        print USERFILE "$name\n";
        print USERFILE "\n";
        print USERFILE "\n";
        print USERFILE "J\n";
        print USERFILE "\n";
        print USERFILE "  300\n";
        
        print USERFILE "$user\n";
        print USERFILE "\n";
        print USERFILE "\n";
        print USERFILE "    0\n";
        print USERFILE "         0\n";
        print USERFILE "         0\n";
        print USERFILE "         0\n";
        print USERFILE "         0\n";
        print USERFILE "         0\n";
        print USERFILE "         0\n";
        print USERFILE "         0\n";
        print USERFILE "         0\n";
        print USERFILE "         0\n";
        print USERFILE "         0\n";
        print USERFILE "   10\n";
        print USERFILE "       0\n";
        print USERFILE "       0\n";
        print USERFILE "       0\n";
        print USERFILE "       0\n";
        print USERFILE "$passwd\n";
        print USERFILE "$user@sdm.de\n";

        close(USERFILE);
        #system("o_put_user <$userfile");
        system("cat $userfile");
        unlink($userfile);
    }
}
#
endpwent;
#
# Done.
#