tal.pl

TAL is a messaging tool for Linux administrators.

#!/usr/local/bin/perl
# 	$Id: tal.pl,v 1.22 1998/12/10 01:14:39 cinar Exp cinar $	
#
# Tal.pl: Generate personalized messages to your users.
#
# This file and all associated files and documentation:
#	 Copyright (C) 1998,1999 Ali Onur Cinar <[e-mail]>
#
# Latest version can be downloaded from:
#
#   ftp://hun.ece.drexel.edu/pub/cinar/tal*
#   ftp://ftp.cpan.org/pub/CPAN/authors/id/A/AO/AOCINAR/tal*
#   ftp://sunsite.unc.edu/pub/Linux/system/mail/misc/tal*
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version. And also
# please DO NOT REMOVE my name, and give me a CREDIT when you use
# whole or a part of this program in an other program.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

$tal_ver_raw  = '$Revision: 1.22 $'; $tal_ver_raw =~ /.{11}(.{4})/g; $tal_version = "1.$1";
$passwd_file = '/etc/passwd';
$given_file = $ARGV[0];
$alias_file = '/etc/aliases';
$remove_file = '/usr/lib/tal/removefile';
$sendmail = '/usr/lib/sendmail';
$localhost = 'hun.ece.drexel.edu';

	($mday, $mon, $year) = (localtime)[3,4,5]; 
        @monthnames = ('January','February','March','April','May','June','July','August','September','October','November','December');
        @dayendings = ('th','st','nd','rd','th','th','th','th','th','th');
$curdate = "$monthnames[$mon] $mday$dayendings[substr($mday, (length($mday) -1), 1)], 19$year";

open PasswdFile, $passwd_file;

&GenTargetList;
&ShowTargetList;
&BufferDocument;

foreach(@TargetList)
{
     &GetPersonelInfo($_);
     &GenOutput;
}

close PasswdFile;
die;

sub GotoLC
{
    print "\x1B[$_[0];$_[1]H";
}

sub ColorFB
{
    print "\x1B[$_[0];$_[1]m";
}

sub GetPersonelInfo
{  
    local ($listId, $tarusr, @ExtraInfos);
    seek (PasswdFile, 0, 0);
    $tarusr = @_[0];
	
    while (<PasswdFile>)
    {
	next if ( /^#/ | /^\s/);
	$listId++;
	@PersonelInfo = split(":", $_);
	last if ($PersonelInfo[0] eq $tarusr);
    }
    
	@ExtraInfos = split(",", $PersonelInfo[4]);
	splice (@PersonelInfo, $#PersonelInfo+1, 0, @ExtraInfos);
	$PersonelInfo[4] = $listId;
	$PersonelInfo[12] = $PersonelInfo[7]; $PersonelInfo[12] =~ s/ /./g;
	$PersonelInfo[13] = substr($PersonelInfo[7],0,index($PersonelInfo[7]," "));
	$PersonelInfo[14] = reverse(substr(reverse($PersonelInfo[7]),0,index(reverse($PersonelInfo[7])," ")));
	$PersonelInfo[15] = substr($PersonelInfo[7],0,1);
}

sub BufferDocument
{
    open GivenDocument, $given_file;
    
    while (<GivenDocument>)
    {
	push(@BufferedDocument, $_);
    }

    close GivenDocument;
}

sub GenOutput
{
    local(@MirrorBufferedDocument);
    @MirrorBufferedDocument = @BufferedDocument;

    print "Sending mail to $PersonelInfo[7] <$PersonelInfo[0]>\n";

    open SENDMAIL, "|$sendmail -oem $PersonelInfo[0]";

    $genuine = ((int(rand(100)+1) * $PersonelInfo[4]) + (int(rand(100)+1) * $PersonelInfo[2]));
    ($sec, $min, $hour) = (localtime)[0,1,2];

    print SENDMAIL "Message-ID: <TAL-$tal_version-$hour$min$sec$mday$mon$year-$genuine\@$localhost>\n";
    print SENDMAIL "Lines: $#BufferedDocument\n";
    print SENDMAIL "To: $PersonelInfo[7] <$PersonelInfo[0]\@$localhost>\n";

    foreach (@MirrorBufferedDocument)
    {
	s/<TAL_USERNAME>/$PersonelInfo[0]/g;
	s/<TAL_UID>/$PersonelInfo[2]/g;
	s/<TAL_GID>/$PersonelInfo[3]/g;
	s/<TAL_USERNO>/$PersonelInfo[4]/g;
	s/<TAL_HOMEDIR>/$PersonelInfo[5]/g;
	s/<TAL_SHELL>/$PersonelInfo[6]/g;
	s/<TAL_REALNAME>/$PersonelInfo[7]/g;
	s/<TAL_ROOM>/$PersonelInfo[8]/g;
	s/<TAL_WORKPHONE>/$PersonelInfo[9]/g;
	s/<TAL_HOMEPHONE>/$PersonelInfo[10]/g;
	s/<TAL_OTHER>/$PersonelInfo[11]/g;
	s/<TAL_DOTED_REALNAME>/$PersonelInfo[12]/g;
	s/<TAL_FIRSTNAME>/$PersonelInfo[13]/g;
	s/<TAL_LASTNAME>/$PersonelInfo[14]/g;
	s/<TAL_1ST_CHAR_FIRSTNAME>/$PersonelInfo[15]/g;
	s/<TAL_CURRENT_DATE>/$curdate/g;
	print SENDMAIL;
    }

    print SENDMAIL "\n\n[Automatically generated by TAL v$tal_version (c) 1998 Ali Onur Cinar <root\@zdo.com>]\n\n";
    close SENDMAIL;
}

sub GenTargetList
{
    local ($i=0, $m=0, @PasswdEntry, @AliasEntry, @NonTargetsTmp);
    seek (PasswdFile, 0, 0);

    while (<PasswdFile>)
    {
	next if ( /^#/ | /^\s/);
	@PasswdEntry = split (":", $_);
	push(@TargetList, $PasswdEntry[0]);
    }
    
	@TargetList = sort(@TargetList);
	open AliasFile, $alias_file;

    while (<AliasFile>)
    {
	next if ( /^#/ | /^\s/);
	@AliasEntry = split (":", $_);
	next if ($AliasEntry[2] eq 'include');
	$AliasEntry[0] =~ /^(\S+)/;
        push (@NonTargets, $1);
    }
	close AliasFile;
	open RemoveFile, $remove_file;

    while (<RemoveFile>)
    {
	next if ( /^#/ | /^\s/);
	push(@NonTargets, $_);
    }

	close RemoveFile;
	@NonTargets = sort(@NonTargets);
   
    foreach (@NonTargets)
    {
	$m=$i+1;

	while ($NonTargets[$m] eq $_)
	{
	    $NonTargets[$m] = '';
	    $m++;
	}
	
	$i++;
    }

	@NonTargets = sort(@NonTargets);
	@NonTargetsTmp = @NonTargets;

    foreach (@NonTargetsTmp)
    {
	last if ($_ ne '');
	shift @NonTargets;
    }

	$m=0;
	$i=0;

    while (($i <= $#TargetList) && ($m <= $#NonTargets))
    {
	if ($NonTargets[$m] eq $TargetList[$i])
	{
	    $TargetList[$i] = '';
	    $i++; $m++;
	}

	elsif ($NonTargets[$m] lt $TargetList[$i])
	{
	    $m++;
	}

	else
	{
	    $i++;
	}
    }

	@TargetList = sort(@TargetList);
	@TargetListTmp = @TargetList;

    foreach (@TargetListTmp)
    {
	last if ($_ ne '');
	shift @TargetList;
    }
}

sub ShowTargetList
{
    local ($stl_line=0, $stl_pointer=0, $stl_end=$#TargetList, $key, $m, $n, %delete_temp, @TargetListTmp);

    &ColorFB(7,0);
    &GotoLC(9,9);  print '+---------------+-----------------------------------+';
    &GotoLC(10,9); print '|               |      $$$$$$  $$$$  $$             |';
    &GotoLC(11,9); print "|               |        \$\$   \$\$  \$\$ \$\$   v$tal_version   |"; 
    &GotoLC(12,9); print '|               |        $$   $$^^$$ $$$$           |'; 
    &GotoLC(13,9); print '|               |                                   |'; 
    &GotoLC(14,9); print '|               | (c) Ali Onur Cinar <[e-mail]> |'; 
    &GotoLC(15,9); print '|               |-----------------------------------|'; 
    &GotoLC(16,9); print '|               |  <space> del/undel        <s>end  |';
    &GotoLC(17,9); print '|               |  <arrows> to move         <q>uit  |';
    &GotoLC(18,9);  print '+---------------+-----------------------------------+'; 

    if ($BSD_STYLE)
    {
	system "stty cbreak </dev/tty >/dev/tty 2>&1";
    }
    else
    {
	system "stty", '-icanon', 'eol', "\001";
    }
    
    system "stty -echo";

    while (($key ne 'q') && ($key ne 's'))
    {
	$m = $stl_pointer - $stl_line;
	&ColorFB(4,0);
	
	for ($n=0; $n<8; $n++)
	{
	    &GotoLC(($n+10),10);
	    &GenListLine($m+$n);
	}

	&ColorFB(0,7);
	&GotoLC(($stl_line+10),10);
	&GenListLine($stl_pointer);

	$key = getc(STDIN);
	if ($key == 27)
	{
	    $key = getc(STDIN);
	    if (($key eq '[') || ($key eq 'O'))
	    {
		$key = getc(STDIN);
	    }
	}

# Case DN ARROW
	if ((($key eq 'B') || ($key eq 'r')) && ($stl_pointer < $stl_end))
	{
	    if ($stl_line < 7)
	    {
		$stl_line ++;
		$stl_pointer ++;
	    }

	    elsif ($stl_line == 7)
	    {
		$stl_pointer ++;
	    }
	}

# Case UP ARROW
	elsif (($key eq 'A') || ($key eq 'x'))
	{
	    if ($stl_line > 0)
	    {
		$stl_line --;
		$stl_pointer --;
	    }

	    elsif (($stl_line == 0) && ($stl_pointer > 0))
	    {
		$stl_pointer --;
	    }
	}

# Case SPACE BAR
	elsif ($key eq ' ')
	{
	    if (exists $delete_temp{$stl_pointer})
	    {
		delete ($delete_temp{$stl_pointer});
	    }
	    else
	    {
		$delete_temp{$stl_pointer} = '';
	    }
	}
     }

    &ColorFB(7,0);

    if ($BSD_STYLE)
    {
	system "stty -cbreak </dev/tty >/dev/tty 2>&1";
    }
    else
    {
	system "stty", '-icanon', 'eol', '^@';
    }

    system "stty echo";

    GotoLC(20,1);
    ColorFB(7,0);
    if ($key eq 'q') {print 'Program teminated.';die;}
   
    foreach (keys(%delete_temp))
    {
	$TargetList[$_] = '';
    }
	@TargetList = sort(@TargetList);
	@TargetListTmp = @TargetList;

    foreach (@TargetListTmp)
    {
	last if ($_ ne '');
	shift @TargetList;
    }
 }

sub GenListLine
{
    local ($list_temp, $lst_pointer);
    $lst_pointer = $_[0];

    if (exists $delete_temp{$lst_pointer})
    {
	$list_temp = 'D';
    }
    else
    {
	$list_temp = ' ';
    }

    print " $list_temp  $TargetList[$lst_pointer]", ' ' x (10-length($TargetList[$lst_pointer]));
}