#!/usr/bin/perl
#
#########################################################################
#                                                                       #
#   Program to generate all links to user's home/public directories     #
#                                                                       #
#########################################################################
#                                                                       #
#   Version 1.0     -   Written 09.10.95 by Steffen Beyer               #
#                                                                       #
#########################################################################
#                                                                       #
#   Copyright (C) 1995 by software design & management GmbH & Co. KG    #
#                                                                       #
#########################################################################
#
# Some defaults:
#
$version = 'version 1.0';
#
$self = $0;
#
if ($self =~ m!/([^/]+)$!) { $self = $1; }
#
$directory = '/v/dsk/1/g/project/www/u';
#
unless (chdir($directory))
{
    die "$self error: can't chdir to '$directory': $!\n";
}
#
# Process passwd file:
#
setpwent;
#
while (($user,$passwd,$uid,$gid) = getpwent)
{
    system("ln -s /u/$user/public $user");
}
#
endpwent;
#
# Done.
#