hjp
/
simple
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

This version was in use on all servers until this checkin. 

It does not log Motds correctly.
This commit is contained in:
hjp 1995-07-25 10:23:28 +00:00
parent 033df3cf38
commit 4bfe108380
1 changed files with 30 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
mkmotd/mkmotd Executable file
View File

@ -0,0 +1,30 @@
#!/usr/bin/perl
$spooldir = "/usr/adm/motd";
$motdfile = "/etc/motd";
chdir $spooldir || die "cannot chdir to $spooldir";
# build a list of files in the spool directory
opendir DIR, "." || die "cannot open `.'";
@files = readdir (DIR);
closedir (DIR);
open MOTD, ">$motdfile" || die "cannot open $motdfile";
foreach $thisfile (@files) {
if (-f $thisfile) {
$nonempty=1;
print MOTD "\n------------------------------------------------------------\n";
open THISFILE, $thisfile || die "cannot open $thisfile";
while ($line = <THISFILE>) {
print MOTD $line;
}
close THISFILE;
}
}
if ($nonempty) {
print MOTD "\n------------------------------------------------------------\n";
}
system "/usr/local/bin/ci -l -q $motdfile" || die;
exit (0);