The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

my $data = $WholesaleSystem->generateCSR( 'numOfYears' => '3', 'country' => 'AU', 'state' => 'VIC', 'city' => 'Melbourne', 'organisation' => 'VentraIP', 'organisationUnit' => 'Systems Admin', 'commonName' => 'forums.ventraip.com.au', 'emailAddress' => 'webmaster@ventraip.com.au' ); print Dumper(\$data);

my $output = $WholesaleSystem->decodeCSR($csr); if ($output) { print Dumper(\$output); } else { print $WholesaleSystem->errstr . "\n"; }

{

    my $cert = $WholesaleSystem->purchaseSSLCertificate(
        csr             => $csr,
        'productID'             => '55',
        'firstName'             => 'SSL',
        'lastName'              => 'Admin',
        'emailAddress'  => 'management@ventraip.com.au',
        'address'               => 'PO BOX 119',
        'city'                  => 'Beaconsfield',
        'state'                 => 'VIC',
        'postCode'              => '3807',
        'country'               => 'AU',
        'phone'                 => '+61.390245383',
        'fax'                   => '+61.380806481'
    ) or die $WholesaleSystem->errstr;
    print Dumper(\$cert);
}

my $all_certs = $WholesaleSystem->listAllCerts or die $WholesaleSystem->errstr; print Dumper(\$all_certs);

my $output = $WholesaleSystem->resendDVEmail(1) or die $WholesaleSystem->errstr; print Dumper(\$output);

my $output = $WholesaleSystem->cancelSSLCertificate(1) or die $WholesaleSystem->errstr; print Dumper(\$output);

my $output = $WholesaleSystem->getSSLCertificate(2) or die $WholesaleSystem->errstr; print Dumper(\$output);

my $output = $WholesaleSystem->getCertSimpleStatus(2) or die $WholesaleSystem->errstr; print Dumper(\$output);

my $output = $WholesaleSystem->resendIssuedCertificateEmail(2) or die $WholesaleSystem->errstr; print Dumper(\$output);

my $output = $WholesaleSystem->getDomainBeacon(2, 'forums.ventraip.com.au') or die $WholesaleSystem->errstr; print Dumper(\$output);

my $output = $WholesaleSystem->checkDomainBeacon(2, 'forums.ventraip.com.au') or die $WholesaleSystem->errstr; print Dumper(\$output);