Page MenuHomeHEPForge

pdf_lhapdfx
No OneTemporary

pdf_lhapdfx

#!/usr/bin/perl
use CGI qw(param header p);
print header('text/html');
$xmin = param("xmin");
$xmax = param("xmax");
$xinc = param("xinc");
$scale = param("scale");
$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($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/pdf/pdf_lhapdfxq.part1a");
system("/bin/cat /home/whalley/pdf/autoDropDown.js");
system("/bin/cat /home/whalley/pdf/pdf_lhapdfx.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/pdf/pdf_lhapdfxq.part2 | sed 's/(n)/$n/g' | sed 's/option value=\"$Make\"/option value=\"$Make\" selected/'");
}
$nplus=$nmax+1;
$nminus=$nmax-1;
$temp = "/home/whalley/pdf/pdf_lhapdfx.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/(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
Mon, Jan 20, 8:29 PM (9 h, 12 m)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
4239465
Default Alt Text
pdf_lhapdfx (2 KB)

Event Timeline