31 lines
757 B
Perl
Executable File
31 lines
757 B
Perl
Executable File
#!/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);
|