OpenACS

ben
committed
MAIN:ben:20020729234631
on 30 Jul 02
change hardcoded email subject beginning to: ny04 from ny03
openacs-4/packages/CVSROOT.dotlrn/log.pl (+1 -1)
63 63     $arg = shift @ARGV;
64 64
65 65     if ($arg eq '-m') {
66 66         $users = "$users " . shift @ARGV;
67 67     } elsif ($arg eq '-f') {
68 68         ($logfile) && die "Too many '-f' args";
69 69         $logfile = shift @ARGV;
70 70     } elsif ($arg eq '-s') {
71 71         $dostatus = 0;
72 72     } else {
73 73         ($donefiles) && die "Too many arguments!\n";
74 74         $donefiles = 1;
75 75         @files = split(/ /, $arg);
76 76     }
77 77 }
78 78
79 79 # the first argument is the module location relative to $CVSROOT
80 80 #
81 81 $modulepath = shift @files;
82 82
83   $mailcmd = "| mail -s '[ny03-cvs] $modulepath'";
  83 $mailcmd = "| mail -s '[ny04-cvs] $modulepath'";
84 84
85 85 # Initialise some date and time arrays
86 86 #
87 87 @mos = (January,February,March,April,May,June,July,August,September,
88 88         October,November,December);
89 89 @days = (Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday);
90 90
91 91 ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;
92 92
93 93 # get a login name for the guy doing the commit....
94 94 #
95 95 $login = $ENV{'CVSUSER'} || getlogin || (getpwuid($<))[0] || "nobody";
96 96
97 97 # open log file for appending
98 98 #
99 99 open(OUT, ">>" . $logfile) || die "Could not open(" . $logfile . "): $!\n";
100 100
101 101 # send mail, if there's anyone to send to!
102 102 #
103 103 if ($users) {