Re: [ic] Bad GlobalSub

[Mark Johnson <markj@redhat.com>]

Your last 'else' doesn't have a closing }.kk

Richard Eicher II wrote:
> 
> lol This just keeps getting better. Note there
> will be some line breaks in the wrong place.
> 
> Ok Here is what I get when I run ./self_test.sh:
> 
> [root@nemisis /root]# ./self_test.sh
> /usr/lib/interchange/eg/globalsub/linkpt
> 
>  Global Sub passed
> 
> Here is what I get when I try to restart:
> 
> bash-2.04$ ./restart
> The Interchange server was not running
> (//usr/lib/interchange/etc/interchange.pid).
> Low traffic settings.
> Calling UI....
> ...UI is loaded....
> Bad GlobalSub 'linkpt'
> In line 84 of the configuration file
> '/usr/lib/interchange/eg/globalsub/linkpt':
> GlobalSub <<EOF
> 
> Bad GlobalSub 'linkpt'
> In line 84 of the configuration file
> '/usr/lib/interchange/eg/globalsub/linkpt':
> GlobalSub <<EOF
> 
> Here is the latest version of the linkpt
> globalsub.
> 
> GlobalSub <<EOF
> sub linkpt {
> #use strict;
> no strict;
> use lperl;
> #use LPERL 'CapturePayment';
> $lperl = new
> LPERL("/usr/lib/interchange/eg/LPERL/lbin","FILE","/usr/lib/interchange/eg/LPERL/temp/")
> ;
> 
> my $hostname           = "secure.linkpt.net";
> my $port               = "1139";
> my $storename          = "370544";
> my $keyfile            =
> "/usr/lib/interchange/eg/certs/cert.pem";
> my $transactionresult  = "GOOD";
> my $testip             = "127.0.0.1";
> 
> $transaction_hash = {
>      hostname        => $hostname,
>      port            => $port,
>      storename       => $storename,
>      keyfile         => $keyfile,
>      orderID         => '',
>      result          => $transactionresult,
>      cardNumber      => $_[0],
>      cardExpMonth    => $_[1],
>      cardExpYear     => $_[2],
>      name            => $_[3],
>      email           => $_[4],
>      phone           => $_[5],
>      address         => $_[6],
>      city            => $_[7],
>      state           => $_[8],
>      zip             => $_[9],
>      country         => $_[10],
>      tax             => $_[11],
>      shipping        => $_[12],
>      subtotal        => $_[13],
>      amount          => $_[14],
>      saddr1          => $_[15],
>      scity           => $_[16],
>      sstate          => $_[17],
>      szip            => $_[18],
>      scountry        => $_[19],
>      ip              => $testip,
>  };
> 
> %ret = $lperl->CapturePayment($transaction_hash);
> $neworderID = $ret{'neworderID'};
> $statusCode = $ret{'statusCode'};
> 
> my %result;
> 
> if ($statusCode == 1) {$result{MStatus} =
> 'success';}
> 
> elsif ($statusCode == 0) {$result{MStatus} =
> $statusMessage;}
> 
> $Vend::Session->{cybercash_result} =
>     $Vend::Session->{payment_result} = \%result;
> 
>     delete $Vend::Session->{cybercash_error};
>     delete $Vend::Session->{payment_error};
> 
>     if ($decline) {
>         $decline = $decline >> 8;
>         $result{'pop.status'} =
>         $result{'MStatus'} = 'failed';
> 
>         $Vend::Session->{cybercash_error}   =
>             $Vend::Session->{payment_error} =
> $result{RESPMSG};
>     }
>     else {
>         $result{'pop.status'} =
>         $result{'MStatus'} = 'success';
> 
>         $Vend::Session->{payment_id} =
> $result{'pop.order-id'};
> 
>         $Vend::Session->{cybercash_error}   =
>         $Vend::Session->{payment_error} =
> $result{RESPMSG};
> 
> #::logDebug(qq{signio decline=$decline result: }
> . ::uneval( \%result));
> 
>     return %result;
> }
> EOF
> 
> Again watch the line breaks.
> 
> Thanks Boyd and Murray, for your help. So is it
> time for a hammer or does anyone have another
> trick.
> 
> Thanks again for everyones time,
> Rick
> 
> __________________________________________________
> Do You Yahoo!?
> Get personalized email addresses from Yahoo! Mail
> http://personal.mail.yahoo.com/
> _______________________________________________
> Interchange-users mailing list
> Interchange-users@lists.akopia.com
> http://lists.akopia.com/mailman/listinfo/interchange-users

-- 
Mark Johnson
Senior Systems Architect - Professional Services
Red Hat, Inc.
E-Business Solutions
markj@redhat.com
703-456-2912