#!/usr/bin/perl
# usage: require 'TherePerlGlobals.pl';
# should be at or near top of any script using DoctorGibbs' Toolkit

use Win32::GuiTest;
use Win32::API;
use XML::Simple;  # installs with ActivePerl
require LWP::UserAgent;  # installs with ActivePerl
use HTTP::Cookies;  # installs with ActivePerl

# You must set your avatar login name and password here...
$myavname="";
$mypassword="";
# ... or else put them in a file to be read from these lines...
if (! $myavname) {
    open(AVINFO,"<TherePerlLogin.dat");
    $_ = <AVINFO>;
    print "$_\n";
    if (m/\s*(\S+)\s+(\S+)\s*/) {$myavname=$1; $mypassword=$2;}
    else {die "You need to set your avatar name and password";}
    close(AVINFO);
}

$ua = LWP::UserAgent->new;
$cookie_jar = HTTP::Cookies->new(file => "lwp_cookies.dat", autosave => 1);
$ua->cookie_jar($cookie_jar);
$ua->agent("Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)");

$key = new Win32::API("user32","keybd_event",'IINP','V');
$sleep = new Win32::API("kernel32","Sleep",'N','V');

$URLdobs = "http://localhost:9999/ihost";
$URLpilot = "http://localhost:9999/ClientLoginGui/pilotInfo";
$URLloc = "http://localhost:9999/ihost/doblocation?doid=";
$URLdetails = "http://localhost:9999/ihost/details?doid=";
$URLwptc = "http://webapps.prod.there.com";
$URLprofileDoid = "$URLwptc/profiles/profiles?op=view&AvatarDoid=";
$URLprofileName = "$URLwptc/profiles/profiles?op=view&AvatarName=";
$URLtelePlace = "$URLwptc/goto/goto?placename=";
$URLteleDoid = "$URLwptc/goto/goto?obj=";
$URLmainMenu = "http://localhost:9999/ScriptHook/Invoke?Path=%2FmainMenu%2F";

$arrowcodes{"L"} = hex("0x25");
$arrowcodes{"U"} = hex("0x26");
$arrowcodes{"R"} = hex("0x27");
$arrowcodes{"D"} = hex("0x28");

$therewin = "";
$globalmyx = "";
$globalmyy = "";

1;