#!/usr/bin/perl
############################################
# Podrutina za posiljanje mailov           #
# Datum: 26.9.2006                         #
############################################

#Podrutina:
sub sendEmail
{
my ($to, $from, $subject, $message) = @_;
my $sendmail = '/usr/lib/sendmail';
#Če ne deluje uporabi nasledni ukaz
#my $sendmail = '/usr/sbin/sendmail.postfix -oi -f posiljatelj@blabla.com -t';

open(MAIL, "|$sendmail -oi -t");
print MAIL "From: $from\n";
print MAIL "To: $to\n";
print MAIL "Subject: $subject\n\n";
print MAIL "$message\n";
close(MAIL);
} 

#Vpis maila je sledec: sendMail("$za_koga@domain.com","$od_koga@domain.com","naslov","vsebina")

$vsebina="Vsebina maila je poljubna!!!Za enkrat le \ntestno posiljamo sporocilo.\nPrelomi vrstic\ndelujejo\nbrezhibno:)!!!";
sendEmail("miha.demsar\@gov.si", "mihademsar\@yahoo.com", "Testno posiljanje", $vsebina); 
sendEmail("mihademsar\@yahoo.com", "mihademsar\@yahoo.com", "Testno posiljanje", $vsebina);