httemplate/misc/email-invoice.cgi

   1 <%
   2
   3 #untaint invnum
   4 my($query) = $cgi->keywords;
   5 $query =~ /^((.+)-)?(\d+)$/;
   6 my $template = $2;
   7 my $invnum = $3;
   8 my $cust_bill = qsearchs('cust_bill',{'invnum'=>$invnum});
   9 die "Can't find invoice!\n" unless $cust_bill;
  10
  11 $cust_bill->email($template);
  12
  13 my $custnum = $cust_bill->getfield('custnum');
  14
  15 print $cgi->redirect("${p}view/cust_main.cgi?$custnum");
  16
  17 %>