Accept-Ranges: bytes Date: Wed, 01 Apr 2020 20:06:03 GMT Connection: close Content-Type: application/octet-stream Expires: Tue, 02 Apr 2019 14:06:03 GMT Content-Length: 9545 ETag: "992aa9dd7ee225ef12bc3c9f80e9d299" #! /usr/bin/perl ################# # SmartCart Shopping System 9.0 # copyright 1996-2010 Bizcom International, llc # Protected by Law # deptwalkthru.cgi # Displays department indexs in a bread crumb format w/ subcats # last updated 03/27/2010 ################# require 'main_path.txt'; &parse_form; sub parse_form { local (*in) = @_ if @_; local ($i, $key, $val); ### replaced his MethGet function if ( $ENV{'REQUEST_METHOD'} eq "GET" ) { $in = $ENV{'QUERY_STRING'}; } elsif ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN,$in,$ENV{'CONTENT_LENGTH'}); } else { # Added for command line debugging # Supply name/value form data as a command line argument # Format: name1=value1\&name2=value2\&... # (need to escape & for shell) # Find the first argument that's not a switch (-) $in = ( grep( !/^-/, @ARGV )) [0]; $in =~ s/\\&/&/g; } @in = split(/&/,$in); # print "content-type: text/html\n\n"; foreach $i (0 .. $#in) { # Convert plus's to spaces $in[$i] =~ s/\+/ /g; # Split into key and value. ($key, $val) = split(/=/,$in[$i],2); # splits on the first =. # Convert %XX from hex numbers to alphanumeric $key =~ s/%(..)/pack("c",hex($1))/ge; $val =~ s/%(..)/pack("c",hex($1))/ge; # Associate key and value. \0 is the multiple separator $in{$key} .= "\0" if (defined($in{$key})); $in{$key} .= $val; $FORM{$key} = $in{$key}; # print "assigning $key to $val
\n"; } return length($in); } # exit; $deptdir = "$main_path/department"; $search = "$main_url/cgi/search.cgi"; $filename = "$main_path/admin/categories.txt"; if ($catwalkhide eq "on") { $catwalkdisplay = "display: none;"; } print "content-type: text/html\n\n"; print " \n"; if (!($FORM{'level'})) { print "HOME :"; } else { # $FORM{'dept'}=~s/_/ /g; @contents = split(/ \: /,$FORM{'category'}); # (@deptchk) = split(/\:\:/,$FORM{'dept'}); ($deptchk,$areachk,$subcatchk) = split(/\:\:/,$FORM{'dept'}); # print "HERE: $FORM{'category'} - $deptchk,$areachk,$subcatchk\n"; # print "dept: $FORM{'dept'}

\n"; $howmanylvls = @contents; foreach $contents (@contents) { $count++; # $termspass = ""; # for ($x=0;$x<$count;$x++) { # $termspass .= "$deptchk[$x]\:\:"; # } if ($count == 1) { $termspass = "$deptchk\:\:"; } if ($count == 2) { $termspass = "$deptchk\:\:$areachk\:\:"; } if ($count == 3) { $termspass = "$deptchk\:\:$areachk\:\:$subcatchk\:\:"; } # print "count:$count - $termspass
\n"; if ($index) { $index = "$index : $contents"; $indexpass = "$indexpass\:\:$contents"; } else { $index = "$contents"; $indexpass = "$contents\:\:";} $indexpass =~ s/\:\:\:\:/\:\:/g; $show = "$contents"; $show=~s/_/ /g; @check = (@list); $test = @check; # print "HERE: @list
\n"; $str = $termspass; &urlencode; $termspass = $str; # $str = $index; # &urlencode; # $index = $str; $index =~ s/\"/%22/g; $index =~ s/\&/%26/g; if ($test > 0) { $dept = "$dept : $show"; } else { $dept = "$dept : $show"; } } print "

  Main$dept
"; } ### NOW SUB CATS... print "\n"; # if ($FORM{'level'}) { &nextlevel; # } ## LEVEL TWO INDEX ########## sub nextlevel { $cell = 0; # $FORM{'dept'} =~s/\:\:/\//g; if ($howmanylvls >= 6) { return; } print "
"; $action = ""; # # if (!$FORM{'level'}) { &grabcats; # # } $ls = @ls; if ($ls) { print "\n"; } if ($ls > 16) { $eachcell = int($ls/4); } if ($ls <= 16) { $eachcell = 4; } if ($ls <= 12) { $eachcell = 3; } if ($ls <= 8) { $eachcell = 2; } if ($ls <= 4) { $eachcell = 1; } # print "ls: @ls\n"; $deptpass = $FORM{'dept'}; foreach $dept (@ls) { ($sortnum,$deptID,$deptname,$catdesc,$seotitle,$catmetadesc,$catmetakey,$caticon) = split(/\t/,$dept); ($deptID,$areaID,$subcatID) = split(/\:\:/,$deptID); # need to check for areas or subcats... $dept = $deptname; # $deptpass = $deptname; if (!$FORM{'level'}) { foreach $area (@area) { if ($area =~ /$deptID/) { $test = 1; last; } } $deptcode = "$deptID\:\:"; } else { foreach $subcat (@subcat) { if ($subcat =~ /$areaID/) { $test = 1; last; } } # ($deptlvl,$arealvl,$subcatlvl) = split(/\:\:/,$indexpass); # print "indexpass:$indexpass
\n"; # print "deptname:$deptname\n"; $deptpass = "$deptID\:\:$areaID\:\:$subcatID\:\:"; $indexpass = "$FORM{'category'} \: $deptname"; } if ($test > 0) { $action = ""; } else { $action = "search"; } $test = 0; $deptpass =~ s/\/\//\//g; $deptpass =~ s/\:\:\:\:/\:\:/g; $deptpass =~ s/\:\:\:\:/\:\:/g; # print "deptpass: $deptpass
\n"; if (($cell == 0) && ($ls)) { print ""; $cell = 0; } } if ($ls) { print "
"; } print "
\n"; } # end sub nextlevel print "
\n"; exit; sub grabcats { open(DATA,"$filename"); @chkcat = ; close(DATA); # print "here: $deptchk,$areachk,$subcatchk\n"; if (@chkcat) { if (!$compilesortby) { @chkcat = sort by_number @chkcat; } else { # sort by name @chkcat = sort { @a = split /\t/, $a; @b = split /\t/, $b; $a[2] cmp $b[2]; } @chkcat; } foreach $chkcat (@chkcat) { chop($chkcat); ($sortnum,$deptID,$deptname,$catdesc,$seotitle,$catmetadesc,$catmetakey,$caticon) = split(/\t/,$chkcat); ($deptID,$areaID,$subcatID,$subcat2,$subcat3,$subcat4,$subcat5) = split(/\:\:/,$deptID); if (($deptID) && (!$areaID) && (!$subcatID)) { @list = (@list,"$chkcat"); @ls = (@ls,"$chkcat"); $showlist = $deptname; $showlist =~ s/_/ /g; # $sortshow++; # if (!$sortnum) { $sortnum = $sortshow; } # $passdepts .= " $showlist
"; } if (($deptID) && ($areaID) && (!$subcatID) && ($deptchk eq "$deptID")) { @area = (@area,"$chkcat"); } if (($deptID) && ($areaID) && ($subcatID) && (!$subcat2) && ($deptchk eq "$deptID") && ($areachk eq "$areaID")) { @subcat = (@subcat,"$chkcat"); } if (($deptID) && ($areaID) && ($subcatID) && ($subcat2) && (!$subcat3)&& ($deptchk eq "$deptID") && ($areachk eq "$areaID")) { @subcat2 = (@subcat2,"$chkcat"); } if (($deptID) && ($areaID) && ($subcatID) && ($subcat2) && ($subcat3) && (!$subcat4) && ($deptchk eq "$deptID") && ($areachk eq "$areaID")) { @subcat3 = (@subcat3,"$chkcat"); } if (($deptID) && ($areaID) && ($subcatID) && ($subcat2) && ($subcat3) && ($subcat4) && (!$subcat5) && ($deptchk eq "$deptID") && ($areachk eq "$areaID")) { @subcat4 = (@subcat4,"$chkcat"); } } # print "area: @area\n"; # print "lvl: $howmanylvls
subcats:@subcat2

\n"; if ($howmanylvls == 0) { @ls = @list; } if ($howmanylvls == 1) { @ls = @area; } if ($howmanylvls == 2) { @ls = @subcat; } if ($howmanylvls == 3) { @ls = @subcat2; } if ($howmanylvls == 4) { @ls = @subcat3; } if ($howmanylvls == 5) { @ls = @subcat4; } if (@list_cancel) { print "

    \n"; foreach $list (@list) { ($sortnum,$deptID,$deptname,$catdesc,$seotitle,$catmetadesc,$catmetakey,$caticon) = split(/\t/,$list); print "URL: $deptname
    \n"; } print "
\n"; } } } # end showmaincats
Late Season Mountain Trapping DVD #00053117F

Late Season Mountain Trapping DVD


Item#: 00053117F

Price: $29.95


Order Now


Customer ratings: This item has never been rated.  
Rate this   Buy this
“Late Season Mountain Trapping” DVD

with Ralph Scherder and Rich Faler

Join Ralph and Rich as they take you on their annual mountain trapline for bobcat, fisher, fox, coyote, and raccoon. “Late Season Mountain Trapping” is sure to entertain and educate anyone interested in trapping the mountains in the worst of conditions—freezing rain, ice and snow. Prepare to get fully immersed in the trapline experience, away from the beaten paths and crowds, where you can fully enjoy the beauty of brooks cascading through hemlock forests and the excitement of trapping predators!

Traps, gear, sets, freeze-proofing, set locations and more are covered in this exciting and informational DVD.

 

Approximately 70 minutes.

AVAILABLE IN:
SELECT:
QTY:
 
Add to Wishlist
Continue Shopping
 
Customers who bought this product also purchased...

Muskrats: Like Money in the Bank DVD with Kyle Kaatz

$14.99

SmartCart Ecommerce System SmartCart® Ecommerce