#!/usr/bin/perl -w

# 7.114.11.0 (01 December 2023)

# Note: DSC comments are specified by two percent characters (%%) as the first
#       characters on a line (no leading white space).

use warnings;
my %IQsOQdemWnRpKqgX9ckOY7a;
my %IQddZwV6KPGAiuqlymAjaf9;
my $FglgkIk3FkJuea4yg45GKKS = `domainname`;
my $ZwZqNNpTEP2ZUydCDbVgEia = $ARGV[1];
my $Vwt2avzPbQvkc1fZmWgFRkU = $ARGV[2];
my $RgdbYnWd0mYfstEI94Kmas1 = -1;
my $NgLsAFr0eWBtUkx_ph10zLd = -1;
my $RgNYL6zJ7PRFCEQ9H2FnYZM = 0;
my $OwEORWd_diPRRfMjclgacYG = 0;
my $Pg7kuusKmFTpUKGI83WDyI4 = 0;
my $RgH6C062x1Obd2hS5mfo1kc = 0;
my $CgQgehjU2fkeP3IuU_SluaS = 0;
my $IQlTd0tjxipX5EM8bpksT9f = 0;
my %VAo9NQ_6OV7q4PDBhbsVUIW = (
"Auto" => '
[{
%%BeginFeature: *paperSource ok
<< /DeferredMediaSelection true /ManualFeed false
/MediaPosition 9 /MediaType null >> setpagedevice
userdict /TSBMediaType 0 put
%%EndFeature
} stopped cleartomark',
"Thin" => '
[{
%%BeginFeature: *paperSource ok
<< /DeferredMediaSelection true /ManualFeed false
/MediaPosition 9 /MediaType (Thin) >> setpagedevice
userdict /TSBMediaType 11 put
%%EndFeature
} stopped cleartomark',
"Drawer1" => '
[{
%%BeginFeature: *paperSource ok
<< /DeferredMediaSelection true /ManualFeed false
/MediaPosition 0 /MediaType null >> setpagedevice
userdict /TSBMediaType 0 put
%%EndFeature
} stopped cleartomark',
"Drawer2" => '
[{
%%BeginFeature: *paperSource ok
<< /DeferredMediaSelection true /ManualFeed false
/MediaPosition 1 /MediaType null >> setpagedevice
userdict /TSBMediaType 0 put
%%EndFeature
} stopped cleartomark',
"LCF" => '
[{
%%BeginFeature: *paperSource ok
<< /DeferredMediaSelection true /ManualFeed false
/MediaPosition 4 /MediaType null >> setpagedevice
userdict /TSBMediaType 0 put
%%EndFeature
} stopped cleartomark',
"Drawer3" => '
[{
%%BeginFeature: *paperSource ok
<< /DeferredMediaSelection true /ManualFeed false
/MediaPosition 4 /MediaType null >> setpagedevice
userdict /TSBMediaType 0 put
%%EndFeature
} stopped cleartomark',
"Drawer4" => '
[{
%%BeginFeature: *paperSource ok
<< /DeferredMediaSelection true /ManualFeed false
/MediaPosition 5 /MediaType null >> setpagedevice
userdict /TSBMediaType 0 put
%%EndFeature
} stopped cleartomark',
"SheetFeedBypass" => '
[{
%%BeginFeature: *paperSource ok
<< /DeferredMediaSelection true /ManualFeed true
/MediaPosition 3 /MediaType null >> setpagedevice
userdict /TSBMediaType 0 put
%%EndFeature
} stopped cleartomark',
"TandemLCF" => '
[{
%%BeginFeature: *paperSource ok
<< /DeferredMediaSelection true /ManualFeed false
/MediaPosition 4 /MediaType null >> setpagedevice
userdict /TSBMediaType 0 put
%%EndFeature
} stopped cleartomark',
"ExternalLCF" => '
[{
%%BeginFeature: *paperSource ok
<< /DeferredMediaSelection true /ManualFeed false
/MediaPosition 6 /MediaType null >> setpagedevice
userdict /TSBMediaType 0 put
%%EndFeature
} stopped cleartomark',
"Plain" => '
[{
%%BeginFeature: *paperSource ok
<< /DeferredMediaSelection true /ManualFeed false
/MediaPosition 9 /MediaType (Plain) >> setpagedevice
userdict /TSBMediaType 0 put
<</TSBPrivate (DSSC PRINT MEDIATYPE=PLAIN) >> setpagedevice
%%EndFeature
} stopped cleartomark',
"PlainA" => '
[{
%%BeginFeature: *paperSource ok
<< /DeferredMediaSelection true /ManualFeed false
/MediaPosition 9 /MediaType (Plain) >> setpagedevice
userdict /TSBMediaType 0 put
<</TSBPrivate (DSSC PRINT MEDIATYPE=PLAIN) >> setpagedevice
%%EndFeature
} stopped cleartomark',
"Plain1" => '
[{
%%BeginFeature: *paperSource ok
<< /DeferredMediaSelection true /ManualFeed false
/MediaPosition 9 /MediaType (Plain1) >> setpagedevice
userdict /TSBMediaType 0 put
<</TSBPrivate (DSSC PRINT MEDIATYPE=PLAIN1) >> setpagedevice
%%EndFeature
} stopped cleartomark',
"Plain2" => '
[{
%%BeginFeature: *paperSource ok
<< /DeferredMediaSelection true /ManualFeed false
/MediaPosition 9 /MediaType (Plain2) >> setpagedevice
userdict /TSBMediaType 0 put
<</TSBPrivate (DSSC PRINT MEDIATYPE=PLAIN2) >> setpagedevice
%%EndFeature
} stopped cleartomark',
"Thick1" => '
[{
%%BeginFeature: *paperSource ok
<< /DeferredMediaSelection true /ManualFeed false
/MediaPosition 9 /MediaType (Thick 1) >> setpagedevice
userdict /TSBMediaType 1 put
<</TSBPrivate (DSSC PRINT MEDIATYPE=THICK1) >> setpagedevice
%%EndFeature
} stopped cleartomark',
"Thick1back" => '
[{
%%BeginFeature: *paperSource ok
<< /DeferredMediaSelection true /ManualFeed false
/MediaPosition 9 /MediaType (Thick 1b) >> setpagedevice
userdict /TSBMediaType 1 put
<</TSBPrivate (DSSC PRINT MEDIATYPE=THICK1B) >> setpagedevice
%%EndFeature
} stopped cleartomark',
"Thick2" => '
[{
%%BeginFeature: *paperSource ok
<< /DeferredMediaSelection true /ManualFeed false
/MediaPosition 9 /MediaType (Thick 2) >> setpagedevice
userdict /TSBMediaType 2 put
<</TSBPrivate (DSSC PRINT MEDIATYPE=THICK2) >> setpagedevice
%%EndFeature
} stopped cleartomark',
"Thick2back" => '
[{
%%BeginFeature: *paperSource ok
<< /DeferredMediaSelection true /ManualFeed false
/MediaPosition 9 /MediaType (Thick 2b) >> setpagedevice
userdict /TSBMediaType 3 put
<</TSBPrivate (DSSC PRINT MEDIATYPE=THICK2B) >> setpagedevice
%%EndFeature
} stopped cleartomark',
"Thick3" => '
[{
%%BeginFeature: *paperSource ok
<< /DeferredMediaSelection true /ManualFeed false
/MediaPosition 9 /MediaType (Thick 3) >> setpagedevice
userdict /TSBMediaType 4 put
<</TSBPrivate (DSSC PRINT MEDIATYPE=THICK3) >> setpagedevice
%%EndFeature
} stopped cleartomark',
"Thick3back" => '
[{
%%BeginFeature: *paperSource ok
<< /DeferredMediaSelection true /ManualFeed false
/MediaPosition 9 /MediaType (Thick 3b) >> setpagedevice
userdict /TSBMediaType 4 put
<</TSBPrivate (DSSC PRINT MEDIATYPE=THICK3B) >> setpagedevice
%%EndFeature
} stopped cleartomark',
"Thick4" => '
[{
%%BeginFeature: *paperSource ok
<< /DeferredMediaSelection true /ManualFeed false
/MediaPosition 9 /MediaType (Thick 4) >> setpagedevice
userdict /TSBMediaType 4 put
<</TSBPrivate (DSSC PRINT MEDIATYPE=THICK4) >> setpagedevice
%%EndFeature
} stopped cleartomark',
"Thick4back" => '
[{
%%BeginFeature: *paperSource ok
<< /DeferredMediaSelection true /ManualFeed false
/MediaPosition 9 /MediaType (Thick 4b) >> setpagedevice
userdict /TSBMediaType 4 put
<</TSBPrivate (DSSC PRINT MEDIATYPE=THICK4B) >> setpagedevice
%%EndFeature
} stopped cleartomark',
"Transparency" => '
[{
%%BeginFeature: *paperSource ok
<< /DeferredMediaSelection true /ManualFeed true
/MediaPosition 9 /MediaType (Transparency) >> setpagedevice
userdict /TSBMediaType 5 put
<</TSBPrivate (DSSC PRINT MEDIATYPE=TRANSPARENCY) >> setpagedevice
%%EndFeature
} stopped cleartomark',
"Recycled" => '
[{
%%BeginFeature: *paperSource ok
<< /DeferredMediaSelection true /ManualFeed false
/MediaPosition 9 /MediaType (Recycled) >> setpagedevice
userdict /TSBMediaType 6 put
<</TSBPrivate (DSSC PRINT MEDIATYPE=RECYCLED) >> setpagedevice
%%EndFeature
} stopped cleartomark',
"Special1" => '
[{
%%BeginFeature: *paperSource ok
<< /DeferredMediaSelection true /ManualFeed false
/MediaPosition 9 /MediaType (Waterproof 1) >> setpagedevice
userdict /TSBMediaType 7 put
<< /OutputPosition 3 >> setpagedevice
<</TSBPrivate (DSSC PRINT MEDIATYPE=WATERPROOF1) >> setpagedevice
%%EndFeature
} stopped cleartomark',
"Special1back" => '
[{
%%BeginFeature: *paperSource ok
<< /DeferredMediaSelection true /ManualFeed false
/MediaPosition 9 /MediaType (Waterproof 1b) >> setpagedevice
userdict /TSBMediaType 8 put
<< /OutputPosition 3 >> setpagedevice
<</TSBPrivate (DSSC PRINT MEDIATYPE=WATERPROOF1B) >> setpagedevice
%%EndFeature
} stopped cleartomark',
"Special2" => '
[{
%%BeginFeature: *paperSource ok
<< /DeferredMediaSelection true /ManualFeed false
/MediaPosition 9 /MediaType (Waterproof 2) >> setpagedevice
userdict /TSBMediaType 9 put
<< /OutputPosition 3 >> setpagedevice
<</TSBPrivate (DSSC PRINT MEDIATYPE=WATERPROOF2) >> setpagedevice
%%EndFeature
} stopped cleartomark',
"Special2back" => '
[{
%%BeginFeature: *paperSource ok
<< /DeferredMediaSelection true /ManualFeed false
/MediaPosition 9 /MediaType (Waterproof 2b) >> setpagedevice
userdict /TSBMediaType 10 put
<< /OutputPosition 3 >> setpagedevice
<</TSBPrivate (DSSC PRINT MEDIATYPE=WATERPROOF2B) >> setpagedevice
%%EndFeature
} stopped cleartomark'
);
chomp $FglgkIk3FkJuea4yg45GKKS;
my $ZANthMYeXyYLcEp_9ouCR1R = '[{
%%BeginFeature: *Duplex NoDuplex
<</Duplex false >> setpagedevice
%%EndFeature
} stopped cleartomark';
my $SQKmOIvN_kraAVuc0QyVMiQ = '[{
%%BeginFeature: *Duplex setting
<</Duplex true /Tumble false >> setpagedevice
%%EndFeature
} stopped cleartomark';
my $LgJFSTaRNZnchyl27nVHePy = '[{
%%BeginFeature: *Duplex setting
<</Duplex true /Tumble true >> setpagedevice
%%EndFeature
} stopped cleartomark';
my @Fgq5sA_PwVW_ShNX38akDvi = split(/(?<!\\) /, $ARGV[4]);
foreach my $SQshiLOhTwBvAso8GKW70DN (@Fgq5sA_PwVW_ShNX38akDvi)
{if ($SQshiLOhTwBvAso8GKW70DN =~ m/(.*)=(.*)/)
{my $JwW2OO_Egq8Fkrsb5GUVeY0 = $1;
my $Pgld7xc58fAiA5CvSN3mXQC = $2;
$Pgld7xc58fAiA5CvSN3mXQC =~ s/\\(.)/$1/g;
$IQsOQdemWnRpKqgX9ckOY7a{$JwW2OO_Egq8Fkrsb5GUVeY0} = $Pgld7xc58fAiA5CvSN3mXQC;
}elsif ($SQshiLOhTwBvAso8GKW70DN =~ m/^no(.*)/)
{$IQsOQdemWnRpKqgX9ckOY7a{$1} = 0;
}else
{$IQsOQdemWnRpKqgX9ckOY7a{$SQshiLOhTwBvAso8GKW70DN} = 1;
}}my $ZgykPb8IIdfT44yU5dfsq3W = "";
if (defined ($ARGV[$#ARGV])) { $ZgykPb8IIdfT44yU5dfsq3W = $ARGV[$#ARGV] }if (-f "$ZgykPb8IIdfT44yU5dfsq3W") { open theInputSource, "<" . $ZgykPb8IIdfT44yU5dfsq3W }else { open theInputSource, "-" }my @FgQKmKHBRCU_6EEbOPh4rT1;
my @FQq6yGJZVkpn6WXxSxCRL8F;
my @OQpti3i7gahMQNsraJTLu0f;
my $VQG7LhmoOvOc6Ccxd6RvQ_O = -1;
while (defined (my $MAYuL63LQjlLfvOn4nR_IaT = <theInputSource>))
{if ($MAYuL63LQjlLfvOn4nR_IaT =~ /^\@PJL\s+ENTER\s+LANGUAGE/)
{my $Cw_v1jZTUivIYCANHUtrAPD = "Normal";
if (defined($IQsOQdemWnRpKqgX9ckOY7a{"PrintMode"}))
{$Cw_v1jZTUivIYCANHUtrAPD = $IQsOQdemWnRpKqgX9ckOY7a{"PrintMode"};
}print "\@PJL COMMENT DSSC PRINT USERLOGIN=" . $ZwZqNNpTEP2ZUydCDbVgEia . "\n";
print "\@PJL COMMENT DSSC JOB NAME=" . $Vwt2avzPbQvkc1fZmWgFRkU . "\n";
print "\@PJL COMMENT DSSC PRINT PRINTMODE=" . uc $Cw_v1jZTUivIYCANHUtrAPD . "\n";
if (length($FglgkIk3FkJuea4yg45GKKS) > 0)
{print "\@PJL COMMENT DSSC PRINT DOMAINNAME=" . $FglgkIk3FkJuea4yg45GKKS . "\n";
print "\@PJL COMMENT DSSC PRINT CERTIFIED=1\n";
}else
{print "\@PJL COMMENT DSSC PRINT CERTIFIED=0\n";
}}if ( $MAYuL63LQjlLfvOn4nR_IaT =~ /^\%\%Page:\s*\w+\s+(\d+)\s*/)
{$IQlTd0tjxipX5EM8bpksT9f = $1;
if ($IQlTd0tjxipX5EM8bpksT9f == 1 )
{if(!defined $IQddZwV6KPGAiuqlymAjaf9{"InputSlot"})
{$IQddZwV6KPGAiuqlymAjaf9{"InputSlot"} = "Auto";
}if ( $IQddZwV6KPGAiuqlymAjaf9{"UseFrontCover"} eq "True" )
{$RgdbYnWd0mYfstEI94Kmas1 = LAXUX6rBHE9_kThT1ViJumr();
}if( $IQddZwV6KPGAiuqlymAjaf9{"UseBackCover"} eq "True")
{$RgNYL6zJ7PRFCEQ9H2FnYZM = DQNtfnhu7hgyrHS7pm6f9z9();
$NgLsAFr0eWBtUkx_ph10zLd = NgBqXkrPQke_x_sDyDPuQ1M() if ($CgQgehjU2fkeP3IuU_SluaS > 0);
}}if ( $IQlTd0tjxipX5EM8bpksT9f == $RgdbYnWd0mYfstEI94Kmas1 )
{FAH5NVdLhy3sCdkZ_1xzuqe(0);
if (($IQddZwV6KPGAiuqlymAjaf9{"Duplex"} eq "None") != ($RgdbYnWd0mYfstEI94Kmas1 < 3))
{OQg31OtLYDVoheJXme4GMcl();
}Yg_pv8thjFMU91046_04dKY();
}if ($IQlTd0tjxipX5EM8bpksT9f == $NgLsAFr0eWBtUkx_ph10zLd)
{KwHZsfTxjaF7bpjNQXPxFo7();
KAVqkrt4s_47MR1s3oVhOM3();
}elsif ($IQlTd0tjxipX5EM8bpksT9f >= $RgdbYnWd0mYfstEI94Kmas1 &&
$RgNYL6zJ7PRFCEQ9H2FnYZM > 0 && $CgQgehjU2fkeP3IuU_SluaS == 0)
{my $IgzeFNCCBt1_YBHDu_ELwfy = $#OQpti3i7gahMQNsraJTLu0f + 1;
if ($IgzeFNCCBt1_YBHDu_ELwfy == $RgNYL6zJ7PRFCEQ9H2FnYZM)
{FAH5NVdLhy3sCdkZ_1xzuqe(1);
}if ($#OQpti3i7gahMQNsraJTLu0f < 0 || ($#OQpti3i7gahMQNsraJTLu0f == 0 && $OQpti3i7gahMQNsraJTLu0f[0] == \@FQq6yGJZVkpn6WXxSxCRL8F))
{push @OQpti3i7gahMQNsraJTLu0f, \@FgQKmKHBRCU_6EEbOPh4rT1;
}else
{push @OQpti3i7gahMQNsraJTLu0f, \@FQq6yGJZVkpn6WXxSxCRL8F;
}}}if ( ($IQlTd0tjxipX5EM8bpksT9f == 1) && ($RgH6C062x1Obd2hS5mfo1kc != 1))
{if ( $IQddZwV6KPGAiuqlymAjaf9{'UseFrontCover'} ne "True" )
{if ($MAYuL63LQjlLfvOn4nR_IaT =~ /^\%\%BeginFeature:/)
{if ( $IQddZwV6KPGAiuqlymAjaf9{'UseBackCover'} eq "True" )
{$CgQgehjU2fkeP3IuU_SluaS--;
$NgLsAFr0eWBtUkx_ph10zLd = NgBqXkrPQke_x_sDyDPuQ1M();
$CgQgehjU2fkeP3IuU_SluaS++;
$NgLsAFr0eWBtUkx_ph10zLd++;
$RgH6C062x1Obd2hS5mfo1kc = 1;
}}}}if ( $IQlTd0tjxipX5EM8bpksT9f != 0 )
{if ( $IQddZwV6KPGAiuqlymAjaf9{'UseFrontCover'} eq "True" )
{if ($MAYuL63LQjlLfvOn4nR_IaT =~ /^\%\%BeginFeature:/)
{$Pg7kuusKmFTpUKGI83WDyI4 = 1;
}if ($MAYuL63LQjlLfvOn4nR_IaT =~ /^\%\%EndFeature/)
{$Pg7kuusKmFTpUKGI83WDyI4 = 0;
$MAYuL63LQjlLfvOn4nR_IaT = "";
}if ($Pg7kuusKmFTpUKGI83WDyI4 == 1)
{$MAYuL63LQjlLfvOn4nR_IaT = "";
}}}if (($MAYuL63LQjlLfvOn4nR_IaT =~ /^\%\%EOF/) && ($IQddZwV6KPGAiuqlymAjaf9{'UseBackCover'} eq "True") &&
($CgQgehjU2fkeP3IuU_SluaS == 0 || ($NgLsAFr0eWBtUkx_ph10zLd == $CgQgehjU2fkeP3IuU_SluaS + 1)))
{if (($IQddZwV6KPGAiuqlymAjaf9{'BackCoverPrintStyle'} eq "NoPrint") ||
($CgQgehjU2fkeP3IuU_SluaS == 0 && $#OQpti3i7gahMQNsraJTLu0f >= 0))
{my $EQHfykvTb2pAEdSI2XVmnOr = ($RgdbYnWd0mYfstEI94Kmas1 > 1) ? $RgdbYnWd0mYfstEI94Kmas1 - 1 : 0;
if ($IQlTd0tjxipX5EM8bpksT9f > 2 && $#OQpti3i7gahMQNsraJTLu0f == 1 && (($IQlTd0tjxipX5EM8bpksT9f - $EQHfykvTb2pAEdSI2XVmnOr) % 2) != 0)
{FAH5NVdLhy3sCdkZ_1xzuqe(1);
}KwHZsfTxjaF7bpjNQXPxFo7();
KAVqkrt4s_47MR1s3oVhOM3();
FAH5NVdLhy3sCdkZ_1xzuqe(0);
Cw4Mkys2_8v2e9cwu4aKEjQ() if ($IQddZwV6KPGAiuqlymAjaf9{'BackCoverPrintStyle'} eq "NoPrint");
$OwEORWd_diPRRfMjclgacYG = 1;
}}if ($IQlTd0tjxipX5EM8bpksT9f == 0 )
{if ($MAYuL63LQjlLfvOn4nR_IaT =~ /^\%\%BeginFeature:\s*\*(\S*)\s*(\S*)/)
{my $VAlLZextcELhv1X2BM7_pvq = $1;
my $Pgld7xc58fAiA5CvSN3mXQC = $2;
$IQddZwV6KPGAiuqlymAjaf9{$VAlLZextcELhv1X2BM7_pvq} = $Pgld7xc58fAiA5CvSN3mXQC;
}if ( $MAYuL63LQjlLfvOn4nR_IaT =~ /^\%\%Pages:\s*(\d+)\s+/ )
{$CgQgehjU2fkeP3IuU_SluaS = $1;
}}if ($#OQpti3i7gahMQNsraJTLu0f >= 0)
{my $Jws5QaXzjwiyD4VHCK08_4K = $OQpti3i7gahMQNsraJTLu0f[$#OQpti3i7gahMQNsraJTLu0f];
push @$Jws5QaXzjwiyD4VHCK08_4K, $MAYuL63LQjlLfvOn4nR_IaT;
}else
{print($MAYuL63LQjlLfvOn4nR_IaT);
}}if ($IQddZwV6KPGAiuqlymAjaf9{'UseBackCover'} eq "True")
{if (($OwEORWd_diPRRfMjclgacYG != 1) && (($CgQgehjU2fkeP3IuU_SluaS == 0 && $#OQpti3i7gahMQNsraJTLu0f >= 0) ||
($IQddZwV6KPGAiuqlymAjaf9{'BackCoverPrintStyle'} eq "NoPrint")))
{my $EQHfykvTb2pAEdSI2XVmnOr = ($RgdbYnWd0mYfstEI94Kmas1 > 1) ? $RgdbYnWd0mYfstEI94Kmas1 - 1 : 0;
if ($IQlTd0tjxipX5EM8bpksT9f > 2 && $#OQpti3i7gahMQNsraJTLu0f == 1 && (($IQlTd0tjxipX5EM8bpksT9f - $EQHfykvTb2pAEdSI2XVmnOr) % 2) != 0)
{FAH5NVdLhy3sCdkZ_1xzuqe(1);
}KwHZsfTxjaF7bpjNQXPxFo7();
KAVqkrt4s_47MR1s3oVhOM3();
}FAH5NVdLhy3sCdkZ_1xzuqe(0);
if ($OwEORWd_diPRRfMjclgacYG != 1)
{Cw4Mkys2_8v2e9cwu4aKEjQ () if ($IQddZwV6KPGAiuqlymAjaf9{'BackCoverPrintStyle'} eq "NoPrint");
print "%%EOF";
}}sub Yg_pv8thjFMU91046_04dKY
{my $Vg7pxS85Je2d3dKRIeMY0qk = $IQddZwV6KPGAiuqlymAjaf9{"InputSlot"};
my $SAv1MaaCf_HfvaAP2AbswHD = $VAo9NQ_6OV7q4PDBhbsVUIW{"$Vg7pxS85Je2d3dKRIeMY0qk"};#??
print ("\n$SAv1MaaCf_HfvaAP2AbswHD\n");
}sub DQNtfnhu7hgyrHS7pm6f9z9
{if ($IQddZwV6KPGAiuqlymAjaf9{'UseBackCover'} eq "True" && $IQddZwV6KPGAiuqlymAjaf9{'BackCoverPrintStyle'} ne "NoPrint")
{return 2 if (OQbDYiztMcIY9yVHqfsBmjw('BackCoverPrintStyle'));
return 1;
}return 0;
}sub NgBqXkrPQke_x_sDyDPuQ1M
{my $VQDs1UaDsMh_Ql0CnAehnva = $CgQgehjU2fkeP3IuU_SluaS;
if ( $IQddZwV6KPGAiuqlymAjaf9{"BackCoverPrintStyle"} eq "NoPrint" )
{$VQDs1UaDsMh_Ql0CnAehnva =  $CgQgehjU2fkeP3IuU_SluaS + 1;
}elsif ( $IQddZwV6KPGAiuqlymAjaf9{"BackCoverPrintStyle"} eq "Print" )
{if (($IQddZwV6KPGAiuqlymAjaf9{"Duplex"} eq "None") && (EANvKh0E9GlH7Z6MVq5wU88() eq 'None'))
{if ($CgQgehjU2fkeP3IuU_SluaS > 1)
{$VQDs1UaDsMh_Ql0CnAehnva = $CgQgehjU2fkeP3IuU_SluaS;
}else
{$VQDs1UaDsMh_Ql0CnAehnva = -1;
}}else
{if ( $CgQgehjU2fkeP3IuU_SluaS == 2 )
{if ( ($IQddZwV6KPGAiuqlymAjaf9{'UseFrontCover'} eq "True") &&
($IQddZwV6KPGAiuqlymAjaf9{'FrontCoverPrintStyle'} eq "Print1") )
{$VQDs1UaDsMh_Ql0CnAehnva = $CgQgehjU2fkeP3IuU_SluaS;
}}elsif ($CgQgehjU2fkeP3IuU_SluaS > 2)
{if ( ($IQddZwV6KPGAiuqlymAjaf9{'UseFrontCover'} eq "True") &&
($IQddZwV6KPGAiuqlymAjaf9{'FrontCoverPrintStyle'} ne "None") &&
(not OQbDYiztMcIY9yVHqfsBmjw('FrontCoverPrintStyle')))
{if ( ($CgQgehjU2fkeP3IuU_SluaS % 2) != 0 )
{$VQDs1UaDsMh_Ql0CnAehnva = $CgQgehjU2fkeP3IuU_SluaS - 1;
}else
{$VQDs1UaDsMh_Ql0CnAehnva = $CgQgehjU2fkeP3IuU_SluaS;
}}else
{if ( ($CgQgehjU2fkeP3IuU_SluaS % 2) != 0 )
{$VQDs1UaDsMh_Ql0CnAehnva = $CgQgehjU2fkeP3IuU_SluaS;
}else
{$VQDs1UaDsMh_Ql0CnAehnva = $CgQgehjU2fkeP3IuU_SluaS - 1;
}}}else
{$VQDs1UaDsMh_Ql0CnAehnva = -1;
}}}elsif ( $IQddZwV6KPGAiuqlymAjaf9{"BackCoverPrintStyle"} eq "Print1" )
{if ($CgQgehjU2fkeP3IuU_SluaS > 1)
{$VQDs1UaDsMh_Ql0CnAehnva = $CgQgehjU2fkeP3IuU_SluaS;
}else
{$VQDs1UaDsMh_Ql0CnAehnva = -1;
}}return $VQDs1UaDsMh_Ql0CnAehnva;
}sub EANvKh0E9GlH7Z6MVq5wU88
{if (exists $IQddZwV6KPGAiuqlymAjaf9{'CoverDuplexEdge'})
{return $IQddZwV6KPGAiuqlymAjaf9{'CoverDuplexEdge'};
}return 'None';
}sub OQbDYiztMcIY9yVHqfsBmjw
{my $RwsKzyXE_K_ICnJptsJ5j6d = $_[0];
if ( $IQddZwV6KPGAiuqlymAjaf9{$RwsKzyXE_K_ICnJptsJ5j6d} eq "Print" )
{return 1 if (($IQddZwV6KPGAiuqlymAjaf9{"Duplex"} ne "None") || (EANvKh0E9GlH7Z6MVq5wU88() ne "None"));
}return 0;
}sub KwHZsfTxjaF7bpjNQXPxFo7
{if ( $IQddZwV6KPGAiuqlymAjaf9{"Duplex"} ne "None" )
{if ( $IQddZwV6KPGAiuqlymAjaf9{"BackCoverPrintStyle"} eq "Print1" )
{print ("\n$ZANthMYeXyYLcEp_9ouCR1R\n");
}}elsif (OQbDYiztMcIY9yVHqfsBmjw('BackCoverPrintStyle'))
{Zw9xFRBFm2X_jheRcapOimL(EANvKh0E9GlH7Z6MVq5wU88());
}}sub KAVqkrt4s_47MR1s3oVhOM3
{my $VAbI7UXk4XwwdfFVS_YarYc = $IQddZwV6KPGAiuqlymAjaf9{"BackCoverSource"};
my $SAv1MaaCf_HfvaAP2AbswHD = $VAo9NQ_6OV7q4PDBhbsVUIW{"$VAbI7UXk4XwwdfFVS_YarYc"};
print ("\n$SAv1MaaCf_HfvaAP2AbswHD\n");
}sub LAXUX6rBHE9_kThT1ViJumr
{my $YQYou_rUvKNwAebrhpy3ONu = $IQddZwV6KPGAiuqlymAjaf9{"FrontCoverSource"};
my $SAv1MaaCf_HfvaAP2AbswHD = $VAo9NQ_6OV7q4PDBhbsVUIW{"$YQYou_rUvKNwAebrhpy3ONu"};
print ("\n$SAv1MaaCf_HfvaAP2AbswHD\n");
if ( $IQddZwV6KPGAiuqlymAjaf9{"FrontCoverPrintStyle"} eq "NoPrint" )
{if ( $IQddZwV6KPGAiuqlymAjaf9{"Duplex"} ne "None" )
{print ("\n$ZANthMYeXyYLcEp_9ouCR1R\n");
}Cw4Mkys2_8v2e9cwu4aKEjQ();
return 1;
}elsif ( $IQddZwV6KPGAiuqlymAjaf9{"FrontCoverPrintStyle"} eq "Print" )
{if ( $IQddZwV6KPGAiuqlymAjaf9{"Duplex"} eq "None" )
{if ( EANvKh0E9GlH7Z6MVq5wU88() ne "None" )
{Zw9xFRBFm2X_jheRcapOimL($IQddZwV6KPGAiuqlymAjaf9{'CoverDuplexEdge'});
return 3;
}return 2;
}else
{return 3;
}}elsif ( $IQddZwV6KPGAiuqlymAjaf9{"FrontCoverPrintStyle"} eq "Print1" )
{if ( $IQddZwV6KPGAiuqlymAjaf9{"Duplex"} ne "None" )
{print ("\n$ZANthMYeXyYLcEp_9ouCR1R\n");
}return 2;
}return 0;
}sub Zw9xFRBFm2X_jheRcapOimL
{my $SQBgCRPPJV6_ZGF5x90eXQe = $_[0];
if ( $SQBgCRPPJV6_ZGF5x90eXQe eq "DuplexNoTumble" )
{print ("\n$SQKmOIvN_kraAVuc0QyVMiQ\n");
}elsif ( $SQBgCRPPJV6_ZGF5x90eXQe eq "DuplexTumble" )
{print ("\n$LgJFSTaRNZnchyl27nVHePy\n");
}else
{print ("\n$ZANthMYeXyYLcEp_9ouCR1R\n");
}}sub OQg31OtLYDVoheJXme4GMcl
{if ( $IQddZwV6KPGAiuqlymAjaf9{"Duplex"} eq "DuplexNoTumble" )
{print ("\n$SQKmOIvN_kraAVuc0QyVMiQ\n");
}elsif ( $IQddZwV6KPGAiuqlymAjaf9{"Duplex"} eq "DuplexTumble" )
{print ("\n$LgJFSTaRNZnchyl27nVHePy\n");
}else
{print ("\n$ZANthMYeXyYLcEp_9ouCR1R\n");
}}sub PQpforKzO6hVgyBsEnu2Gjd
{print( "Print Feature Hash\n" );
Yw0hll42BnESxxL94xo50oO();
}sub Yw0hll42BnESxxL94xo50oO
{foreach my $JwW2OO_Egq8Fkrsb5GUVeY0 (sort(keys(%IQddZwV6KPGAiuqlymAjaf9)))
{print "$JwW2OO_Egq8Fkrsb5GUVeY0: $IQddZwV6KPGAiuqlymAjaf9{$JwW2OO_Egq8Fkrsb5GUVeY0}\n";
}}sub Cw4Mkys2_8v2e9cwu4aKEjQ
{print( "\nshowpage\n" );
}sub FAH5NVdLhy3sCdkZ_1xzuqe
{my $Og8kdbYzVqNXmkHl0HQK6N1 = $_[0];
while(my $FQx2nLX8gFq5J1XC83fBTw3 = shift(@OQpti3i7gahMQNsraJTLu0f))
{foreach my $FgDcKpLH25sEVG0Ecf6UUtT (@$FQx2nLX8gFq5J1XC83fBTw3)
{print $FgDcKpLH25sEVG0Ecf6UUtT;
}@$FQx2nLX8gFq5J1XC83fBTw3 = ();
last if ($Og8kdbYzVqNXmkHl0HQK6N1);
}}
