3489l1 100664 1061 330 1032 6732227645 10174 0 ustar mlr ljedit #
# Check user mail and send popup messages if mail present
# Marcel Gagne - Salmar Consulting Inc., 1999
#
for user_name in `cat /usr/local/etc/mail_notify`
do
no_messages=`frm $user_name | grep -v "Mail System Internal Data" | wc -l`
if [ "$no_messages" -gt "0" ]
then
echo "You have $no_messages email message(s) waiting." > /tmp/$user_name.msg
echo " " >> /tmp/$user_name.msg
echo "Please start your email client to collect mail." >> /tmp/$user_name.msg
/usr/bin/smbclient -M $user_name < /tmp/$user_name.msg
fi
done
3489l2 100664 1061 330 1617 6732264735 10207 0 ustar mlr ljedit #!/usr/bin/perl
#
# 1999: Salmar Consulting Inc. www.salmar.com
#
# showppp.pl - show me the ppp connection address
#
&show_header;
&show_body;
&http_end;
exit();
###############
# Subroutines #
###############
sub get_pppaddr {
$pppaddr = `/sbin/ifconfig -l ppp0`;
print "
\n";
print "
$pppaddr
\n";
print "
\n";
}
#
sub show_header {
print "Content-type: text/html\n\n";
print "La Connection Address\n";
print "\n";
}
#
sub show_body {
print "\n";
print "
\n";
print "PPP Connection Information
\n";
print "The information you need is the number that follows
'inet addr:' (4 numbers seperated by periods).
\n";
&get_pppaddr;
}
#
sub http_end {
print "\n";
print "\n";
}
3489l3 100664 1061 330 1723 6732036063 10175 0 ustar mlr ljedit #!/bin/sh
#
# description: Starts and stops the diald diald-on-demand process
# Marcel Gagne - Salmar Consulting Inc.
# See how we were called.
case "$1" in
start)
echo -n "Starting diald process: "
/usr/sbin/diald
echo "Done!"
;;
stop)
echo -n "Shutting down diald : "
kill `pidof -s diald`
echo "Waiting 2 seconds for process to shut down . . ."
sleep 2
kill `pidof -s diald`
ps ax | grep diald | grep -v grep | grep -v control
echo "Done!"
;;
restart)
echo "Restarting /usr/sbin/diald process: "
kill `pidof -s diald`
echo "Waiting 2 seconds for process to shut down . . ."
sleep 2
/usr/sbin/diald
echo "Done!"
;;
getfax)
echo -n "Preparing to receive a single fax : "
kill `pidof -s diald`
echo "Waiting 2 seconds for process to shut down . . ."
sleep 2
/sbin/mgetty /dev/ttyS0 < /dev/null &
echo "starting mgetty on port ttyS0..."
echo "Done!"
;;
*)
echo "Usage: diald.control {start|stop|restart|getfax}"
exit 1
esac
3489l4 100664 1061 330 1535 6732227604 10202 0 ustar mlr ljedit #!/usr/bin/perl
#
# 1999: Salmar Consulting Inc. www.salmar.com
#
# checkdfusage.pl : checks the usage of the disk space in percentage
# and emails it to sys admin if greater than 90 per cent
#
&check_dfusage;
exit();
###############
# Subroutines #
###############
sub check_dfusage {
@message=`df`;
$message_text = '';
foreach (@message) {
($dirname, $arg1, $arg2, $arg3, $arg4, $arg5, $arg6) =
split (' ', $_, 7);
($arg4num,$therest) = split('%',$arg4,2);
if ($arg4num > "90") {
$message_text .= "Directory $dirname is now at $arg4num\n";
}
#print $arg4 . "\n";
}
if ($message_text ne '') {
$smbclient = "/usr/bin/smbclient -U root ";
$smbhost = 'speedy';
&sendmessage;
}
}
sub sendmessage {
open(SF,"|$smbclient -M $smbhost");
print SF "$message_text";
close(SF);
}
3489l5 100664 1061 330 1513 6732247340 10176 0 ustar mlr ljedit #!/usr/bin/perl
#
# Get the time from a time server
# Marcel Gagne - 1999
#
$remote_host="chime.utoronto.ca";
$remote_port="13";
$hostname=`hostname`;
chomp $hostname;
use IO::Socket;
$socket = IO::Socket::INET->new(PeerAddr => $remote_host,
PeerPort => $remote_port,
Proto => "tcp",
Type => SOCK_STREAM)
or die "Could not connect to $remote_host:$remote_port : $@\n";
# Get the time
$the_time = <$socket>;
print "The time is $the_time\n";
$local_time = `date`;
print "Your system, $hostname, thinks the correct \n date and time is $local_time.\n";
print "Resetting date and time . . .\n";
$new_date = `date -s "$the_time"`;
print "New date is $new_date";
# Close the socket connection if it isn't already
close($socket);