########### Code Segment #######################



$tax_label = "";

$cost_of_stamps = "0";
$dtax="0";

$final_bill = 0;

$cur_postage = "";
$total_weight = 0;

$cur_postage = "";
$total_weight = 0;


$price{'a'} = 105;
$price{'b'} = 126;
$price{'c'} = 147;
$price{'d'} = 168;
$price{'e'} = 189;
$price{'f'} = 210;
$price{'g'} = 231;
$price{'h'} = 252;
$price{'i'} = 273;
$price{'j'} = 294;
$price{'k'} = 315;
$price{'l'} = 336;

$method = 'E-Mail using SMTP';
$options='<option value="Credit Card By Secure Internet">Credit Card By Secure Internet</option><option value="Cheque">Cheque</option><option value="Call Me For My Credit Card No.">Call Me For My Credit Card No.</option></select>';

    # Fetch the data for this request.

    if ( $ENV{'REQUEST_METHOD'} eq 'POST' ) {
        # Read it from standard input.
        local ($len) = $ENV{'CONTENT_LENGTH'};
        if ( read (STDIN, $data, $len) != $len ) {
            &end_cgi("Error reading 'POST' data");
        }
    }
    else {
        # Fetch from environment variable.
        $data = $ENV{'QUERY_STRING'};
    }

    %q = ();           # resultant hash array

    # The data is encoded as name1=val1&name2=val2&etc.
    # First split on name/value pairs.
    foreach $q ( split ('&', $data) ) {
        # Then split name and value.
        local ($name, $val) = split ('=', $q);
        # URL decode and put in resultant hash array.
        $name = &url_decode ($name);
        if ( defined $q{$name} ) {
           # Multiple values. Append using \0 separator.
            $q{$name} .= "\0" . &url_decode ($val);
        }
        else {
            # Store it.
            $q{$name} = &url_decode ($val);
        }
    }

    
$q{'item_price'}= "\L$q{'item_price'}";

if($price{$q{'item_price'}} ne undef)
   {
   $q{'item_price'} = $price{$q{'item_price'}};
   }    
    
    
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);

$sender_name = $q{"name"};
$addr1 = $q{"mail"};
$process_name = $q{"process_id"};
$process_name =~ s#\.\.([/\:]Ý$)##g;

if($staging_server eq "")
   {
   $staging_server = $ENV{'SCRIPT_NAME'};
   }

# Process E-Mail Request

if($doc_dir eq "")
   {
   if ($ENV{'DOCUMENT_ROOT'} ne undef)
      {
      $doc_dir = $ENV{'DOCUMENT_ROOT'};
      $doc_dir = $doc_dir . '/output/';
      }
   else
      {
      if($ENV{'PATH_TRANSLATED'} ne undef)
         {
         $doc1 = $ENV{'PATH_TRANSLATED'};
         $doc1 =~ s#\\#/#g;
         $pos1 = rindex($doc1,'/');
         $doc1 = substr($doc1,0,$pos1);
         $pos1 = rindex($doc1,'/');
         $doc_dir = substr($doc1,0,$pos1);

         $doc_dir = $doc_dir . '/output/';
         }
      }
   }

  $tax_label = $q{'sales_tax'};
   
  $cur_postage = $q{'shipping'};
  
   
  print"Content-Type: text/html\n\n";
 
  local ($i) = @_;


  local ($file)= $doc_dir . $ENV{"REMOTE_ADDR"}. ".tmp";

  %form_data;

   if( open (TEMP, $file))
   {

    #  || end_cgi ("Cannot read $file: $!"));

   $output="";
   $out="";
   $weight="0";
   $id="";
   $add="";
   $price="";
   $q="";

   while (<TEMP>)
      {
      $out = $out . $_;

      $_ =~ s/\n//;
      $_ =~ s/\r//;

      ($q,$id,$add,$price,$weight)= split('\|',$_);

      $total_weight = $total_weight + ($weight*$q);
#      print "$total_weight #";

      $temp_data = $id .'|' .$add .'|' . $price .'|' . $weight;

      if($form_data{$temp_data} eq undef)
         {
         $form_data{$temp_data} = $q;
         }
      else
         {
         $form_data{$temp_data} = $form_data{$temp_data} + $q;
         }

      }

   close(TEMP);

    }

   if ($q{'add_to_order'} ne undef)
      {
       $q{'add_to_order'} = &convert($q{'add_to_order'});   
	   
   
   if($q{'menu_1'} ne undef)
       {
	   $q{'add_to_order'} = $q{'menu_1'} . ' ' . $q{'add_to_order'};
	   
	   $temp = &scan($q{'menu_1'});
	   
	   if($temp ne "")
	      {
		  $q{'item_price'} = $q{'item_price'} + $temp;
	      }
	   #print $temp;
	            
       }

             
   if($q{'menu_2'} ne undef)
       {
	   $q{'add_to_order'} = $q{'menu_2'} . ' ' . $q{'add_to_order'};
	   
	   $temp = &scan($q{'menu_2'});
	   
	   if($temp ne "")
	      {
		  $q{'item_price'} = $q{'item_price'} + $temp;
	      }
	   	           
       }

   if($q{'menu_3'} ne undef)
       {
	   $q{'add_to_order'} = $q{'menu_3'} . ' ' . $q{'add_to_order'}; 
	   
	   $temp = &scan($q{'menu_3'});
	   
	   if($temp ne "")
	      {
		  $q{'item_price'} = $q{'item_price'} + $temp;
	      }
	   	          
       }
       
   
           
   $temp_record = $q{'id'} .'|' . $q{'add_to_order'} .'|' . $q{'item_price'} .'|' . $q{'weight'};

   $temp_record = $temp_record;

   # add on previously bought items   
   
      if($form_data{$temp_record} eq undef)
     {
     $form_data{$temp_record} = $q{'qty'};
     }
   else
     {
#     $form_data{$temp_record} = $form_data{$temp_record} + $q{'qty'};
     $form_data{$temp_record} = $q{'qty'};
     }

      $total_weight = $total_weight + ($q{'weight'} * $q{'qty'});
   }

#   print "## $total_weight";

$total = 0;
$save = "";
$out ="";
$id = "";

########### Look for shop.html ###################

$begin = "";
$begin2 = "";

if(open (FILE_LIST2, $doc_dir . "shop.html"))# || (&end_cgi("Cannot read shop.html: $!")));

{
   
	while (<FILE_LIST2>)
      {
      $out = $out . $_;

      }

   close(FILE_LIST2);

if(index($out,'<APPLET') != -1)
   {   
   ($begin,$end) = split('<APPLET',$out);
   ($begin2,$end) = split('</APPLET>',$end);
   }

if(index($out,'<applet') != -1)
   {   
   ($begin,$end) = split('<applet',$out);
   ($begin2,$end) = split('</applet>',$end);
   }

}

if($begin eq "")
{
$begin ="	
<HTML>
<HEAD>
<TITLE>Shopping Cart</TITLE>
</HEAD>
<BODY topmargin='0' leftmargin='0' onload='javascript:this.focus();'>";	

$end =
"</BODY>
</HTML>";



}

print $begin;

print'<br>
<form method="get" action="';
print $server;

print'" >';

print"<input type='button' value='Continue Shopping' name='b1' onClick='self.close();'>&nbsp;&nbsp;";



if($q{'menu_1'} ne undef && index($q{'menu_1'},'Select') != -1)
   {
   print"<br><br>Error. $q{'menu_1'}";
   exit;    
   }

if($q{'menu_2'} ne undef && index($q{'menu_2'},'Select') != -1)
   {
   print"<br><br>Error. $q{'menu_2'}";
   exit;    
   }
     
if($q{'menu_3'} ne undef && index($q{'menu_3'},'Select') != -1)
   {
   print"<br><br>Error. $q{'menu_3'}";
   exit;    
   }


print"<input type='submit' value='Remove Selected Items' name='submit'><br><br>";


print
'<table border="2" width="640">';

print'<tr>';
print'<td>';
print 'Remove';
print'</td>';

print'<td>';
print 'Quantity';
print'</td>';

print'<td>';
print 'Item Code';
print'</td>';

print'<td>';
print 'Price';
print'</td>';

print'<td>';
print'Totals';

print'</tr>';

while(($first,$last) = each(%form_data))
   {
   ($id,$add,$price,$weight) = split('\|',$first);


   $first =~ s/\n//;
   $first =~ s/\r//;
   
   
         
   if($q{&unconvert($first)} eq undef)
      {
	      
      print'<tr>';

      print'<td>';

#print $q{$first};


      print'<input type="checkbox" name="' . $first . '" value="ON">';

      print'</td>';

      print'<td>';  
      print sprintf($last);
      print'</td>';

      print'<td>';
      print $add;
      print'</td>';

      print'<td>';
      print sprintf("%.2f",($price));
      print'</td>';

      print'<td>';
      print sprintf("%.2f",($last * $price));

      print'</td>';

      $total = $total + ($last*$price);

#      print "$total" ."xxxxxx" . ($last*$price) ;
      print'</tr>';
      }
   else
      {
#	  print "reduction";    
#      $total_weight = $total_weight - ($weight * $form_data{$first});
#      $total = $total - ($price * $form_data{$first});
      $form_data{$first}="DEL";
      }
   }

######## Shipping ##################

if($total > 0)
   {
   &calc();
  
   }
else
   {
   $cost_of_stamps=0;
   $dtax=0; 	   
	   
   }

if($cur_postage ne "")
   {
   print'<tr>';

   print"<td colspan ='4'>";
   
   if(index($cur_postage,'Select ') != 0)
      {
      print "<p align='right'>Shipping&nbsp;&nbsp;</p>";	
      }
   else
      {
      print "<p align='right'><font face='Arial' size='3' color='#FF6F1A'>Please select a shipping rate from the menu&nbsp;&nbsp;</font></p>";	
      }
   

   print'<td>';
   print sprintf("%.2f",($cost_of_stamps));
   print'</td>';

   print'</tr>';

   }
   
########  Tax Details ###############################

if($tax_label ne "")
{

print'<tr>';


print "<td colspan='4'>";

 if(index($tax_label,'Select ') != 0)
      {
      print "<p align='right'>Sales Tax&nbsp;&nbsp;</p>";	
      }
   else
      {
      print "<p align='right'><font face='Arial' size='3' color='#FF6F1A'>Please select a Sales or VAT rate from the menu&nbsp;&nbsp;</font></p> ";	
      }

print'</td>';

#print'<td></td>';

print'<td>';
print sprintf("%.2f",($dtax));
print'</td>';

print'</tr>';

}

#######  Grand Total ######################


print'<tr>';
print'<td>';
#print sprintf("%.2f",$last);
print'</td>';

print'<td>';
#print $add;
print'</td>';

print'<td>';
#print $add;
print'</td>';

print'<td>';
#print sprintf("%.2f",($price));
print'</td>';

print'<td>';
print sprintf("%.2f",($final_bill));
print'</td>';

print'</tr>';



print '</table><br>';


if($total_weight > 0)
{
print "Total weight of the order is, $total_weight kg<br>";



}

######### Shipping Drop Down Menu ######################

if($POST{'1'} ne undef)
   {

   print "<select name='shipping' size='1'>";

   $n=1;
   $previous = "";
   print "<option value='Select shipping'>Select shipping</option>";

   while($POST{$n} ne undef)
      {

      $postage_record = $POST{$n};
      ($delivery_method,$table,$post_rate) = split(',',$postage_record);

      if($delivery_method ne $previous)
         {
         print "<option ";
      
         if($cur_postage eq $delivery_method)
            {
	        print "selected";    
            }    
      
         print " value='$delivery_method'>$delivery_method</option>";
	      
         }
         
      $previous = $delivery_method;

      $n++;  
      }  

   print "</select> ";
 
   }

############ VAT Drop Down Menu #####################

if($TAX{'1'} ne undef)
   {
 
print "<select name='sales_tax' size='1'>";

$n=1;
$previous = "";
print "<option value='Select Sales Tax'>Select Sales Tax</option>";

while($TAX{$n} ne undef)
   {
    	      
   print "<option ";
   if($tax_label eq $TAX{$n})
	  {
	  print "selected";	  
	  }
	  
	  print " value='$TAX{$n}'>$TAX{$n}</option>";


      $n++;$n++; 
   }  

print "</select> ";
 
}

if($POST{'1'} ne undef)
   {
   print"<input type='submit' value='Calculate Shipping' name='submit'>";
   }

print '</form>';



$product_des = "";

$data_file = ">" . $doc_dir . $ENV{"REMOTE_ADDR"} .".tmp";

   while(($first,$last) = each(%form_data))
      {
      if($last ne "DEL")
         {
         $save = $save . $last . '|' . $first . "\r\n";
         
          
        $first =~ s/\n//;
        $first =~ s/\r//;
         
         ($id,$add,$price,$weight) = split('\|',$first);

       
         $product_des = $product_des . "$id  $add  ($last x £$price)\r\n";
         }
      }

      
   if($q{'shipping'} ne undef)
      {
	  $product_des = $product_des . $q{'shipping'} ."\r\n";   
      }   
      
   if($q{'sales_tax'} ne undef)
      {
	  $product_des = $product_des . $q{'sales_tax'} ."\r\n";   
      }
   
   
   $product_des =~ s/&/&amp;/g;      
   $product_des =~ s/"/&quot;/g;

   $product_des =~ s/</&lt;/g;
   $product_des =~ s/>/&rt;/g; 
      
      
open(FILE,$data_file) || (&end_cgi( "Could not write"));
print FILE $save;
close(FILE);


####### Show Payment Buttons ######################
 
if(($total > 0) && (index($tax_label,'Select ') != 0) && (index($cur_postage,'Select ') != 0) && ($cur_postage ne "" || $POST{'1'} eq undef) && ($tax_label ne "" || $TAX{'1'} eq undef)) 

   {

######## Worldpay Button ######################	   
	   
print"<table border='0'>";
print"<tr>";




if($worldpay eq "Yes")
   {
print"<td>";   
   print'<form  method="POST" action="';

   print 'https://select.worldpay.com/wcc/purchase';

   print'">';

   print "<input type='hidden' name = 'instId' value = '$instId'>";
   print "<input type='hidden' name = 'amount' value = '$final_bill'>";
   print "<input type='hidden' name = 'cartId' value = '". time . "'>";
   print "<input type='hidden' name = 'currency' value = 'GBP'>";
   print "<input type='hidden' name = 'testMode' value = '$testMode'>";
  

   if($acc_id ne "")
      {
      print "<input type='hidden' name = 'accId1' value = '$acc_id'>";
      print "<input type='hidden' name = 'authMode' value = '$auth'>";
      }
   
   print"<input type='hidden' name = 'desc' value = 'Order Details'>";

   print"<input type='hidden' name= 'MC_description' value='$product_des'>";

   print"<input type='submit' value='Worldpay Secure Order Form' name='submit'>";


   print "</form> ";
print"</td>";
   }


if($barclay eq "Yes")
   {
   print"<td>";	   
   &barclay_button();
   print"</td>";
   }
   
if($protx eq "Yes")
   {
   print"<td>";	   
   &protx_button();
   print"</td>";
   }   
   
   
if($authorizenet eq "Yes")
   {
   print"<td>";	   
   &authorize_button();
   print"</td>";
   }   

   
   
if($printable_form eq "Yes")
   {
   print"<td>";	   
   &form_button();
   print"</td>";
   }
print"</tr>";
print"</table>";   
}

if($total == 0)
{
print "<font face='Arial' size='3' color='#FF6F1A'><br>No items are currently selected.  Please click 'Continue Shopping' and select the item, you wish to purchase.<br></font>";
}


##### Print Form Footer ########################

print $end;


#print'</BODY>
#</HTML>';


#$data_file = ">" . $doc_dir . $ENV{"REMOTE_ADDR"} .".tmp";

#   while(($first,$last) = each(%form_data))
#      {
#      if($last ne "DEL")
#         {
#         $save = $save . $last . '|' . $first . "\r\n";
#         }
#      }


#open(FILE,$data_file) || (&end_cgi( "Could not write"));
#print FILE $save;
#close(FILE);


#exit;


#-------------------------- Subroutines  ------------------------------



sub end_cgi
{

print"Content-Type: text/html\n\n$i\nend\n";

exit;

}


sub calc
{

    $british_postal_rates=0;

    $base_price=0;
    $cost_of_stamps = 0;
    $compare_to = 0;
    $rate_amount=0;
    

   $n=1;

   while($POST{$n} ne undef)
      {

      $postage_record = $POST{$n};
      ($delivery_method,$table,$post_rate) = split(',',$postage_record);

    
      $table =~ s/£/\$/g;   #replace £ with $


      $weight_or_money = "";

      $greater_than = 0;

      if(index($table,'+') > -1)
         {

         $greater_than = 1;
         $table =~ s/\+//g;
         }


      if(index($table,'$') == -1)
         {
         $weight_or_money = "W";
         $table =~ s/W//g;
         $table =~ s/w//g;

         }
      else
         {
         $weight_or_money = '$';
         $table =~ s/\$//g;
         $table =~ s/£//g ;
         }


     $compare_to = 0;

     #convert to double  0 if error
     $compare_to = $table;


     $post_rate =~ s/£/\$/g;

     # new line , is this necessary?

     $percent_or_money ="";

     if(index($post_rate,'%') != -1)
        {
        $percent_or_money = '%';
        $post_rate =~ s/\%//g;
        }
     else
        {
        $percent_or_money = '$';
        $post_rate =~ s/\$//g;
        $post_rate =~ s/£//g;
        }
 

        $rate_amount = $post_rate; #remove ?

        #error rate amount =0;

        $dual_variable = 0;

        #if (shipping.getSelectedItem().equals(delivery_method))

        if($cur_postage eq $delivery_method)
           {
      
           if ($weight_or_money eq '$')
              {
              $dual_variable = $total;
              }
           else
              {
              $dual_variable = $total_weight;
              }

         #  print "XXXX--$dual_variable--$compare_to--$greater_than<br>";      
              
           if (($dual_variable < $compare_to) || (($dual_variable >= $compare_to) && ($greater_than == 1)))
              {       
	            
	                
	          if ($percent_or_money eq '%')
                 {
	         
                 $dual_variable = ($dual_variable * $rate_amount)/100;
                 }
              else
                 {
	           
                 $dual_variable = $rate_amount;
                 }


              #     n = postage.countItems();
               $n=10000;
               $cost_of_stamps = $dual_variable;
      
             }
        }

#     print $table;
#     print "#";
#     print $weight_or_money;
#     print "#";
#     print $post_rate;
#     print "#";
#     print $percent_or_money;
#     print "Rate Amount $rate_amount";
#     print "#cost of stamps: ";
#     print $cost_of_stamps;
     $n++;
     }


    $vat = 0;
    $dstamps = 0;

    $svat = "0"; #//tax.getSelectedItem();

          $n=1;
          
          while($TAX{$n} ne undef)
             {            
	         if($TAX{$n} eq $tax_label)    
	         {
             $svat = $TAX{$n+1};
             }
             $n++;$n++;
              }
     
                       
          $vat = $svat;

###   if(!post)
###      {
###      cost_of_stamps = dstamps;
###      }
#

        if($total == 0)
           {
           $vat = 0;
           }

        $vat = $vat * 10;

        $dtax=0;

        if($vat_on_post eq "Yes")
           {
           $dtax = (($total + $cost_of_stamps) * $vat)/1000;
           }
        else
           {
           $dtax = ($total * $vat)/1000;
           }

        $tax_total = $dtax;

        $final_bill=0;
        if($vat_on_post eq "Yes")
           {
           $final_bill = (($total + $cost_of_stamps) * (1000 + $vat))/1000;
           }
        else
           {
           $final_bill = (($total * (1000 + $vat))/1000)+ $cost_of_stamps;
           }

           
      $final_bill = sprintf("%.2f",($final_bill));
      #print("Final bill $final_bill");
      }

sub barclay_button {
	########## Barclay ePDQ Button ######################
   

   print'
   <form  method="POST" action="';

   print $cgi_script;

   print'">';
   print "<input type='hidden' name = 'barclay' value = 'true'>";
   $item_no = 0;

    while(($first,$last) = each(%form_data))
      {
      $item_no++;
      
      ($id,$add,$price,$weight) = split('\|',$first);


      $first =~ s/\n//;
      $first =~ s/\r//;




      print "<input type='hidden' name = 'qty$item_no' value = '$last'>";
      print "<input type='hidden' name = 'code$item_no' value = '$id'>";
      print "<input type='hidden' name = 'desc$item_no' value = '$add'>";
      print "<input type='hidden' name = 'cost$item_no' value = '$price'>";
      print "<input type='hidden' name = 'cur$item_no' value = 'GBP'>";
      }
     
      $item_no++;

#### ePDQ ###################
   
   if($cur_postage ne "" && $total > 0 && $POST{'1'} ne undef) 
      {
      print "<input type='hidden' name = 'qty$item_no' value = '1'>";
      print "<input type='hidden' name = 'code$item_no' value =  '~WP_PNP'>";
      print "<input type='hidden' name = 'desc$item_no' value = '$cur_postage'>";
      print "<input type='hidden' name = 'cost$item_no' value = '$cost_of_stamps'>";
      print "<input type='hidden' name = 'cur$item_no' value = 'GBP'>";
      }     

   $item_no++;

#### ePDQ ######################
   
   if($tax_label ne "" && $total > 0 && $TAX{'1'} ne undef)
      { 
      print "<input type='hidden' name = 'code$item_no' value = '~WP_TAX'>"  ;
      print "<input type='hidden' name = 'desc$item_no' value = '$tax_label'>";
      print "<input type='hidden' name = 'cost$item_no' value = '$dtax'>";
      print "<input type='hidden' name = 'qty$item_no' value = '1'>";
      print "<input type='hidden' name = 'cur$item_no' value = 'GBP'>";
      }        

   print "<input type='hidden' name = 'Action'   value = 'processform'>";

   print"<input type='submit' value='ePDQ Secure Order Form' name='submit'>";
    
   print "</form>\r\n";
#     }
   }
   
   
sub protx_button {
	########## Protx Button ######################
   

   print'
   <form  method="POST" action="';

   print $cgi_script;

   print'">';
   print "<input type='hidden' name = 'Protx_Order_Form' value = 'true'>";
   $item_no = 0;

    while(($first,$last) = each(%form_data))
      {
      $item_no++;
      
      ($id,$add,$price,$weight) = split('\|',$first);


      $first =~ s/\n//;
      $first =~ s/\r//;




      print "<input type='hidden' name = 'qty$item_no' value = '$last'>";
      print "<input type='hidden' name = 'code$item_no' value = '$id'>";
      print "<input type='hidden' name = 'desc$item_no' value = '$add'>";
      print "<input type='hidden' name = 'cost$item_no' value = '$price'>";
      print "<input type='hidden' name = 'cur$item_no' value = 'GBP'>";
      }
     
      $item_no++;

#### ePDQ ###################
   
   if($cur_postage ne "" && $total > 0 && $POST{'1'} ne undef) 
      {
      print "<input type='hidden' name = 'qty$item_no' value = '1'>";
      print "<input type='hidden' name = 'code$item_no' value =  '~WP_PNP'>";
      print "<input type='hidden' name = 'desc$item_no' value = '$cur_postage'>";
      print "<input type='hidden' name = 'cost$item_no' value = '$cost_of_stamps'>";
      print "<input type='hidden' name = 'cur$item_no' value = 'GBP'>";
      }     

   $item_no++;

#### ePDQ ######################
   
   if($tax_label ne "" && $total > 0 && $TAX{'1'} ne undef)
      { 
      print "<input type='hidden' name = 'code$item_no' value = '~WP_TAX'>"  ;
      print "<input type='hidden' name = 'desc$item_no' value = '$tax_label'>";
      print "<input type='hidden' name = 'cost$item_no' value = '$dtax'>";
      print "<input type='hidden' name = 'qty$item_no' value = '1'>";
      print "<input type='hidden' name = 'cur$item_no' value = 'GBP'>";
      }        

   print "<input type='hidden' name = 'Action'   value = 'processform'>";

   print"<input type='submit' value='Protx Order Form' name='submit'>";
    
   print "</form>\r\n";
#     }
   }
   

sub authorize_button {
	########## AuthorizeNet Button ######################
   

   print'
   <form  method="POST" action="';

#   if($authorizenet_mode eq 'Authorize.net')
#      {
#      print 'https://secure.authorize.net/gateway/transact.dll';
#      }
#   else
#      {
#      print 'https://verify.ishopsecure.com/authorizenet/cgi_bin/verify.cgi';	
#      }
      	
#   print'">';
   
   print $cgi_script;

   print"\">\r\n";
    


#   print "<input type='hidden' name = 'x_Login' value = '$authorizenet_login_id'>\r\n";
   print "<input type='hidden' name = 'x_Amount' value = '$final_bill'>\r\n";
#   print "<input type='hidden' name = 'x_Invoice_Num' value = '1'>";
#   print "<input type='hidden' name = 'x_Show_Form' value = 'PAYMENT_FORM'>\r\n";

   print"<input type='hidden' name = 'x_Description' value = '$product_des'>\r\n";

   #print"<input type='hidden' name= 'x_Show_Form' value='PAYMENT_FORM'>\r\n";

   print"<input type='hidden' name='x_Version' value='3.1'>\n";


   print"<input type='submit' value='AuthorizeNet Secure Form' name='submit'>\r\n";
    
   print "</form>\r\n";
#     }
   }

	
sub form_button {
	########## Form Button ######################
   

   print'
   <form  method="GET" action="';

   print $cgi_script;

   print'">';
   print "<input type='hidden' name = 'barclay' value = 'false'>";
   $item_no = 0;
   

   while(($first,$last) = each(%form_data))
      {
    
      
      ($id,$add,$price,$weight) = split('\|',$first);


      $first =~ s/\n//;
      $first =~ s/\r//;

      
      if($last ne "DEL")
         {
         $item_no++;
         print "<input type='hidden' name = 'qty$item_no' value = '$last'>";
         print "<input type='hidden' name = 'code$item_no' value = '$id'>";
         print "<input type='hidden' name = 'desc$item_no' value = '$add'>";
         print "<input type='hidden' name = 'cost$item_no' value = '$price'>";
         print "<input type='hidden' name = 'cur$item_no' value = 'GBP'>";
         
         }
      
            }
     
   $item_no++;

#### form ###################
   
   if($cur_postage ne "" && $total > 0 && $POST{'1'} ne undef) 
      {
      print "<input type='hidden' name = 'qty$item_no' value = '1'>";
      print "<input type='hidden' name = 'code$item_no' value =  '~WP_PNP'>";
      print "<input type='hidden' name = 'desc$item_no' value = '$cur_postage'>";
      print "<input type='hidden' name = 'cost$item_no' value = '$cost_of_stamps'>";
      print "<input type='hidden' name = 'cur$item_no' value = 'GBP'>";
      }     

   $item_no++;

#### form ######################
   
   if($tax_label ne "" && $total > 0 && $TAX{'1'} ne undef)
      { 
      print "<input type='hidden' name = 'code$item_no' value = '~WP_TAX'>"  ;
      print "<input type='hidden' name = 'desc$item_no' value = '$tax_label'>";
      print "<input type='hidden' name = 'cost$item_no' value = '$dtax'>";
      print "<input type='hidden' name = 'qty$item_no' value = '1'>";
      print "<input type='hidden' name = 'cur$item_no' value = 'GBP'>";
      }        

   print "<input type='hidden' name = 'Action'   value = 'processform'>";

   print"<input type='submit' value='Click for Order Form' name='submit'>";
    
   print "</form> ";
#     }
   }

sub nochex_button {
	########## NoChex Button ######################
   

   print'
   <form  method="GET" action="';
   print $cgi_script;

   #print 'https://www.nochex.com/nochex.dll/checkout';

   print'">';
   
   
#     "email=" + URLEncoder.encode(getParameter("E_Mail_Address")) +
 #       "&ordernumber=" +  day.getTime() +
#        "&amount=" + pounds(grand_total);
#"&description=" + URLEncoder.encode("afjlsadjfaslkdfjklasdf\nsdfasdfasdffasdffsadfasdfasdf\nsdfffadsfasfasfasss\nsdfsdfasdffasdfasdfffasreewr\ndsfasfsafewrewtewtttetetdsfd\nsdfasfasdfasfdsadf\nadsfasasffffsdsaddd\ndsffffffsdfffffffffsadskjfdsalkjfklasdfjlksadfjkaksjlfjklasfjlk");
   
   
   $item_no = 0;
   print "<input type='hidden' name = 'nochex_mail' value = 'info\@online-store.co.uk'>";
   print "<input type='hidden' name = 'ordernumber' value ='" . time . "'>";
   
   while(($first,$last) = each(%form_data))
      {
      $item_no++;
      
      ($id,$add,$price,$weight) = split('\|',$first);


      $first =~ s/\n//;
      $first =~ s/\r//;

#if($barclay eq "Yes")
#   {
#      print "<input type='hidden' name = 'barclay' value = 'true'>";
#   }
      print "<input type='hidden' name = 'qty$item_no' value = '$last'>";
      print "<input type='hidden' name = 'code$item_no' value = '$id'>";
      print "<input type='hidden' name = 'desc$item_no' value = '$add'>";
      print "<input type='hidden' name = 'cost$item_no' value = '$price'>";
      print "<input type='hidden' name = 'cur$item_no' value = 'GBP'>";
      }
     
   $item_no++;

#### form ###################
   
   if($cur_postage ne "" && total > 0 && $POST{'1'} ne undef) 
      {
      print "<input type='hidden' name = 'qty$item_no' value = '1'>";
      print "<input type='hidden' name = 'code$item_no' value =  '~WP_PNP'>";
      print "<input type='hidden' name = 'desc$item_no' value = '$cur_postage'>";
      print "<input type='hidden' name = 'cost$item_no' value = '$cost_of_stamps'>";
      print "<input type='hidden' name = 'cur$item_no' value = 'GBP'>";
      }     

   $item_no++;

#### form ######################
   
   if($tax_label ne "" && total > 0 && $TAX{'1'} ne undef)
      { 
      print "<input type='hidden' name = 'code$item_no' value = '~WP_TAX'>"  ;
      print "<input type='hidden' name = 'desc$item_no' value = '$tax_label'>";
      print "<input type='hidden' name = 'cost$item_no' value = '$dtax'>";
      print "<input type='hidden' name = 'qty$item_no' value = '1'>";
      print "<input type='hidden' name = 'cur$item_no' value = 'GBP'>";
      }        

   print "<input type='hidden' name = 'Action'   value = 'processform'>";

   print"<input type='submit' value='Order using Nochex' name='submit'>";
    
   print "</form> ";
#     }
   }


 sub g_value
     {
     local ($rec,$field)=@_;

     $zz=0;
     $yy=0;

	   $rec = $rec + ",,,,,,,,,";

	   for($nn=1;$nn<$field;$nn++)
	     {
                   $zz=index($rec,',',$zz)+1;
       }

         $yy = index($rec,',',$zz);
           $rec= substr($rec,$zz,$yy);

	   return $rec;

     }





sub get_temp
   {
   local ($file)=@_;
   ( open (FILE_LIST, $doc_dir.$file.'.log') ) || (&end_cgi ("Cannot read $file: $!"));

   while (<FILE_LIST>)
      {
      print $_;
      }



   close(FILE_LIST);
   }


sub get_file
   {
   local ($file)=@_;
   ( open (FILE_LIST, $file) ) || (&end_cgi ("Cannot read $file: $!"));
   $output="";
   $out="";


   while (<FILE_LIST>)
      {
      $out = $out . $_;

      }

   if (($q{'Action'} eq 'processform'))
      {
      $out =~ s/e_mail_address/$addr1/;
      $out =~ s/<!--info_goes_here-->/<input type="hidden" name="info" value="$q{'info'}">/;
      $out =~ s/staging_server/$staging_server/;
      $out =~ s/send_all/$method/;
      $out =~ s/<\/select>/$options/;

      $show_info = $q{'info'};

      $show_info =~ s/\r\n/<P>\r\n/g;
      $show_info =~ s/ /&nbsp;/g;
      $show_info = '<font face="Courier" size="2">' . $show_info;

      $show_info = $show_info . '</font>';
#      $out =~ s/<!--show_info-->/$show_info/;
      }

      print $out;

   close(FILE_LIST);
   }

sub convert
   {
   local ($html_info)= @_;
   $html_info =~ s/&/&amp;/g;      
   $html_info =~ s/"/&quot;/g;

   $html_info =~ s/</&lt;/g;
   $html_info =~ s/>/&rt;/g; 	
   return($html_info);
   }
   
sub unconvert
   {
   local ($html_info)= @_;
   $html_info =~ s/&amp;/&/g;      
   $html_info =~ s/&quot;/"/g;

   $html_info =~ s/&lt;/</g;
   $html_info =~ s/&rt;/>/g; 	
   return($html_info);
   }
   
sub find
   {
   local ($file)=@_;

   $string = $q{'item_name'} . ","; #url_decode($ENV{'QUERY_STRING'}) . ",";

   open (FILE_LIST, $doc_dir . $ENV{"REMOTE_ADDR"}. ".tmp");
#   ( open (FILE_LIST,"$file") ) || (&end_cgi ("Cannot read $file: $!"));

   while (<FILE_LIST>)
      {
      $string = $string . $_;
      }

   close(FILE_LIST);

   ( open (FILE_LIST, $file) ) || (&end_cgi ("Cannot read $file: $!"));
   $output="";
   $out="";

   while (<FILE_LIST>)
      {
      $out = $out . $_;

      }
     
##     $out =~ s/<PARAM NAME="find" VALUE="">/<PARAM NAME="find" VALUE="Cape,Boats,Houses">/;
   $out =~ s/<PARAM NAME="find" VALUE="">/<PARAM NAME="find" VALUE="$string">/;

   print $out;
   #print $ENV{'QUERY_STRING'};
   close(FILE_LIST);
   }



 sub delete_file
   {
   local($file)=@_;
   $file =~ s#\.\.([/\:]Ý$)##g;
   unlink($file) || (&CgiDie( "Cannot delete file\n"));
 
   }


#  Read associative array from dir
sub read_doc
   {
   local ($dir)=$doc_dir;
   local ($file,$name);

   if($dir ne "")
      {
      opendir(DOC,$dir) || (&end_cgi( "could not open $dir"));
      while ($file=readdir(DOC))
         {
         if ($file =~ /\.tmp/i)
            {
            ($name)=split(/\./,$file);
            $file=$dir.$file;
            if((-M $file) > 0.01)
               {
               $file =~ s#\.\.([/\:]Ý$)##g;
               unlink($file) || (&cgi_die( "Cannot find temporary file\n"));
               }
            }
         }
      closedir(DOC);
      }
   }



sub get_tally
   {
   local ($tally,$buf);

   (open (F, '<' . $doc_dir."tally_no") ) || (&end_cgi("Error updating tally file"));
  # flock(F,2);
   $buf = <F>;

   # Increment it.
   chop ($buf);
   $tally = $buf;
   $tally++;

   # Write the new count to the tally file.
   open (F, '>' . $doc_dir . "tally_no") || (&end_Cgi ("Error writing to tally file"));
   print F ("$tally\n");
   close (F);

   $tally;
   }


sub show_form
{
   $output2  = "  Card Number: " . $q{'card_number'} .
          "\r\nExpiry Date: " . $q{'expiry_month'} . "/" . $q{'expiry_year'} .
          "\r\n Issue Number: " . $q{'issue_number'} .
          "\r\n Payment Type: " . $q{'type_of_payment'} .
          "\r\n         Name: " . $q{'card_name'} .
          "\r\n      Address: " . $q{'card_address'} .
          "\r\nPost/Zip Code: " . $q{'card_zip'} .
          "\r\n       E-Mail: " . $q{"name"} .
          "\r\n     Delivery\r\n:" .
          "\r\n         Name: " . $q{'del_name'} .
          "\r\n      Address: " . $q{'del_address'} .
          "\r\n      Zip/Code: " . $q{'del_zip'} ."\r\n" . $output;

    $output = $output2;

#   while (($name,$description) = each(%q))
#      {
#      $output = $output . " " . $description . "\r\n";
#      }

}

#   $user = "webmaster@test.web";
#   $subj = "Message from the Web";
#   $message = "...text with embedded newlines...";
#   &sendmail ($user, $subj, $message);
#

sub scan
{
       $testc=0;
       $n=0;

       ($cc_number) = @_;

	   
       $new_ccnumber="";

       $cclen = length($cc_number);
       
       if((index($cc_number,'\$') != -1) || (index($cc_number,'£') != -1))
          {
	         
          $startc = index($cc_number,'\$')+1;
  
          if($startc==0)
             {
	         $startc = index($cc_number,"£")+1;
             }

                      
       for($n=$startc;$n<$cclen;$n++)
             {
             $tc = substr($cc_number,$n,1);
             
             if($tc eq "0" || $tc eq "1" || $tc eq "2" || $tc eq "3" || $tc eq "4" || $tc eq "5" || $tc eq "6" || $tc eq "7" || $tc eq "8" || $tc eq "9" || $tc eq ".")
                {
                $new_ccnumber = $new_ccnumber . $tc;
                }
             else
                {
                $n = $cclen;
                }
             }
          
          
          }
             	
	return $new_ccnumber;
	
}


sub save_array
   {
#   local ($file_contents,$name)=@_;

#   $name=$name;

#   open(DATAFILE,">$name") || (&CgiDie("cannot update $name: $!\n"));
#      {
#      print DATAFILE "$file_contents";
#      close (DATAFILE);
#      }
   }


sub add
{
   local($file_contents)=@_;

   $data_file = ">>" . $doc_dir . $ENV{"REMOTE ADDRESS"};
   open(FILE,$data_file) || (&end_cgi( "Could not write to log file"));
   print FILE $file_contents . "\n";
   close(FILE);
}

sub save_log
{
   local($file_contents)=@_;

   $data_file = ">>" . $doc_dir . "user.log";
   open(FILE,$data_file) || (&end_cgi( "Could not write to log file"));
   print FILE $file_contents . "\n";
   close(FILE);
}


sub save_orders
{
   local($file_contents)=@_;

   $data_file = ">>" . $doc_dir . "orders.log";
   open(FILE,$data_file) || (&end_cgi( "Could not write"));
   print FILE $file_contents . "\n";
   close(FILE);
}

sub temp_order
{
   local($file_id,$file_contents)=@_;
   $data_file = ">" . $doc_dir . "$file_id";
   open(FILE,$data_file) || (&end_cgi( "Could not write to $data_file"));
   print FILE $file_contents . "\n";
   close(FILE);
}



sub load_data
   {
   open(FILE,$doc_dir . "database.txt") || (&end_cgi( "Could not write"));
   while (<FILE>)
      {
      ($key) = split('|',$_);
      s/\n//g;
      s/\r//g;
      $data{$key}=$_;
      }
#   $data{$key_no} = $key_no . '|' . $record;
   close(FILE);

   }

sub save_data
   {
   $data_file = ">" . $doc_dir . "database.txt";
   open(FILE,$data_file) || (&end_cgi( "Could not write"));
   foreach(keys %data)
      {
      print FILE $data{$_} . "\n";
      }
   close(FILE);
   }


#sub get_message
#   {
#   ( open (FILE_LIST, $doc_dir.'e_mail_check') ) || ();
##   print $doc_dir.'e_mail_check';
#   $message="";
#   while (<FILE_LIST>)
#      {
#      $message = $message . $_;
#      }
#   close(FILE_LIST);
# $message;
#   }


# Subroutine cgiparse parses the contents 
# of a CGI query into an associative array.
#
# Typical use:
#
#   %query = &cgiparse();
#   if ( defined $query{'Name'} ) ....
#
# A string of data may be passed as a parameter. This is useful 
# for testing and for occasions where the CGI input has already 
# been collected.



# Subroutine lockfile:
#
#    &lockfile (FH)
#
#    FH is a handle to an opened file, with r/w access.
#
# Return values:
#     1  lock succeeded
#     0  lock failed
#
# Locking is implemented using the flock(2) system call that is
# available on most modern systems.
#
# Typical use:
#
#   open (F, "+>>datafile") || die (...);
#   if ( &lockfile (F) ) {
#     seek (F, 0, 2);     # seek to end
#     print F (...);      # append info
#   }
#   close (F);          # release the file and lock

sub lockfile {
#    local ($FH) = @_;

#    local ($LOCK_SH) = 1;       # shared lock
#    local ($LOCK_EX) = 2;       # lock exclusive
#    local ($LOCK_NB) = 4;       # don't block when locking
#    local ($LOCK_UN) = 8;       # release the lock

#    flock ($FH, $LOCK_EX);      # lock exclusive, 
   TRUE                             # return TRUE upon success.
}

# Subroutine to handle basic decoding of URL data.
sub url_decode {
    local ($s) = @_;

    # Translate + to space, and %XX to the character code.

    $s =~ tr/+/ /;
    $s =~ s/%([0-9A-F][0-9A-F])/pack("C",oct("0x$1"))/gie;
    $s;
}

sub addr_to_host {

    
    local($ip_address) = $_[0];
    $ip_address =~ s/^\s+|\s+$//g;
    local(@bytes) = split(/\./, $ip_address);
    local($packaddr) = pack("C4",@bytes);
    local($host_name) = (gethostbyaddr($packaddr, 2))[0];
    return($host_name);
}

1;