# --------------------------------------------------------------------
+---------
# Subroutine:        produceDailyReport
# Parameters:        hashref         argument hash produced by getopts
#                    hashref         merchant's contact data
#                    hashref         transactional data
# Returns:           Nothing
# ====================================================================
+=========
# runs through the list of transactions collating a report for sending
+ to the
# merchant.
# If there is any success/fail data from customer reports or CGI calls
+ then
# this is also included.
# --------------------------------------------------------------------
+---------
sub produceDailyReport{
        my $opts = shift();
        my $merchantInfo = shift();
        my $data = shift();

        my $email_address = $opts{'e'} ||
                            $merchantInfo->{'CONTACT'}->{'SBDAYMAIL'} 
+||
                            $merchantInfo->{'CONTACT'}->{'SBDAYMAILO'}
+;

        my $template = HTML::Template->new(
                filename => SBR_MERCHANTTEMPLATEDAILY,
                die_on_bad_params => 0,
                loop_context_vars => 1,
                global_vars => 1);
        $template->param('transactions',$data);
        $template->param('report_type',"Daily");
        $template->param('MNAM',$merchantInfo->{'NAME'});
        $template->param('merchant_name',$merchantInfo->{'NAME'});
        $template->param('current_date',scalar(localtime()));
        $template->param('period_start',join '/',reverse split '-',cal
+cYesterday($opts));
        $template->param('period_end',join '/',reverse split '-',calcY
+esterday($opts));

        #create the totals for passsed/failed transactions
        my $totals = totalData($data);
        $template->param('total_passed',$totals->{'total_passed'});
        $template->param('total_failed',$totals->{'total_failed'});
        $template->param('no_passed',$totals->{'no_passed'});
        $template->param('no_failed',$totals->{'no_failed'});
        $template->param('total_trans',$totals->{'total_trans'});
        $template->param('no_trans',$totals->{'no_trans'});
        $template->param('CURS',$data->[0]->{'CURS'}); #we need the cu
+rrency :)
        $template->param('currency_symbol',$data->[0]->{'CURS'});

        #make sure template is aware of email and cgi reports
        if(isCustomerReport($opts)){
                $template->param('customer_reports',1);
        }
        if(isMerchantCGICalls($opts)){
                $template->param('cgi_calls',1);
        }
        my $msg = MIME::Lite->new(
                        From =>         SBR_MERCHANTFROMADDRESSDAILY,
                        To =>           $email_address,
                        Subject =>      SBR_MERCHANTSUBJECTDAILY,
                        Type =>         'text/html',
                        Data =>         $template->output()
                );

        #we need to add any images to the mail if they exist
        my $parser = HTML::LinkExtor->new();
        $parser->parse($template->output());
        foreach my $link ($parser->links){
                if ($link->[0] eq 'img'){
                        my_print("Image found [".$link->[2]."] ");
                        if ($link->[2] =~ /^https?:\/\//){
                                my_print("Absolute! Ignored.\n");
                        }else{
                                my ($imgtype,$junk) = reverse split '\
+.',$link->[2];
                                $imgtype =~ s/^jpg$/jpeg/; #propper mi
+me name?

                                if(open(TEST,"<".$link->[2])){
                                        my_print("Attaching\n");
                                        close(TEST);
                                        $msg->attach(Type =>'image/'.$
+imgtype,
                                                Path    =>$link->[2],
                                                Filename=>$link->[2],
                                                #Disposition => 'inlin
+e');
                                                Disposition => 'attach
+ment');
                                }else{
                                        my_print("Not found, Skipped!!
+\n");
                                }
                        }
                }
        }

        if($opts{'d'}){
                #debug mode
                my_print($msg->as_string);
        }else{
                $msg->send();
        }

        return 1;       #stub
}
[download]

<html>
  <head>
    <title>Test form</title>
    <script type="text/JavaScript">
    <!--
      function storeCaret (textEl){
        if (textEl.createTextRange){
          textEl.caretPos = document.selection.createRange().duplicate
+();
        }
      }

      function insertAtCaret (textEl, text){
        if (textEl.createTextRange && textEl.caretPos) {
          var caretPos = textEl.caretPos;
          caretPos.text = caretPos.text.charAt(caretPos.text.length - 
+1) == ' ' ?
                          text + ' ' : text;
        }else{
          textEl.value  += text;
        }
      }

      function addItem(label){
        //document.display.showStuff.value += "%"+label+"%";
        insertAtCaret(document.display.showStuff,label);
      }


    -->
    </script>
  </head>
  <body>
    <h1>Test Form</h1>
    <form name="display" method="post" action="">
      <input type="button" value="test1" onclick="javascript:addItem('
+TEST')">
      <input type="button" value="test2" onclick="javascript:addItem('
+ABCD')">
      <input type="button" value="test3" onclick="javascript:addItem('
+RGFD')">
      <input type="button" value="test4" onclick="javascript:addItem('
+HGFD')">
<br>
      <textarea name="showStuff" rows="5" cols="80" wrap="off" onselec
+t="storeCaret(this);" ond
blclick="storeCaret(this);" onclick="storeCaret(this);" onkeyup="store
+Caret(this)"></textarea>
    </form>
  </body>
</html>
[download]