Select Code to Download

   
if ($msg->{Body}) {
        my $sth = $dbh->prepare($command);
        $sth->execute($msg->{Body}) || die "could not execute MySQL st
+atement: $command";
        $sth->finish();
    }

$command="insert into mailstore.received (SenderName,SenderEmailAddres
+s,SentOnBehalfOfName,ReplyRecipientNames,SenderEmailType,SentOn,Recei
+vedTime,MessageClass,Size,Subj,SentTo,Unread,InternetCodepage,importa
+nce,EntryID,ConversationIndex,ConversationTopic,Class,BodyFormat,Body
+) values ('Bob O\'Neill','bob.oneill@polit.org','Bob O\'Neill','bob.o
+neill@polit.org','SMTP',20060407143605,20060407150746,'IPM.Note',2792
+2,'FW: Less Than a Month to Register - 2nd Annual Sciences Forum','Bo
+b O\'Neill',1,20127,1,'000000007AD91AAD8C99D111B2A90000F843DC060700E4
+22DA54DFB9D011B2710000F843DC0600000170A97100001CA7D120557E1744BFE304E
+F057275DB000000BBAA130000','01C65A8FB33408E229DC00114BA1BB7DBD1E5F218
+50E','Less Than a Month to Register - 2nd Annual Sciences Forum',43,2
+,?)";