#!/usr/bin/perl

package fork_dbi_mech;

require Exporter;

use DBIx::Connector;
use Error qw(:try);
use PDF::API2;
use String::Random;
use Switch;
use WWW::Mechanize::Firefox;

use strict;

our @ISA = qw(Exporter);
our @EXPORT = qw(
 USA
 UK
 JAPAN
);

# I use $rand to pad cache files for $mech->content, etc.

my $rand = new String::Random;

sub USA {
 $args_case = $_[0];
 $args_filename = $_[1];
 $args_login = $_[2];
 $ff_profile = $_[3];

# I based my Mozrepl ports off the default 4242 * 10
# Ports are the sum of of this and the Firefox profile

 $ff_port = 42420 + $ff_profile;

# Now construct the unique $mech object

 $m = WWW::Mechanize::Firefox->new(
  launch => ['firefox',
   '-P',
   $ff_profile,
   '-no-remote',
   '-width',
   '1024',
   '-height',
   '768'], 
  repl => "localhost:$ff_port",
  bufsize => 10_000_000, 
  tab => 'current', 
  autoclose => 1 
);
 $url = 'http://usa.example.com';

# Try a $mech->get($url);

 &tryMech($args_filename,
  $args_login,
  $args_case,
  'URL',
  undef,
  $url
 );
 if ($mech_status == 1) {
  &tryMech($args_filename,
   $args_login,
   $args_case,
   'field',
   'CaseField',
   $args_case
  );
  if ($mech_status == 1) {
   &tryMech($args_filename,
    $args_login,
    $args_case,
    'click',
    'Search'
   );
   if ($mech_status == 1) {
    &makePDF($args_filename,
     $args_login,
     $args_case
    );
   }
  }
 }
undef $m;
sleep(1);
}

1;