#!/usr/bin/perl if (!-e "location.cfg"){ print "Content-type: text/html\n\n"; print qq~
Error - "location.cfg" file was not found.
~; exit; }else{ require "location.cfg"; } $bSkoIqitwey = "data.txt"; $dRdpVtOrKRL = "link.txt"; $pirymQozhTo = "pass.txt"; $OYzURbhhAbE = ($aOHOKCkJEXH . $bSkoIqitwey); $ZmJpeOzTADX = ($aOHOKCkJEXH . $dRdpVtOrKRL); $JraKZOMkhVO = ($aOHOKCkJEXH . $pirymQozhTo); $ESJoeGoTioC = "ads.txt"; $XjinjDzoiFM = "gtext.txt"; $MeddfPPtFwM="2.3"; $zrQQheddkIl="Login"; @pNMCLvCETIf = ('a'..'z','A'..'Z','0'..'9'); $DntRqqIJUqy = $pNMCLvCETIf[rand(63)] . $pNMCLvCETIf[rand(63)]; $yufcCJeVRJW="\*"; if (-e "$ESJoeGoTioC"){ &pxIendfVtYA; } @cookie=split(/; /, $ENV{'HTTP_COOKIE'}); foreach $oKMzIilXsgZ (@cookie) { ($pcfTCKfIaqV, $BrxUsszdSNj) = split(/=/, $oKMzIilXsgZ); $VzgUukPEfGW{$pcfTCKfIaqV} = $BrxUsszdSNj; } $CqxljJZGJCf = $VzgUukPEfGW{'pass'}; $MhmTLwYicja=$ENV{'QUERY_STRING'}; $MhmTLwYicja=~s/\+/ /g; @MhmTLwYicja=split(/\&/,$MhmTLwYicja); foreach $tusexAxJQDn (@MhmTLwYicja){ ($pcfTCKfIaqV,$BrxUsszdSNj)=split(/\=/, $tusexAxJQDn); $tETFnKDTssG{$pcfTCKfIaqV}="$BrxUsszdSNj"; } if ($tETFnKDTssG{'tell'}){ $OxkKRNUjOnp="$tETFnKDTssG{'tell'}"; if ($OxkKRNUjOnp eq "textlink"){ &aTtxyuBUXhw; exit; }elsif($OxkKRNUjOnp eq "admin"){ &YDCMqeetTPO; exit; }elsif($OxkKRNUjOnp eq "js"){ $KxYjalUqSNY="javascript"; &jUhLAvotUDS; exit; }else{ &mADRGjCqjXt; exit; } } if ($tETFnKDTssG{'jscount'}){ $ouRbmcAvahK="$tETFnKDTssG{'jscount'}"; &UaeGEGIdPvs; exit; } read(STDIN, $quCnhpdKrPI, $ENV{'CONTENT_LENGTH'}); @crIvgAQyGBo = split(/&/, $quCnhpdKrPI); foreach $oKMzIilXsgZ (@crIvgAQyGBo) { ($pcfTCKfIaqV, $BrxUsszdSNj) = split(/=/, $oKMzIilXsgZ); $pcfTCKfIaqV =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $BrxUsszdSNj =~ tr/+/ /; $BrxUsszdSNj =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $DUbnUJbiivv{$pcfTCKfIaqV} = $BrxUsszdSNj; } $haBNDmSdzdt=$DUbnUJbiivv{'line_to_view'}; $IkPBvcZicdf=$DUbnUJbiivv{'line_to_change'}; $PXflNYzbEPV=$DUbnUJbiivv{'line_to_delete'}; $AIZNLUZMOat=$DUbnUJbiivv{'*ad_name'}; $qdOnSVcUWzJ=$DUbnUJbiivv{'*ad_name'}; $qdOnSVcUWzJ=~s/\%22/\"/g; $tvMKrGAYfZb=$DUbnUJbiivv{'*ad_html'}; $tvMKrGAYfZb=~s/\|/\%7C/g; $tvMKrGAYfZb=~s/\%22/\"/g; $tvMKrGAYfZb=~s/\ \ +/\ /g; $tvMKrGAYfZb=~s/\n//g; $tvMKrGAYfZb=~s/\r//g; $GsAHQHXzzZm=$DUbnUJbiivv{'*ad_html'}; $GsAHQHXzzZm=~s/\|/\%7C/g; $GsAHQHXzzZm=~s/\%22/\"/g; $GsAHQHXzzZm=~s/\ \ +/\ /g; $GsAHQHXzzZm=~s/\n//g; $GsAHQHXzzZm=~s/\r//g; $kwJNbFPyiGd=$DUbnUJbiivv{'reset_count'}; $YOTwalETdyW=$DUbnUJbiivv{'mode'}; $TSLZliIQjaQ=$DUbnUJbiivv{'gtext_impressions'}; $DywhPTeFPly=$DUbnUJbiivv{'gtext_clicks'}; $vAKOqbFpdyl=$DUbnUJbiivv{'*gtext_text'}; $eISrpyVLveQ=$DUbnUJbiivv{'*gtext_url'}; $nbsUSwnvtHw=$DUbnUJbiivv{'gtext_color'}; $HNQxBGqmvLI=$DUbnUJbiivv{'text_target'}; $jXbqUyATIvE=$DUbnUJbiivv{'*image_url'}; $hYyhqFQzhyh=$DUbnUJbiivv{'border'}; $rIQSijMormc=$DUbnUJbiivv{'*link_url'}; $UJeIaGEOjUQ=$DUbnUJbiivv{'image_target'}; $HzOMjtVBTLp=$DUbnUJbiivv{'ad_id'}; $EfrsvDVJMZs=$DUbnUJbiivv{'action'}; $euoVmueBABl=$DUbnUJbiivv{'password'}; $kvYAEttPVJD=$DUbnUJbiivv{'impressions'}; if ($kvYAEttPVJD eq ""){ $kvYAEttPVJD = 0; } $BWlbYzYkQew=$DUbnUJbiivv{'clicks'}; if ($BWlbYzYkQew eq ""){ $BWlbYzYkQew = 0; } $dZtKSQuIoSj=$DUbnUJbiivv{'weight'}; if ($dZtKSQuIoSj eq ""){ $dZtKSQuIoSj = 1; } if ($EfrsvDVJMZs eq "Set Password"){ $tveYajfdHoP="Cannot create password file - make sure directory permissions are set to chmod 777"; open(PASSFILE,">$JraKZOMkhVO") || &nTJvSrOAHdS; chmod oct 777,("$JraKZOMkhVO"); $gKvzBfWqXoP = crypt($euoVmueBABl, $DntRqqIJUqy); print PASSFILE "$gKvzBfWqXoP\n"; close(PASSFILE); $SvAoLrwwYsE="Password is set\! You may now log in"; $KzjqvzsydjZ="CAROUSEL - Password Set"; &HaQukIIYfYd; exit; } if ($EfrsvDVJMZs eq "Login"){ open(PASSFILE,"$JraKZOMkhVO") || &nTJvSrOAHdS; $CxUQEvpREoH = ; close(PASSFILE); chomp ($CxUQEvpREoH); $TnGcyQTlYIK = crypt($euoVmueBABl, $CxUQEvpREoH); if ($TnGcyQTlYIK ne $CxUQEvpREoH){ $SvAoLrwwYsE="Your password does not match"; $KzjqvzsydjZ="CAROUSEL - Wrong Password"; &HaQukIIYfYd; exit; }else{ print "Set-Cookie:pass = 2;\n"; $KzjqvzsydjZ="CAROUSEL - Logged In"; $nVmysQFbvlz="You have successfully logged in"; &RgjDHDufVgj; &zPKZyMmcGMc; &RFYAqrlhYKT; exit; } } if ($CqxljJZGJCf != 2){ &jUhLAvotUDS; exit; } if ($EfrsvDVJMZs eq "add"){ $KzjqvzsydjZ="CAROUSEL - Paste Affiliate Code"; $nVmysQFbvlz="Paste HTML banner code into form box and choose a name for this ad.
If you don't have ready-to-paste code, use \"Create New Banner\""; &RgjDHDufVgj; &NDKjrOByvzB; &RFYAqrlhYKT; exit; } if ($EfrsvDVJMZs eq "write"){ $KzjqvzsydjZ="CAROUSEL - New Banner Added"; $nVmysQFbvlz="Your banner has been added"; &RgjDHDufVgj; &fHNPpfhKEoT; &zPKZyMmcGMc; &RFYAqrlhYKT; exit; } if ($EfrsvDVJMZs eq "stats"){ $KzjqvzsydjZ="CAROUSEL - Statistics"; $nVmysQFbvlz="View statistics for your ads
Click \"Edit\" to view or modify an ad, \"Delete\" to remove an ad"; &RgjDHDufVgj; &zPKZyMmcGMc; &RFYAqrlhYKT; exit; } if ($EfrsvDVJMZs eq "delete"){ $KzjqvzsydjZ="CAROUSEL - Item Deleted"; $nVmysQFbvlz="Selected ad has been deleted"; &RgjDHDufVgj; &BrhXDjLUvpR; &zPKZyMmcGMc; &RFYAqrlhYKT; exit; } if ($EfrsvDVJMZs eq "reset"){ $KzjqvzsydjZ="CAROUSEL - Counters Reset"; $nVmysQFbvlz="Ad counters have been reset"; &RgjDHDufVgj; &yOydIhufviD; &zPKZyMmcGMc; &RFYAqrlhYKT; exit; } if ($EfrsvDVJMZs eq "save"){ $KzjqvzsydjZ="CAROUSEL - Changes Saved"; $nVmysQFbvlz="Changes to selected ad have been saved"; &RgjDHDufVgj; &wEJtOxbHIHk; &zPKZyMmcGMc; &RFYAqrlhYKT; exit; } if ($EfrsvDVJMZs eq "gtext"){ $KzjqvzsydjZ="CAROUSEL - Text Link Setup"; $nVmysQFbvlz="Text Link setup
When enabled, this will put the same text link under all your ad banners"; &RgjDHDufVgj; &CDntqAjFzCf; &RFYAqrlhYKT; exit; } if ($EfrsvDVJMZs eq "set_gtext"){ $KzjqvzsydjZ="CAROUSEL - Text Link"; $nVmysQFbvlz="Text Link has been changed"; &RgjDHDufVgj; &DcJSAsusBoW; &CDntqAjFzCf; &RFYAqrlhYKT; exit; } if ($EfrsvDVJMZs eq "view"){ $KzjqvzsydjZ="CAROUSEL - View Ad"; $nVmysQFbvlz="Showing selected ad
You may reset the counter, edit the name, weight or HTML code if desired.
\(Entering a weight of \"0\" will deactivate, but not remove the ad.\)"; &RgjDHDufVgj; &MZQJhEgZZYh; &RFYAqrlhYKT; exit; } if ($EfrsvDVJMZs eq "code"){ $KzjqvzsydjZ="CAROUSEL - Generate Code"; $nVmysQFbvlz="Copy and paste this code into your web page where you want your ads to appear:"; &RgjDHDufVgj; &aHsXGHTbkLJ; &RFYAqrlhYKT; exit; } if ($EfrsvDVJMZs eq "preview"){ $KzjqvzsydjZ="CAROUSEL - Preview New Ad"; $nVmysQFbvlz="Verify your new banner before installing
Click \"Install Banner\" to finish"; &RgjDHDufVgj; &kgJwLvbIvhw; &RFYAqrlhYKT; exit; } if ($EfrsvDVJMZs eq "pre_modify"){ $KzjqvzsydjZ="CAROUSEL - Preview Changes"; $nVmysQFbvlz="Verify your changes before modification
Click \"Save Changes\" to finish"; &RgjDHDufVgj; &hSUidmFNJLG; &RFYAqrlhYKT; exit; } if ($EfrsvDVJMZs eq "create"){ $KzjqvzsydjZ="CAROUSEL - Create New Banner"; $nVmysQFbvlz="Enter Image URL, Link URL and choose a name for this ad.
If you have ready-to-paste HTML code, use \"Paste Affiliate Code\""; &RgjDHDufVgj; &qoSrFHogYAQ; &RFYAqrlhYKT; exit; } sub YDCMqeetTPO{ if (!-e "$JraKZOMkhVO"){ $SvAoLrwwYsE="You need to set an administration password for Carousel"; $zrQQheddkIl="Set Password"; $KzjqvzsydjZ="CAROUSEL - Set Admin Password"; &HaQukIIYfYd; exit; } if ($CqxljJZGJCf == 2){ $KzjqvzsydjZ="CAROUSEL - Logged In"; $nVmysQFbvlz="You are logged in"; &RgjDHDufVgj; &zPKZyMmcGMc; &RFYAqrlhYKT; exit; }else{ $KzjqvzsydjZ="CAROUSEL - Login"; &HaQukIIYfYd; exit; } } sub pxIendfVtYA{ $tveYajfdHoP="Cannot create new data file - make sure directory permissions are set to chmod 777"; while (-e "$ESJoeGoTioC.tmp"){ sleep(1); } open(NEWFILE,">$OYzURbhhAbE") || &WbvJnSfnexS; $tveYajfdHoP="Cannot open data file - make sure permissions are set to chmod 777"; open(OLDFILE,"$ESJoeGoTioC") || &afxpYEuAxTJ; @yFTSfTeUARs = ; close(OLDFILE); $AnCFrDNKiWw=10000000; foreach $tusexAxJQDn (@yFTSfTeUARs) { ($AIZNLUZMOat, $tvMKrGAYfZb) = split(/\|/, $tusexAxJQDn); $AnCFrDNKiWw++; $LDCAMUCFRwb="$AnCFrDNKiWw\|0\|0\|1\|$AIZNLUZMOat\|$tvMKrGAYfZb"; if (length($LDCAMUCFRwb) < 1){ next; } $LDCAMUCFRwb=~s/\ \ +/\ /g; $LDCAMUCFRwb=~s/\n//g; $LDCAMUCFRwb=~s/\r//g; print NEWFILE "$LDCAMUCFRwb\n"; } close(NEWFILE); chmod oct 777,("$OYzURbhhAbE"); unlink ("$ESJoeGoTioC"); if (-e "$XjinjDzoiFM"){ open(OLDTEXTFILE,"$XjinjDzoiFM") || &WbvJnSfnexS; $XbMVnHWOcfs = ; chomp ($XbMVnHWOcfs); ($vAKOqbFpdyl, $nbsUSwnvtHw, $eISrpyVLveQ, $HNQxBGqmvLI) = split(/\|/, $XbMVnHWOcfs); open(NEWTEXTFILE,">$ZmJpeOzTADX") || &WbvJnSfnexS; print NEWTEXTFILE "0\|0\|$vAKOqbFpdyl\|$nbsUSwnvtHw\|$eISrpyVLveQ\|$HNQxBGqmvLI\n"; close(NEWTEXTFILE); chmod oct 777,("$ZmJpeOzTADX"); close(OLDTEXTFILE); unlink ("$XjinjDzoiFM"); } } sub jUhLAvotUDS{ if (-e "$OYzURbhhAbE"){ open(DATAFILE,"$OYzURbhhAbE") || &afxpYEuAxTJ; }else{ if ($KxYjalUqSNY eq "javascript"){ print "Content-type: text/plain\n\n"; print qq~banner=('You have no ads installed - Click here to log in to control panel');~; print qq~document.write(banner);~; exit; }else{ print "Content-type: text/html\n\n"; print qq~You have no ads installed - Click here to log in to control panel~; exit; } } @exbKhkfsGwD = ; close(DATAFILE); $tusexAxJQDn=0; foreach $yAMWoihZgri (@exbKhkfsGwD) { $tusexAxJQDn++; } $vzftpodpRmt=$tusexAxJQDn - 1; if ($vzftpodpRmt < 0){ if ($KxYjalUqSNY eq "javascript"){ print "Content-type: text/plain\n\n"; print qq~banner=('You have no ads installed - Click here to log in to control panel');~; print qq~document.write(banner);~; exit; }else{ print "Content-type: text/html\n\n"; print qq~You have no ads installed - Click here to log in to control panel~; exit; } } @bIISsRPVenA = (); $EcnudNvbLAx=0; foreach $yAMWoihZgri (@exbKhkfsGwD) { ($HzOMjtVBTLp,$kvYAEttPVJD,$BWlbYzYkQew,$dZtKSQuIoSj,$AIZNLUZMOat,$tvMKrGAYfZb) = split(/\|/, $yAMWoihZgri); while ($dZtKSQuIoSj > 0){ push (@bIISsRPVenA, $EcnudNvbLAx); $dZtKSQuIoSj--; } $EcnudNvbLAx++; } $LaemBPGnRyx = rand(@bIISsRPVenA); $cIIwmEseSER=$bIISsRPVenA[$LaemBPGnRyx]; $MOxuiUyhWGE=$exbKhkfsGwD[$cIIwmEseSER]; $IkPBvcZicdf=$cIIwmEseSER; $IkPBvcZicdf++; ($HzOMjtVBTLp,$kvYAEttPVJD,$BWlbYzYkQew,$dZtKSQuIoSj,$AIZNLUZMOat,$tvMKrGAYfZb) = split(/\|/, $MOxuiUyhWGE); $kvYAEttPVJD++; $pKveLYlPwKZ="$HzOMjtVBTLp\|$kvYAEttPVJD\|$BWlbYzYkQew\|$dZtKSQuIoSj\|$AIZNLUZMOat\|$tvMKrGAYfZb"; &NHaOOHHQtEb; if (($tvMKrGAYfZb =~ /FORM/i)&&($tvMKrGAYfZb =~ /ACTION/i)&&($tvMKrGAYfZb =~ /METHOD/i)){ $tvMKrGAYfZb=~s/\>/\>|/g; @HPyzwRLbkwQ=split(/\|/,$tvMKrGAYfZb); foreach $wbMfEFUFOqG (@HPyzwRLbkwQ){ if (($wbMfEFUFOqG =~ /FORM/i)&&($wbMfEFUFOqG =~ /ACTION/i)&&($wbMfEFUFOqG =~ /METHOD/i)){ $wbMfEFUFOqG =~s/\>/ onSubmit\=\'jsCount\=window.open\(\"$TkXEZPubbFO\?jscount\=$HzOMjtVBTLp\"\,\"countWindow\"\,\"toolbar\=no\,location\=no\,directories\=no\,status\=no\,menubar\=no\,scrollbars\=no\,resizable\=no\,width\=1\,height\=1\"\)\; return true\'\>/; push (@mXmwKbeAbCy, $wbMfEFUFOqG); }else{ push (@mXmwKbeAbCy, $wbMfEFUFOqG); } } $TondtaqUjdT=join("",@mXmwKbeAbCy); }elsif (($tvMKrGAYfZb =~ /SCRIPT/i)&&($tvMKrGAYfZb =~ /\/SCRIPT/i)){ $TondtaqUjdT="$tvMKrGAYfZb"; }else{ $tvMKrGAYfZb=~s/\>/\>|/g; @HPyzwRLbkwQ=split(/\|/,$tvMKrGAYfZb); foreach $wbMfEFUFOqG (@HPyzwRLbkwQ){ if ($wbMfEFUFOqG =~ /a href/i){ @DSRiMNJispW =split( /\"/,$wbMfEFUFOqG); $tinyVvhgGpu=$DSRiMNJispW [1]; $vlmbSRajBoG=$DSRiMNJispW [3]; last; } } $CDyOjLmiTUe="$TkXEZPubbFO\?tell\=$HzOMjtVBTLp"; if (!$vlmbSRajBoG){ $nUJgvwwOUvU=""; }else{ $nUJgvwwOUvU=" TARGET\=\"$vlmbSRajBoG\""; } $DaTEuWVEHug=""; @mXmwKbeAbCy = (); foreach $wbMfEFUFOqG (@HPyzwRLbkwQ){ if ($wbMfEFUFOqG =~ /a href/i){ push (@mXmwKbeAbCy, $DaTEuWVEHug); }else{ push (@mXmwKbeAbCy, $wbMfEFUFOqG); } } $TondtaqUjdT=join("",@mXmwKbeAbCy); } $TondtaqUjdT=~s/\%7C/\|/g; if (-e "$ZmJpeOzTADX"){ while (-e "$ZmJpeOzTADX.tmp"){ sleep(1); } open(TEMPFILE,">$ZmJpeOzTADX.tmp") || &BCVuuwiIstp; open(GTEXTFILE,"$ZmJpeOzTADX") || &BCVuuwiIstp; $eZAYouIydeN = ; close(GTEXTFILE); chop ($eZAYouIydeN); ($TSLZliIQjaQ, $DywhPTeFPly, $vAKOqbFpdyl, $nbsUSwnvtHw, $eISrpyVLveQ, $HNQxBGqmvLI) = split(/\|/, $eZAYouIydeN); $TSLZliIQjaQ++; print TEMPFILE "$TSLZliIQjaQ\|$DywhPTeFPly\|$vAKOqbFpdyl\|$nbsUSwnvtHw\|$eISrpyVLveQ\|$HNQxBGqmvLI\n"; close(TEMPFILE); chmod oct 777,("$ZmJpeOzTADX.tmp"); $tveYajfdHoP="Cannot rename temp file to master file after edit - make sure directory permissions are set to chmod 777"; rename("$ZmJpeOzTADX.tmp", "$ZmJpeOzTADX") || &WbvJnSfnexS; ($hTkCiFHXYna, $nkZXQhBoFAq) = split(/\-/, $nbsUSwnvtHw); if ($HNQxBGqmvLI ne ""){ $qOeJUcuVyvP="TARGET=\"$HNQxBGqmvLI\""; }else{ $qOeJUcuVyvP=""; } if ($hTkCiFHXYna eq ""){ $eJTogVQemXu="$vAKOqbFpdyl"; }else{ $eJTogVQemXu="$vAKOqbFpdyl"; } $SOXfaoKmufJ="
$TondtaqUjdT
$eJTogVQemXu
"; }else{ $SOXfaoKmufJ="$TondtaqUjdT"; } if ($KxYjalUqSNY eq "javascript"){ $SOXfaoKmufJ=~s/\|/\\|/g; $SOXfaoKmufJ=~s/\"/\\"/g; $SOXfaoKmufJ=~s/\'/\\'/g; $SOXfaoKmufJ=~s/\~/\\~/g; $SOXfaoKmufJ=~s/\n//g; $SOXfaoKmufJ=~s/\r//g; print "Content-type: text/plain\n\n"; print qq~banner=('$SOXfaoKmufJ');~; print qq~document.write(banner);~; exit; }else{ print "Content-type: text/html\n\n"; print "$SOXfaoKmufJ\n"; exit; } } sub aTtxyuBUXhw{ if (!-e "$ZmJpeOzTADX"){ if ($KxYjalUqSNY eq "javascript"){ print "Content-type: text/plain\n\n"; print qq~banner=('Error - Record Not Found');~; print qq~document.write(banner);~; exit; }else{ print "Content-type: text/html\n\n"; print qq~Error - Record Not Found~; exit; } } while (-e "$ZmJpeOzTADX.tmp"){ sleep(1); } open(TEMPFILE,">$ZmJpeOzTADX.tmp") || &BCVuuwiIstp; open(GTEXTFILE,"$ZmJpeOzTADX") || &BCVuuwiIstp; $eZAYouIydeN = ; close(GTEXTFILE); chomp ($eZAYouIydeN); ($TSLZliIQjaQ, $DywhPTeFPly, $vAKOqbFpdyl, $nbsUSwnvtHw, $eISrpyVLveQ, $HNQxBGqmvLI) = split(/\|/, $eZAYouIydeN); $DywhPTeFPly++; print TEMPFILE "$TSLZliIQjaQ\|$DywhPTeFPly\|$vAKOqbFpdyl\|$nbsUSwnvtHw\|$eISrpyVLveQ\|$HNQxBGqmvLI\n"; close(TEMPFILE); chmod oct 777,("$ZmJpeOzTADX.tmp"); $tveYajfdHoP="Cannot rename temp file to master file after edit - make sure directory permissions are set to chmod 777"; rename("$ZmJpeOzTADX.tmp", "$ZmJpeOzTADX") || &WbvJnSfnexS; print "Location: $eISrpyVLveQ\n\n"; exit; } sub mADRGjCqjXt{ if (-e "$OYzURbhhAbE"){ open(DATAFILE,"$OYzURbhhAbE") || &afxpYEuAxTJ; }else{ print "Content-type: text/html\n\n"; print qq~You have no ads installed - Click here to log in to control panel~; exit; } @exbKhkfsGwD = ; close(DATAFILE); $tusexAxJQDn=0; foreach $yAMWoihZgri (@exbKhkfsGwD) { $tusexAxJQDn++; ($HzOMjtVBTLp,$kvYAEttPVJD,$BWlbYzYkQew,$dZtKSQuIoSj,$AIZNLUZMOat,$tvMKrGAYfZb) = split(/\|/, $yAMWoihZgri); if ($OxkKRNUjOnp == $HzOMjtVBTLp){ $bIYLKCrJCtq = 1; $BWlbYzYkQew++; last; } } $IkPBvcZicdf=$tusexAxJQDn; $pKveLYlPwKZ="$HzOMjtVBTLp\|$kvYAEttPVJD\|$BWlbYzYkQew\|$dZtKSQuIoSj\|$AIZNLUZMOat\|$tvMKrGAYfZb"; &NHaOOHHQtEb; if ($tvMKrGAYfZb =~ /