#!/usr/bin/perl
# (c) 2001 venglin

# $Id: notify.pl,v 1.1.1.1 2001/05/21 15:38:58 venglin Exp $

$from = $subject = $to = "[brak]";

if (@ARGV < 1)
{
	print "użycie:   notify.pl <phone> [only_to] [...]\n";
	print "przykład: notify.pl 601062409 venglin";
	print " przemyslaw\n";
	exit;
}

$phone = $ARGV[0];

while(<STDIN>)
{
	chomp;

	if (/^$/)
	{
		last;
	}

	SWITCH:
	{
		$from = $_, $from =~ s/^From: //g, last SWITCH if /^From: .+/;
		$subject = $_, $subject =~ s/^Subject: //g, last SWITCH
		if /^Subject: .+/;
		$to = $_, $to =~ s/^To: //g, last SWITCH if /^To: .+/;
	}
}

if (@ARGV > 1)
{
	foreach (@ARGV)
	{
		if ($to =~ /$_/)
		{
			goto SENDSMS;
		}
	}

	exit;
}

SENDSMS:
{
	open SMS, "|/usr/local/bin/sms $phone";
	print SMS "Nowy email! $from $subject\n";
	close SMS;
}