Here is where I am in the process:
I have MIME::Lite located on the server in a folder called
/home/samcsm/jcorbett/myperl/lib
I use this simple script to test out emailing a query below and get the error stating
that "cannot find MIME/Lite.pm' anywhere.
Now mind you I have MIME/Lite.pm installed in
/home/samcsm/jcorbett/myperl/lib/perl5/site_perl/MIME/Lite.pm
Can you tell me whats wrong?
#!/usr/bin/perl
use warnings;
use strict;
use DBI;
use MIME::Lite;
BEGIN{
unshift (@INC, '/home/samcsm/jason/myperl/lib/perl5/site_perl/MIME/Lite.pm');}
$ENV{"ORACLE_HOME"}="/orav101/oracle/8.0.6";
#Gather data for connecting to database:
our ($sql);
our ($sth);
our ($dbh);
our (@record);
our (@files);
our ($filename);
our ($recordlist);
our $database_temp="dbi:Oracle:#####";
our $username="#####";
our $passwd="#####";
$dbh = DBI->connect($database_temp, $username, $passwd) or
$dbh->{RaiseError} = 1;
#Set up your sql statement that you want to run in Oracle
$sql=qq( select * from bill where rownum <100);
$sth=$dbh->prepare($sql);
#Execute the SQL statememt
$sth->execute();
while(@record= $sth->fetchrow_array())
{
$recordlist=join("|",@record);
}
$sth->finish;
$dbh->disconnect;
my $message=MIME::Lite->new(
From: =>'[EMAIL PROTECTED]',
To: =>'[EMAIL PROTECTED]',
Subject: =>'This is a test of the MIME::Lite Mod',
Data =>$recordlist
);
$message->send;
/home/samcsm/jcorbett/myperl/lib/perl5/site_perl/MIME/Lite.pm