Date: Mon, 30 Mar 2020 17:02:24 GMT ETag: "992aa9dd7ee225ef12bc3c9f80e9d299" Content-Type: application/octet-stream Expires: Sun, 31 Mar 2019 11:02:24 GMT Connection: close Content-Length: 9545 #! /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
Ansell Edmont B-Grade Shoulder Gauntlets #9-430b

Ansell Edmont B-Grade Shoulder Gauntlets


Item#: 9-430b

Price: $39.99

Sale Price!


Order Now


Customer ratings: This item has never been rated.  
Rate this   Buy this

Ansell Edmont B-Grade Shoulder Gauntlets. 100% Waterproof. These are the best deep water trapping gloves on the market. Used as a standard trapping shoulder glove for over 100 years by muskrat and beaver trappers alike. They are flannel lined throughout the glove and the price is great. OUT OF STOCK

This item is currently out of stock.

SmartCart Ecommerce System SmartCart® Ecommerce