Business-eWAY-RapidAPI
3 results

 view release on metacpan or  search on metacpan

examples/web/cgi-bin/default.pl  view on Meta::CPAN 

        ## All good then redirect to the payment page
        print $session->header( -location => 'payment.pl' );
        exit();
    }
}

print $session->header();
$session->flush();
## Content
print
qq|<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">|
  . qq|<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">|
  . qq|<head>|
  . qq|    <title></title>|
  . qq|    <link href="../Styles/Site.css" rel="stylesheet" type="text/css" />|
  . qq|    <link href="../Styles/jquery-ui-1.8.11.custom.css" rel="stylesheet" type="text/css" />|
  . qq|    <script src="../Scripts/jquery-1.4.4.min.js" type="text/javascript"></script>|
  . qq|    <script src="../Scripts/jquery-ui-1.8.11.custom.min.js" type="text/javascript"></script>|
  . qq|    <script src="../Scripts/jquery.ui.datepicker-en-GB.js" type="text/javascript"></script>|
  . qq|    <script type="text/javascript" src="../Scripts/tooltip.js"></script>|
  . qq|</head>|

examples/web/cgi-bin/payment.pl  view on Meta::CPAN 

    header("Location: default.pl");
    exit();
}

my $lblError;    ##nu
my $dt = DateTime->now();

my $JSONPScript = "";
## Content
print
qq|<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">|
  . qq|<html xmlns="http://www.w3.org/1999/xhtml">|
  . qq|<head>|
  . qq|    <title></title>|
  . qq|    <link href="../Styles/Site.css" rel="stylesheet" type="text/css" />|
  . qq|    <!-- Include for Ajax Calls -->|
  . qq|    <script src="//ajax.googleapis.com/ajax/libs/jquery/1.7.2/jquery.min.js" type="text/javascript"></script>|
  . qq|    <!-- This is the JSONP script include on the eWAY Rapid API Server - this must be included to use the Rapid API via JSONP -->|
  . qq|    <script type="text/javascript" src="$JSONPScript"></script>|
  . qq|</head>|
  .

examples/web/cgi-bin/results.pl  view on Meta::CPAN 

my $result = $rapidapi->GetAccessCodeResult($request);

## Check if any error returns
my $lblError;
if ( defined( $result->{'Errors'} ) ) {
    $lblError = $rapidapi->ErrorsToString( $result->{'Errors'} );
}

## Content
print
qq|<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">|
  . qq|<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">|
  . qq|<head>|
  . qq|    <title></title>|
  . qq|    <link href="../Styles/Site.css" rel="stylesheet" type="text/css" />|
  . qq|    <link href="../Styles/jquery-ui-1.8.11.custom.css" rel="stylesheet" type="text/css" />|
  . qq|    <script src="../Scripts/jquery-1.4.4.min.js" type="text/javascript"></script>|
  . qq|    <script src="../Scripts/jquery-ui-1.8.11.custom.min.js" type="text/javascript"></script>|
  . qq|    <script src="../Scripts/jquery.ui.datepicker-en-GB.js" type="text/javascript"></script>|
  . qq|</head>|
  . qq|<body>|



( run in 1.297 second using v1.01-cache-2.11-cpan-49f99fa48dc )