Page MenuHomeHEPForge
Files F9501571

pdf_lhapdfxq
No OneTemporary
Actions

pdf_lhapdfxq
View Options

#!/usr/bin/perl
use CGI qw(param header p);
print header('text/html');
$DIRpdf = 'pdf';
$DIRcgi = 'pdf-cgi';
$xq = param("xq");
if($xq eq '') { ($dummy,$xq) = split /\//,$ENV{'PATH_INFO'};}
#print "xq: $xq";
$xmin = param("xmin");
$xmax = param("xmax");
$xinc = param("xinc");
$scale = param("scale");
$q2min = param("q2min");
$q2max = param("q2max");
$q2inc = param("q2inc");
$x = param("x");
$ymin = param("ymin");
$ymax = param("ymax");
$lwidth = param("lwidth");
$ratio = param("ratio");
$xbinning = param("xbinning");
$ybinning = param("ybinning");
$numplot = param("numplot");
$nmax = param("partons");
if($xmin eq '') { $xmin = '0.0001'; }
if($xmax eq '') { $xmax = '0.8'; }
if($xinc eq '') { $xinc = '0.01'; }
if($scale eq '') { $scale = '100'; }
if($q2min eq '') { $q2min = '10'; }
if($q2max eq '') { $q2max = '1000'; }
if($q2inc eq '') { $q2inc = '1'; }
if($x eq '') { $x = '0.1'; }
if($ymin eq '') { $ymin = '0.0'; }
if($ymax eq '') { $ymax = '2.0'; }
if($lwidth eq '') { $lwidth = '3'; }
if($ratio eq 'on') { $ratiocheck = 'checked'; } else { $ratiocheck = ''; }
if($xbinning eq '') { $xbinning = '0'; }
if($xbinning eq '1') {
$xbinningcheck1 = 'checked';
$xbinningcheck0 = '';
} else {
$xbinningcheck0 = 'checked';
$xbinningcheck1 = '';
}
if($ybinning eq '') { $ybinning = '1'; }
if($ybinning eq '1') {
$ybinningcheck1 = 'checked';
$ybinningcheck0 = '';
} else {
$ybinningcheck0 = 'checked';
$ybinningcheck1 = '';
}
if($numplot eq '') { $numplot = 'plot'; }
if($numplot eq 'plot') {
$numplotcheckplot = 'checked';
$numplotchecknum = '';
} else {
$numplotchecknum = 'checked';
$numplotcheckplot = '';
}
if($nmax eq '') { $nmax = 4; }
system("/bin/cat /home/whalley/$DIRpdf/pdf_lhapdfxq.part1a");
system("/bin/cat /home/whalley/$DIRpdf/autoDropDown.js");
if($xq == 1) {system("/bin/cat /home/whalley/$DIRpdf/pdf_lhapdfx.part1b | sed 's/(n)/$nmax/'");}
if($xq == 2) {system("/bin/cat /home/whalley/$DIRpdf/pdf_lhapdfq.part1b | sed 's/(n)/$nmax/'");}
foreach $n (1...$nmax){
$Make = param("Make$n");
$which[$n] = param("Which1");
$whichnumber = 0;
foreach $m (0...14){
if($which[$n] eq $pdfs[$m]) {$whichnumber=$m+1;}
}
system("cat /home/whalley/$DIRpdf/pdf_lhapdfxq.part2 | sed 's/(n)/$n/g' | sed 's/option value=\"$Make\"/option value=\"$Make\" selected/'");
}
$nplus=$nmax+1;
$nminus=$nmax-1;
if($xq == 1) {$temp = "/home/whalley/$DIRpdf/pdf_lhapdfx.part3";}
if($xq == 2) {$temp = "/home/whalley/$DIRpdf/pdf_lhapdfq.part3";}
$temp .= "| sed 's/(xmin-value)/$xmin/'";
$temp .= "| sed 's/(xmax-value)/$xmax/'";
$temp .= "| sed 's/(xinc-value)/$xinc/'";
$temp .= "| sed 's/(scale-value)/$scale/'";
$temp .= "| sed 's/(q2min-value)/$q2min/'";
$temp .= "| sed 's/(q2max-value)/$q2max/'";
$temp .= "| sed 's/(q2inc-value)/$q2inc/'";
$temp .= "| sed 's/(x-value)/$x/'";
$temp .= "| sed 's/(ymin-value)/$ymin/'";
$temp .= "| sed 's/(ymax-value)/$ymax/'";
$temp .= "| sed 's/(lwidth-value)/$lwidth/'";
$temp .= "| sed 's/(ratio-value)/$ratiocheck/'";
$temp .= "| sed 's/(xbinning-value-0)/$xbinningcheck0/'";
$temp .= "| sed 's/(xbinning-value-1)/$xbinningcheck1/'";
$temp .= "| sed 's/(ybinning-value-0)/$ybinningcheck0/'";
$temp .= "| sed 's/(ybinning-value-1)/$ybinningcheck1/'";
$temp .= "| sed 's/(numplot-value-num)/$numplotchecknum/'";
$temp .= "| sed 's/(numplot-value-plot)/$numplotcheckplot/'";
$temp .= "| sed 's/(nplus)/$nplus/g'";
$temp .= "| sed 's/(nminus)/$nminus/g'";
system("cat $temp");
exit;

File Metadata

Mime Type
text/x-perl
Expires
Sun, Feb 23, 2:43 PM (1 d, 7 h)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
4481266
Default Alt Text
pdf_lhapdfxq (3 KB)

Event Timeline