[rt-users] Cron Job

[Bryon Baker]

Looking for a better way!

This is what I have done so far.  I created the following Perl script which connects to a foreign data to determine if there are any available agents login to the phone system.
If there are agents to send messages to then run getmail to retrieve the messages.  It also makes sure the Getmail process is not already running.

Why do I want something better

1.       I get the following error when this runs. But messages appear to be delivered.

a.  Delivery error (command rt-mailgate 9285 wrote to stderr: cannot chdir to /root from /tmp/VurewGNWhm: Permission denied, aborting. at /usr/lib/perl5/5.16.2/File/Temp.pm line 902.)

b.    msg 575/594 (85001 bytes), delivery error (command rt-mailgate 9285 wrote to stderr: cannot chdir to /root from /tmp/VurewGNWhm: Permission denied, aborting. at /usr/lib/perl5/5.16.2/File/Temp.pm line 902.)

2.  I continue to get all kinds of directories left behind in the /tmp directory.

3.  I am a newbe and know there has to be a better way.

Script being ran by cron as "root"

#!/usr/bin/perl -w
use DBI;
use DateTime;

my $host = '192.168.254.10';
my $port = '4308';
my $database = '';
my $user = '';
my $password = '';
my $command2 = " ";
my $currentID = $$;
my $dt = DateTime->now;

open(FILE, "ps aux|");
while (<FILE>)
{
(my $uid,my $pid,my $cpu,my $mem,my $vsz,my $rss,my $tty,my $stat,my $start,my $time,my $command,my $command1,my $command2) = split;

$command = $command // "Unknown";
$command = $command1 // "Unknown";
$command = $command2 // "Unknown";

my $result = index($command, "/usr/bin/getmail");
if ($pid ne $currentID)
{
   if ($result > -1)
   {
     print "$dt Scrip already running $command $pid $currentID $result\n";
     exit;
   }
}
}
my $dsn = "DBI:mysql:database=$database;host=$host;port=$port ";
my $dbh = DBI->connect($dsn,  $user, $password);

my $sql = 'SELECT tabaddress.EmailAddress FROM shoreware.ports as Ports ';
$sql = $sql . 'inner join (shoreware.usercurrentswitch as UCS) on (Ports.PortID = UCS.HomePortID) ' ;
$sql = $sql . 'inner join (shoreware.users as Users) on (Ports.CurrentDN = Users.UserDN) ';
$sql = $sql . 'inner join (shoreware.workgroupagents as Agents) on (Users.UserDN = Agents.UserDN) ';
$sql = $sql . 'inner join (shoreware.Tabaddresses as tabaddress) on (Users.AddressID = tabaddress.AddressID) ';
$sql = $sql . 'Where (Ports.JackNumber not like \'%norr%\' or Ports.JackNumber is null and Agents.agentstateID<>0) ';
$sql = $sql . 'order by Agents.UserDN ';

my $sth = $dbh->prepare($sql);
$sth->execute;
my $rows = $sth->rows;
if ($rows > 0)
{
  system("cd /tmp");
  system("getmail");
  print "$dt Number of rows $rows\n";
}

Getmail configuration

[retriever]

#type = SimpleIMAPSSLRetriever

#server = imap.gmail.com

#port = 993

#username = testcopesan at gmail.com

#password =

#mailboxes = ('BBaker',)



type = SimpleIMAPRetriever

server = 192.168.250.61

port = 143

username = clientservice at copesan.local

password =

mailboxes = ('To_Request_Tracker',)



[destination]

type = MDA_external

path = /usr/bin/rt-mailgate

user = rtuser

group = rtgroup

arguments = ("--url", "http://localhost/rt", "--queue", "x CSR", "--action", "correspond",)



[options]

read_all = false

delete = false

received = false

delivered_to = false

message_log = /var/log/request-tracker/mvmail.log

Thanks in advance for all the help.

Bryon Baker
Network Operations Manager
Copesan - Specialists in Pest Solutions
800-267-3726  *  262-783-6261 ext. 2296
bbaker at copesan.com<mailto:cstephan at copesan.com>
www.copesan.com<http://www.copesan.com/>
"Servicing North America with Local Care"

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.bestpractical.com/pipermail/rt-users/attachments/20130826/037d0443/attachment.htm>