#!/tools/perl_5.004_01/bin/perl
#Written by: Paul Dutra (paulo@xilinx.com)
#Date: 8/17/95
#Update: 12/12/96
#Determines who has a web directory on your system
($current)=getlogin || (getpwuid($<))[0] || die "Not a user here!!\n";
require "newgetopt.pl" || die "Failed: $!\n";
&NGetOpt("h","mail","path=s","title=s","site=s","page=s");
# you need to edit this for your own domain
$opt_site="web" unless ($opt_site);
# default personal web directory name
$UserDir = "xroads" unless ($ARGV[0]);
# default HTML output file
$opt_path="$ENV{'HOME'}/$UserDir" unless ($opt_path);
# default title
$opt_title = "Personal Pages" unless ($opt_title);
# default page name
$opt_page = "personal" unless ($opt_page);
&usage if ($@ || $opt_h);
sub usage
{
die <<"EndUsage";
usage: $0 [-h] [-mail] [-page] [-path] [-title] [-site] [web_directory]
Determines who has a web directory ("$UserDir") on your site
Display Options:
-h Help -- just display this message and quit.
Input Options:
-mail send mail to everyone w/a web directory
(This is advertising--tell everyone)
-page "name" Page name
Default: "$opt_page"
(This is advertising--tell everyone)
-path "name" Path of all output files
Default: "$opt_path"
-title "name" Title specification of HTML pages.
Default: "$opt_title"
-site "name" Site name.
Default: "$opt_site"
Author: Paulo Dutra (paulo\@xilinx.com)
EndUsage
}
sub by_lastname
{
#compare last names, but if two users share the
#same last name, then compare login name
($last{$a} cmp $last{$b}) || ($a cmp $b);
}
sub good_bye
{
local($found,$count) = @_;
local($percent) = ($found/$count)*100;
($found) || die "\nProcess stopped: No users found\n";
print "\nFound $found web listings\n";
printf ("%.2f%% of the users have a web directory\n", $percent);
}
sub header
{
local($title) = shift;
chop($today = `date`); #date
print <<"HEADER";
$title
$title
Last updated: $today
List generated by
whack
HEADER
}
sub trailer
{
local($return) = shift;
print <<"TRAILER";
return to previous
TRAILER
}
sub html_page
{
my($title,$path,$page) = @_;
my($default) = "$path/${page}.html";
open(WEB,"> $default") || die "Can't create $default: $!\n";
#change filehandle to the output file
local($oldhandle) = select(WEB);
&header($title);
print "\n";
foreach $login (sort by_lastname keys %last)
{
print "- $real{$login}\n";
}
print "
\n";
&trailer("index.html");
close(WEB);
select($oldhandle);
print "$default has been created !!!\n";
chmod (0644,$default);
}
sub mail
{
local($login) = shift;
local($oldhandle) = select(MAIL);
open(MAIL,"|mail $login");
#print the actual message
print <