#! /afs/isis/pkg/perl/bin/perl
use Getopt::Std;
$MAN_PAGE_SPACE = "~/MAN";
# $MAN_PAGE_SPACE = "/afs/isis/depts/atn/dci/public_html/dci_components/shared_apps/pc-packages/MAN";
$MAN_PAGE = "man_page.html";
$PACKAGE_SPACE = "/afs/isis/pc-pkg";
$DATE=`date '+%m/%d/%y'`;
$PERM = 0644;
$AFS_BIN = "/usr/afsws/bin";
getopts ("p:");
if ( $opt_p )
{
print $opt_p;
$afs_isis_pkg[0] = $opt_p;
print @afs_isis_pkg;
} else {
@afs_isis_pkg = `ls -1 $PACKAGE_SPACE | egrep -v '^total|^SKELETON|^admin'`;
}
chomp (@afs_isis_pkg);
foreach $entry (@afs_isis_pkg)
{
if ( ! -l "/afs/isis/pkg/$entry" && ! -f "/afs/isis/pkg/$entry" )
{
push (@packages, $entry);
}
}
chomp(@packages);
foreach $package (@packages)
{
$MAN_PAGE=$package . ".html";
print (STDOUT "$MAN_PAGE_SPACE/$MAN_PAGE\n");
# open OUTPUT_FILE, ">$MAN_PAGE_SPACE/$MAN_PAGE" or die("Can't open \"$MAN_PAGE\" output file.");
# select OUTPUT_FILE;
print "Foo";
print (STDOUT "$MAN_PAGE_SPACE/$MAN_PAGE");
chmod ($PERM, "$MAN_PAGE_SPACE/$MAN_PAGE");
}
sub make_man_page
{
# Package name...
print "\n";
print "\n";
print "Name: \n";
print " \n";
print "$package\n";
# Owner(s) of the package...
print "
\n";
$package =~ /(-\d+)*-\w+$/;
$package_base_name = $`;
if (length($package_base_name)>0) {
#if (1){
print (STDOUT "Package base: $package_base_name\n");
$owners = `$AFS_BIN/pts membership dci:pc-pkg-$package_base_name | egrep -v '^Members'`;
print "\n";
print "Owner(s): \n";
print "\n";
print "$owners\n";
$acls = `$AFS_BIN/fs la $PACKAGE_SPACE/$package | egrep -v 'dci|administrators|Normal|Access'`;
print "
\n";
print "Rights: \n";
print "\n";
print "$acls\n";
print "
\n";
if ( -l "$PACKAGE_SPACE/$package/.info/Description") {
print (STDOUT "$package LINK\n");
} else {
# Process fields from the Description file...
open (THIS_DESCRIPTION_FILE, "$PACKAGE_SPACE/$package/.info/Description");
LINE: while ( $line = )
{
if ( $line =~ /^(.*?):/)
{
$line =~ s/^(.*?)://;
#print "$line$&
";
if ($line =~ /^\W$/) { next LINE;}
if ($& =~ /^OS:/) { next LINE;}
print "- \n";
print "\n";
print "$&";
print "
";
print " - \n";
# test if a web address
if ($line =~ /^(.*?):\/\/(.*)\w/)
# if ($line =~ /^http:\/\/(.*)\w/)
{
$line =~ s/\w(.*?):\/\/(.*)\w//;
print "$&\n";
}
print "$line\n";
}
print "
\n";
} #while
} # else open
} # if package base nama
else {
#print STDOUT "Foo\n";
}
} #SUB
sub make_head
{
print <
Package Description
EOF
}
sub make_tail
{
print <
Last modified: $DATE
Maintained by ATN's Distributed Computing Infrastructure Group
dci\@unc.edu
