Show getPARAM.pl syntax highlighted
## grab form parameters and saved cookies
use CGI ":all";
do 'SITEDEF.pl';
# CGI Parameter Defaults
$cgi_paramHR = {chr => 1,
l_pos => 1,
r_pos => 10001,
wsize => 3,
dbid => $#DBver,
seqUID => 6,
sMETHOD => "Quick",
trackORDER => $DBver[$#DBver]->{trackORD},
trackVISIBLE => $DBver[$#DBver]->{trackVIS},
};
my $cookieVERSION = '20050301'; ## Reset this to update older cookies
my @state = cookie("${SITENAMEshort}_state");
if($state[0] eq $cookieVERSION){
@$cgi_paramHR{'chr','l_pos','r_pos','wsize','dbid','trackORDER','trackVISIBLE','trackDATA'} = @state[1..$#state];
## verify cookie value ranges
$cgi_paramHR->{dbid} = $#DBver if($cgi_paramHR->{dbid} > $#DBver);
$cgi_paramHR->{chr} = 1 if($cgi_paramHR->{chr} && ($cgi_paramHR->{chr} > $#{$DBver[$cgi_paramHR->{dbid}]->{chrSIZE}}));
$cgi_paramHR->{l_pos} = 1 if($cgi_paramHR->{l_pos} < 1);
$cgi_paramHR->{r_pos} = $DBver[$cgi_paramHR->{dbid}]->{chrSIZE}->[$cgi_paramHR->{chr} - 1] if($cgi_paramHR->{r_pos} > $DBver[$cgi_paramHR->{dbid}]->{chrSIZE}->[$cgi_paramHR->{chr} - 1]);
}
my $arg = "";
foreach $arg (param()){
$cgi_paramHR->{$arg} = param($arg);
}
$cgi_paramHR->{"altCONTEXT"} = ($cgi_paramHR->{"altCONTEXT"}) ? $cgi_paramHR->{"altCONTEXT"} : ($cgi_paramHR->{"gseg_gi"} || $cgi_paramHR->{"gsegUID"}) ? "BAC" : "chr";
$cgi_paramHR->{"blastDB"} = ($cgi_paramHR->{"altCONTEXT"} eq "BAC") ? $GSEG_SRC : "GENOME";
my @tmp = split(',',$cgi_paramHR->{trackORDER});
if(scalar(@tmp) != scalar(@{$DBver[$cgi_paramHR->{dbid}]->{tracks}})){
@$cgi_paramHR{'trackORDER','trackVISIBLE'} = ( $DBver[$cgi_paramHR->{dbid}]->{trackORD}, $DBver[$cgi_paramHR->{dbid}]->{trackVIS});
}
$cgi_paramHR->{customORDER} = (defined(param('customORDER')))? param('customORDER'):$cgi_paramHR->{trackORDER};
$cgi_paramHR->{customVISIBLE} = (defined(param('customVISIBLE')))? param('customVISIBLE'):$cgi_paramHR->{trackVISIBLE};
$seqUID = CGI::unescape(param('seqUID')) if defined(param('seqUID')); ###########<<<<<<<<<<<
$sSTR = CGI::unescape(param('searchSTR')) if defined(param('searchSTR'));############<<<<<<<<<<
## wsize parameter MOD
if(($cgi_paramHR->{r_pos} - $cgi_paramHR->{l_pos}) > 100000){
$cgi_paramHR->{wsize}=7;
}elsif(($cgi_paramHR->{r_pos} - $cgi_paramHR->{l_pos}) > 50000){
$cgi_paramHR->{wsize}=6;
}elsif(($cgi_paramHR->{r_pos} - $cgi_paramHR->{l_pos}) > 20000){
$cgi_paramHR->{wsize}=5;
}elsif(($cgi_paramHR->{r_pos} - $cgi_paramHR->{l_pos}) > 10000){
$cgi_paramHR->{wsize}=4;
}elsif(($cgi_paramHR->{r_pos} - $cgi_paramHR->{l_pos}) > 5000){
$cgi_paramHR->{wsize}=3;
}elsif(($cgi_paramHR->{r_pos} - $cgi_paramHR->{l_pos}) > 2000){
$cgi_paramHR->{wsize}=2;
}elsif(($cgi_paramHR->{r_pos} - $cgi_paramHR->{l_pos}) > 1000){
$cgi_paramHR->{wsize}=1;
}else{
$cgi_paramHR->{wsize}=0;
}
do 'checkLOGIN.pl'; ## Check for logged-in Users
## Create cookie line
$sCookie = cookie(-name=>"${SITENAMEshort}_state",
-value=>[$cookieVERSION,@$cgi_paramHR{'chr','l_pos','r_pos','wsize','dbid','trackORDER','trackVISIBLE','trackDATA'}],
-expires=>'+30d');
## log parameters
#print STDERR "IV: $initVer CV: $dbid\n";
See more files for this project here