I have a program that I use that takes in paypal funds for a service. The programmer and website that made this software has gone poof on me or I would offer him the quick $25.00.

Below you will see a paypal passback script for a cgi program. What I need is a monitary conversion in this script.

I need the paypal deposit qty converted to a different rate. The rate is 1656.

So I would need the totaldeposit=paypaldeposit x 1656

Any thaughts or suggestions? Email me at [email protected] if you are interested in making the quick $25.00

-------------------------------
#!/usr/bin/perl

use strict;

my $lib_path;BEGIN{my $path=sub{my $file=(caller)[1];my $idx=rindex($file,'/');$idx=rindex($file,'\\') if($idx==-1);return substr($file,0,$idx+1);};$lib_path=&$path;}

use CGI;

use lib "${lib_path}lib";

use dblib;

use mylib;

use payment;

my $ext_file=$dblib::ext_file;

main();

sub main

{

my $q=new CGI;

my $dbh=$dblib::dbh;

my($ok,$info,$found_total,$custid,$order_number)=notify_paypal($q,$dbh);

print "Status: 302 Moved\nPragma: no-cache\nLocation: client.$ext_file?act=balance&ok=$ok&info=$info\n\n";

}

sub notify_paypal

{

my($q,$dbh)[email protected]_;

my($order_number,$cid)=split(/\-/,$ENV{'QUERY_STRING'});

my($found_id,$found_total)=payment::check_order($dbh,$order_number);

if(!$found_id){return(0,"%MSG451%");}

my $custid=payment::update_order($dbh,$found_id,$order_number,$order_number,1);

payment:rder_done($dbh,$found_total,$custid);

mylib::send_admin_letter($dbh,"Client, <name> made deposit!","Client, <name> made deposit ($found_total)!",$custid,1);

return(1,"%MSG450%",$found_total,$custid,$order_number);

}

1;