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

Reply via email to