I went back to the original script, found the original problem was that someone had removed a value which needed to be there, so I stuck a login/password back in and that fixed the issue, now all I need to do is correct a minor issue with a webform field, validation was not used to verify the input field so I have some bad invalid entries for email which of course die on the send email portion. here is the original script along with the field that was the problem..etc. 
####
#### Filename: reminder.pl
#### Version: .1.0
#### Written By: Matthew Lukaszewicz
#### Written Date: 03/22/06
#### Last Change Date: 12/19/06 by Francisco Oquendo
#### Comments: 03/22/06 This had to be completly re-written due to the
+ excahnge server change
#### Comments: 03/27/06 Fixed logging to include date/timestamp and se
+perate days with newlines
#### Comments: 10/28/08 Updated From Email address to generic training
+@marketlinx.com due to exchange changes,added ### myself for debuggin
+g purposes.
#### 12/19/06 Removed all references to Matt's IDs
####

#### Modules ####
    use OLE;
    use Mail::Sender;

#### lnitialization of Global Variables & Arrays ####
    my $debug =0;
    my $t = time;
    (my $sec, my $min, my $hour, my $mday, my $mon, my $year, my $wday
+, my $yday, my $isdst)=localtime($t);
    $year = $year + "1900";
    my $SQLServer = "servername";
    my $DB = "dbname";
    my $SQLUname = "username";
    my $SQLpass="pass";

#### Get List of Users to Remind ####
    open(LOGFILE,">>Reminder.log");
    print LOGFILE "\n\n".localtime($t)."\n";
    
    my $Conn = CreateObject OLE "ADODB.Connection";
    $Conn->Open("PROVIDER=SQLOLEDB;DATA SOURCE=$SQLServer;UID=$SQLUnam
+e;PWD=$SQLpass;DATABASE=$DB");
    my $RS_UsersToRemind = CreateObject OLE "ADODB.Recordset";
    my $RS_UserUpdate = CreateObject OLE "ADODB.Recordset";
    
    if ($Conn)
    {
        my $SQL_UsersToRemind = "
            SELECT ClassSchedule.EventDate AS EventDate, 
                DATEDIFF(dd, { fn NOW() }, ClassSchedule.EventDate) AS
+ Until, 
                DATEDIFF(dd, ClassRoster.Enrolled, ClassSchedule.Event
+Date) AS Since, 
                Classes.Duration AS Duration, 
                Classes.Topic AS Topic, 
                Classes.Description AS Description, 
                ClassLocation.Location AS Location, 
                ClassLocation.Address AS Address, 
                ClassLocation.Directions AS Directions, 
                ClassLocation.Map AS Map, 
                ClassRoster.idEnrollee AS idEnrollee,
                ClassRoster.System AS System,
                ClassRoster.Account AS Account,
                ClassRoster.PublicID AS PublicID,
                ClassRoster.Name AS Name,
                ClassRoster.Email AS emailAddress
            FROM ClassSchedule 
                INNER JOIN
                    Classes ON ClassSchedule.id_Class = Classes.idClas
+s 
                INNER JOIN
                    ClassRoster ON ClassSchedule.idEvent = ClassRoster
+.id_Event
                INNER JOIN
                    ClassLocation ON ClassSchedule.id_Location = Class
+Location.idLocation
                WHERE (ClassSchedule.EventDate > { fn NOW() }) AND 
                    (ClassRoster.Cancelled IS NULL) AND 
                    (ClassRoster.Reminded IS NULL) AND 
                    (DATEDIFF(dd, ClassRoster.Enrolled, ClassSchedule.
+EventDate) > 7) AND 
                    (NOT (DATEPART(dw, { fn NOW() }) IN (1, 7))) AND 
                    (DATEDIFF(dd, { fn NOW() }, ClassSchedule.EventDat
+e) < 7)";
                    
        $RS_UsersToRemind->Open($SQL_UsersToRemind, $Conn);
        if (!defined href $RS_UsersToRemind){
         ref $RS_UsersToRemind={};
        print "this is defined ";
        }
        if ($RS_UsersToRemind)
        {
            while(!$RS_UsersToRemind->EOF())
            {
                my $SQL_UserUpdate = "update ClassRoster set Reminded=
+{ fn NOW() } where idEnrollee = '".$RS_UsersToRemind->Fields('idEnrol
+lee')->{Value}."';";
                my $sender = new Mail::Sender
                {
                    smtp => 'vaexch001.firstamericanmls.com', 
                    from => 'training@marketlinx.com'
                };
                (
                    ref ($sender->MailMsg( 
                            {
                        to => "".$RS_UsersToRemind->Fields('emailAddre
+ss')->{Value}."",
                                bcc => "somuser\@somewhere.com",
                                subject => "REMINDER: ".$RS_UsersToRem
+ind->Fields('Topic')->{Value}."",
                                msg => 
"This message is to remind you that you are registered to attend ".$RS
+_UsersToRemind->Fields('Topic')->{Value}.". 

Date/Time: ".$RS_UsersToRemind->Fields('EventDate')->{Value}."

Location: ".$RS_UsersToRemind->Fields('Location')->{Value}."

Address : ".$RS_UsersToRemind->Fields('Address')->{Value}."

Seating is limited, so if you no longer plan to attend the class, plea
+se cancel on www.MLXhelp.com",
                                auth => 'LOGIN',
                                authid => 'username',
                                authpwd => 'password',
    ##This field was missing which caused the problem!                
+        })
                        ) and print LOGFILE "Mail sent to ".$RS_UsersT
+oRemind->Fields('emailAddress')->{Value}." OK.\n" ) or die "$Mail::Se
+nder::Error\n";
                $Conn->Execute($SQL_UserUpdate);    
                print LOGFILE "Updated ".$RS_UsersToRemind->Fields('Sy
+stem')->{Value}.",".$RS_UsersToRemind->Fields('Account')->{Value}.","
+.$RS_UsersToRemind->Fields('PublicID')->{Value}.",".$RS_UsersToRemind
+->Fields('Name')->{Value}.",".$RS_UsersToRemind->Fields('emailAddress
+')->{Value}." for ".$RS_UsersToRemind->Fields('EventDate')->{Value}."
+,".$RS_UsersToRemind->Fields('Topic')->{Value}.",".$RS_UsersToRemind-
+>Fields('Location')->{Value}." OK.\n" or die "Unable to Update\n";
                $RS_UsersToRemind->MoveNext();
            }
        $RS_UsersToRemind->Close();
        }
    $Conn->Close;
    close(LOGFILE);
    }
    }

[download]

In reply to Re^8: identifier too long error by grashoper
in thread identifier too long error by grashoper

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.