Did you know SD-WANs can improve network connectivity? Check out this webinar to learn how an SD-WAN simplified, one-click tool can help you migrate and manage data in the cloud.
$from_sender = $q->param('from'); $to_recip = $q->param('to'); $cc_manager = $q->param('cc_mgr'); $bcc = "xxxx\@xxx.com"; $card = $q->param('card'); $message = $q->param('message'); #$cc_mgr = "$cc_manager\@xxxx.com"; @months = qw(Jan Feb Mar Apr May Jun Jul Aug Sept Oct Nov Dec); @weekDays = qw(Sun Mon Tue Wed Thur Fri Sat Sun); ($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = localtime(); $year = 1900 + $yearOffset; $dateandtime = "$hour:$minute:$second, $weekDays[$dayOfWeek] $months[$month] $dayOfMonth, $year"; ..... ($host, $db, $dbUid, $dbPwd) = &dbInfo::setDbInfo(); $errStr = ""; $dbh = DBI->connect("DBI:Oracle:(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=$host)(PORT=1521))(CONNECT_DATA=(SID=$db)))", "$dbUid", "$dbPwd"); $sql = qq/insert into CDO_ECARD(REC_ID,USERID,TO_RECIP,FROM_SENDER,CC_MANAGER,CARD,MESSAGE,IMAGE,DATEANDTIME) values(?,?,?,?,?,?,?,?,?)/; $sth = $dbh->prepare($sql) or $errStr .="SQL Prepare Error: $DBI::errstr<br />"; $sth->execute($recId,$userId,$to_recip,$from_sender,$cc_manager,$card,$message,$imgFile,$dateandtime) or $errStr .= "Execute Error: $DBI::errstr<br />"; $sth->finish or $errStr .= "Finish Error: $DBI::errstr<br />"; $dbh->commit or $errStr .= "Commit Error: $DBI::errstr<br />"; $dbh->disconnect;
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.