my $ver = "0.8e";
my $clip = Win32::Clipboard();
my $result = $clip->Get();
my $main = MainWindow->new();
my $frame = $main->Frame()->pack(-side=>'top', -fill =>'x');
my $text = $main->Scrolled('Text');
$text->pack( -expand => 1,
-fill => 'both' );
tie (*TEXT, 'Tk::Text', $text);

# Globals
&processHeader();
&correlateSessionIds();
&correlateSnapshots();

# Correlations
&correlate('correl_productCode', 'productCode=', '\$');
&correlate('correl_productId', 'bcProductId=', '\$');
&correlate('correl_productVersion', 'productVersion=', '\$');
&correlate('correl_productSubVersion', 'productSubVersion=', '\$');
&correlate('correl_taskId', 'taskId=', '\$');
&correlate('correl_requestVersion', 'requestVersion=', '\$');
&correlate('correl_popupTxopenPopupList', 'PopupTxopenPopupList=', ';');

# content tab correls
&correlate('correl_contentId', 'contentId=', '\$');
# end

# Parameters
&parametize('"Name=requestnum", "Value=(\d+)"',
'"Name=requestnum", "Value={lr_requestNum}"');
&parametize('"Name=LastRequestTotalTime", "Value=(\d+)"',
'"Name=LastRequestTotalTime", "Value={lr_lastRequestTotalTime}"');
&parametize('"Name=NUM_advertiserId", "Value=(\d+)"',
'"Name=NUM_advertiserId", "Value={advertiserId}"');
&parametize('advID=(\d+)', 'advID={advertiserId}');
&parametize('NUM_advertiserId=(\d+)', 'NUM_advertiserId={advertiserId}');
&parametize('advertiserId=(\d+)', 'advertiserId={advertiserId}');
&parametize('"Name=NUM_productId", "Value=(\d+)"',
'"Name=NUM_productId", "Value={correl_productId}"');
&parametize('productId=(\d+)', 'productId={correl_productId}');

# content tab params
&parametize('"Name=NUM_AdvertiserIDOfGeneralInfo", "Value=(\d+)"',
'"Name=NUM_AdvertiserIDOfGeneralInfo", "Value={advertiserId}"');
&parametize('NUM_AdvertiserIDOfGeneralInfo=(\d+)',
'NUM_AdvertiserIDOfGeneralInfo={advertiserId}');
&parametize('contentIdOfgeneralInfo=(\d+)', 'contentIdOfgeneralInfo={correl_contentId}');
&parametize('artPiece.generalInfo.advertiserID.stringValue", "Value=(\d+)"',
'artPiece.generalInfo.advertiserID.stringValue", "Value={advertiserId}"');
&parametize('artPiece.generalInfo.advertiserID.stringValue=(\d+)',
'artPiece.generalInfo.advertiserID.stringValue={advertiserId}');
# end

# Clean up the code
&cleanUp();

# Print to screen
print TEXT $result;

# Loop da loop
MainLoop();

# Subs
sub processHeader {
if ($result =~ /{/) {
$custom = '{'."\n\n\t\/* custom parameters by loadClipper v$ver \n\t\tend mods\n\t*\/\n".
"\n\n\t// advertiserId from dbApi added by loadClipper v$ver \n".
"\t".'dbApi("selectUniqueNext", "advertiserId", "advertisers","","");'."\n";
$result =~ s/{/$custom/;
}

if ($result =~ /Action=http:\/\/(.+?)\//g) {
$custom = pack("A30","\t{host_302}")."\t$1\n";
$result =~ s/$1/{host_302}/g;
$result =~ s/\t\tend mods\n/\t$custom\n\t\tend mods\n/;
}
}

sub correlate {
my $param = $_[0];
my $LB = $_[1];
my $RB = $_[2];

my $search = $LB.'(\d+|\w+)'.$RB;
print $search . "\n";

$LB =~ s/\\//g;
$RB =~ s/\\//g;
my $replace = $LB."{".$param."}".$RB;

my $web_reg_save =
"\n\n\t// auto correlation by loadClipper v$ver \n".
"\tweb_reg_save_param(\"$param\",\n".
"\t\t\"LB=$LB\",\n".
"\t\t\"RB=$RB\",\n".
"\t\t\"Search=Body\",\n".
"\t\t"."LAST);\n\n\n\t";

$result =~ s/$search/$replace/g;

my @indexes = ();
my $index = 0;
while ($result =~ m/(web.+?\);)/sg) {
$this = $1;

if ($this =~ /$param/g) {
$index = pop(@indexes) || index($result, $this);
substr($result, $index, 0) = $web_reg_save;
last;
}

if ($this =~ /web_submit_data/g) {
$index = index($result, $this);
push(@indexes, $index);
}
}
}

sub correlateSessionIds {
# Process local popup session IDs
my %popupSessions = ();
while ($result =~ m/(web_url\("Popup;jsessionid=)(.+?)",/sg) {
$popupSessions{"$2"} = index($result, "$1$2");
}

foreach $key(keys %popupSessions) {
my $search = $key;
my $index = $popupSessions{$key};
my $param = ($key =~ /([\w\d]{10})!/g) ? "correl_popup_".$1 : undef;
my $replace = "{$param}";
my $web_reg_save =
"\n\n\t// auto correlation by loadClipper v$ver \n".
"\tweb_reg_save_param(\"$param\",\n".
"\t\t\"LB=Popup;jsessionid=\",\n".
"\t\t\"RB=\\\"\",\n".
"\t\t\"Search=Body\",\n".
"\t\t"."LAST);\n\n\n\t";
substr($result, $index, 0) = $web_reg_save;
$result =~ s/$search/$replace/g;
}

# Process opener and primary session IDs
if ($result =~ /jsessionid=(.+?)_/g) {
$result =~ s/$1/{correl_mainSessionId}/g;
$result =~ s/{correl_mainSessionId}_\d+/{correl_mainSessionId}_{lr_sessionNum}/g;
}
}

sub correlateSnapshots {
# Random snapshot number viewer based on ascii->char conversion of action_name
if ($result =~ /^([\w\_])+\(\)/g) {
@num = unpack("C*",$1);
foreach (@num) {
$tNumber += $_;
}
$tNumber *= 100;
$custom = pack("A30","\t{Snapshot tNumber start}")."\t$tNumber\n";
$result =~ s/\t\tend mods\n/\t$custom\n\t\tend mods\n/;
@match = ($result =~ /Snapshot=t(\d+)\.inf/g);
foreach (@match) {
$result =~ s/Snapshot=t$_\.inf/Snapshot=t$tNumber\.inf/g;
$tNumber++;
}
}
}

sub parametize {
my $search = $_[0];
my $replace = $_[1];

if ($result =~ /$search/g) {
my $value = $1;
my $param = ($replace =~ /{(.+?)}/g) ? $1 : undef;
$result =~ s/$search/$replace/g;
}
}

sub cleanUp {
$result =~ s/[\r]+/\n/g;
$result =~ s/\n\n/\n/g;
$clip->Empty;
$clip->Set($result);
}