#!/usr/bin/perl # Displays entries for the month of March, 2000 # $basedir = "/rcs"; $slash ="/"; sub view { # view contents $dir = $viewdir; # opendir(DIR,$dir) || print "Does not exist
\n"; opendir(DIR,$dir); local(@filenames) = readdir(DIR); closedir(DIR); print " "; for(@filenames) { next if $_ eq '.'; next if $_ eq '..'; print "$_
\n"; } } sub view2 { ######## # init ####### %maps=(); %invmaps=(); local($dir)=@_; # $dir = $viewdir; # $sdir = $inyear.$slash.$inmonth.$slash.$inday.$slash; # $dir = $basedir.$sdir; # opendir(DIR,$dir) || print "view: ",$dir, " Does not exist
\n"; ################################## # go to username directory ################################## opendir(DIR,$dir); local(@filenames) = readdir(DIR); closedir(DIR); for(@filenames) { next if $_ eq '.'; next if $_ eq '..'; $user = $_; ########################### # go to njobs directory ########################## # $ssdir = $basedir.$inyear.$slash.$inmonth.$slash.$inday.$slash.$_; $ssdir = $dir.$slash.$_; opendir(DIR,$ssdir) || print "view: ",$ssdir, " Does not exist
\n"; # opendir(DIR,$ssdir) || print "view: ",$ssdir, " Does not exist
\n"; local(@sfilenames) = readdir(DIR); closedir(DIR); $test=0; for(@sfilenames) { next if $_ eq '.'; next if $_ eq '..'; $test=1; $jobs=$_; } if($test=='1'){ } else { $jobs=0; } # # create assoicated array # $count++; $maps{$user}.=$jobs . ' '; if($user ne 'LEFT' && $user ne 'SUM') {$invmaps{$jobs}.=$user . ' ';} $count{$user}.=$count . ' '; } $thesum=0; #--------------------------------- # sorted by the name of user #----------------------------------- foreach $key (sort keys(%maps)){ # next if $key eq 'SUM'; # next if $key eq 'LEFT'; $thejobs=$maps{$key}; # $thesum=$thesum+$thejobs; print" ", $key," : ", $thejobs,"
" if $key eq 'SUM'; print" ", $key," : ", $thejobs,"
" if $key eq 'LEFT'; # print $key," : ",$thejobs,"
" if $key eq 'SUM'; # print $key," : ",$thejobs,"
" if $key eq 'LEFT'; } #--------------------------------- # sorted by the order of njobs #----------------------------------- $test=0; $ic=0; foreach $key (sort keys(%invmaps)){ next if $key eq 0; next if $ic > 10; $theuser=$invmaps{$key}; print" ", $theuser," : ", $key,"
"; $test=0; ++$ic; } print "No jobs taken
" if $test == 1; } #################################### # Look at the directory and # return the # of jobs #################################### sub get_njobs { local($thedir)=@_; # print "get_njobs: ",$thedir,"
"; # opendir(THISDIR,$thedir) || print "get_njobs: ",$thedir, " Does not exist
\n"; opendir(THISDIR,$thedir); # Check how many files in this directory.. # local(@files) = readdir(THISDIR); local(@thefiles) = grep(!/^\.\.?$/,readdir(THISDIR)); closedir(THISDIR); $nfiles=$#thefiles+1; # print "get_njobs: njobs= ",$nfiles,"
"; if($nfiles<=0) {$the_njobs=0;} else {$the_njobs=@thefiles[0];} return $the_njobs; } sub printsum { # view njobs local($thedir)=@_; # print $thedir,"
"; # $sumdir=$thedir.$slash."SUM"; # $sum=&get_njobs($sumdir); # $leftdir=$thedir.$slash."LEFT"; # $left=&get_njobs($leftdir); # print " ", $sum," / ",$left,"
\n"; &view2($thedir); } ################################## # find total # jobs at this date ################################# sub get_sum { ######## # init ####### %maps=(); %invmaps=(); local($dir)=@_; ################################## # go to username directory ################################## opendir(DIR,$dir); local(@filenames) = readdir(DIR); closedir(DIR); $thesum=0; for(@filenames) { next if $_ eq '.'; next if $_ eq '..'; $user = $_; ########################### # go to njobs directory ########################## $ssdir = $dir.$slash.$_; opendir(DIR,$ssdir) || print "view: ",$ssdir, " Does not exist
\n"; local(@sfilenames) = readdir(DIR); closedir(DIR); $test=0; for(@sfilenames) { next if $_ eq '.'; next if $_ eq '..'; $test=1; $jobs=$_; } if($test=='1'){ } else { $jobs=0; } $thesum=$thesum+$jobs; } return $thesum; } # #$modir = dummy; foreach $modir ( @ARGV ) { print "Content-type: text/html\n\n"; print "\n"; print "March Shift List \n"; print "\n"; print "

March Jobs List

\n"; # print "dir= ",$modir,"
\n"; #print "

Signup Calendar

\n"; print "\n"; #print "Shift 1 = NODE 1 \n"; #print "Shift 2 = NODE 2 \n"; #print "Jobs Usage = NODE 3
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; #print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; #____________________________ # #____________________________ print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "

March 2000
	Sun	Mon	Tue	Wed	Thu	Fri	Sat
\n"; print " "; print "					\n"; print "1 \n"; print "	\n"; print "2 \n"; print "	\n"; print "3 \n"; print "	\n"; print "4 \n"; print "
"; print " Jobs Status"; print "				\n"; $viewdir = $modir.$slash."1"; &printsum($viewdir); print "	\n"; $viewdir = $modir.$slash."2"; &printsum($viewdir); print "	\n"; $viewdir = $modir.$slash."3"; &printsum($viewdir); print "	\n"; $viewdir = $modir.$slash."4"; &printsum($viewdir); print "
\n"; print " \n"; print "	\n"; print "5 \n"; print "	\n"; print "6 \n"; print "	\n"; print "7 \n"; print "	\n"; print "8 \n"; print "	\n"; print "9 \n"; print "	\n"; print "10 \n"; print "	\n"; print "11 \n"; print "
\n"; print " Jobs Status \n"; print "	\n"; $viewdir = $modir.$slash."5"; &printsum($viewdir); print "	\n"; $viewdir = $modir.$slash."6"; &printsum($viewdir); print "	\n"; $viewdir = $modir.$slash."7"; &printsum($viewdir); print "	\n"; $viewdir = $modir.$slash."8"; &printsum($viewdir); print "	\n"; $viewdir = $modir.$slash."9"; &printsum($viewdir); print "	\n"; $viewdir = $modir.$slash."10"; &printsum($viewdir); print "	\n"; $viewdir = $modir.$slash."11"; &printsum($viewdir); print "
\n"; print " \n"; print "	\n"; print "12 \n"; print "	\n"; print "13 \n"; print "	\n"; print "14 \n"; print "	\n"; print "15 \n"; print "	\n"; print "16 \n"; print "	\n"; print "17 \n"; print "	\n"; print "18 \n"; print "
\n"; print " Jobs Status \n"; print "	\n"; $viewdir = $modir.$slash."12"; &printsum($viewdir); print "	\n"; $viewdir = $modir.$slash."13"; &printsum($viewdir); print "	\n"; $viewdir = $modir.$slash."14"; &printsum($viewdir); print "	\n"; $viewdir = $modir.$slash."15"; &printsum($viewdir); print "	\n"; $viewdir = $modir.$slash."16"; &printsum($viewdir); print "	\n"; $viewdir = $modir.$slash."17"; &printsum($viewdir); print "	\n"; $viewdir = $modir.$slash."18"; &printsum($viewdir); print "
\n"; print " \n"; print "	\n"; print "19 \n"; print "	\n"; print "20 \n"; print "	\n"; print "21 \n"; print "	\n"; print "22 \n"; print "	\n"; print "23 \n"; print "	\n"; print "24 \n"; print "	\n"; print "25 \n"; print "
\n"; print "Jobs Status \n"; print "	\n"; $viewdir = $modir.$slash."19"; &printsum($viewdir); print "	\n"; $viewdir = $modir.$slash."20"; &printsum($viewdir); print "	\n"; $viewdir = $modir.$slash."21"; &printsum($viewdir); print "	\n"; $viewdir = $modir.$slash."22"; &printsum($viewdir); print "	\n"; $viewdir = $modir.$slash."23"; &printsum($viewdir); print "	\n"; $viewdir = $modir.$slash."24"; &printsum($viewdir); print "	\n"; $viewdir = $modir.$slash."25"; &printsum($viewdir); print "
\n"; print " \n"; print "	\n"; print "26 \n"; $viewdir = $modir.$slash."26"; &printsum($viewdir); print "	\n"; print "27 \n"; $viewdir = $modir.$slash."27"; &printsum($viewdir); print "	\n"; print "28 \n"; $viewdir = $modir.$slash."28"; &printsum($viewdir); print "	\n"; print "29 \n"; $viewdir = $modir.$slash."29"; &printsum($viewdir); print "	\n"; print "30 \n"; $viewdir = $modir.$slash."30"; &printsum($viewdir); print "	\n"; print "31 \n"; $viewdir = $modir.$slash."31"; &printsum($viewdir); print "
\n"; print " Jobs Status \n"; print "	\n"; #$viewdir = $modir.$slash."27".$slash."SUM"; #&view; $viewdir = $modir.$slash."27"; &printsum($viewdir); print "	\n"; #$viewdir = $modir.$slash."28".$slash."SUM"; #&view; $viewdir = $modir.$slash."28"; &printsum($viewdir); print "	\n"; #$viewdir = $modir.$slash."29".$slash."SUM"; #&view; $viewdir = $modir.$slash."29"; &printsum($viewdir); print "

\n"; print "\n"; print "

"; print "\n"; }