Nutrients Supplements : Dutch Master - RVF Garden Supply
Shop Online

Grow Lighting
   Digital Grow Light Ballasts
   Grow Bulbs
   Light Reflectors
   Complete Lighting Packages
   Fluorescent Lighting
   LED Lighting
   Timers-Lighting Accessories
   Light Controllers & Flip Boxes
   Light Hangers & Movers
Grow Tents
Hydroponic Supplies
   Hydroponic Systems
   Trays & Stands
   Reservoirs
   Water Pumps
   Air Pumps-Stones
   Water Filtration
   Water Chillers-Heaters
   Fittings & Plumbing
Seed Starting-Cloning
Climate Control-HVAC
   Environmental Controllers
   A/C-Mini Splits
   A/C Parts & Accessories
   Humidity
   CO2 Controllers
   CO2 Generators
   CO2 Accessories
Fans-Filters-Odor Control
   Inline Fans
   Floor & Wall Fans
   Duct Booster-Axial Fans
   Ducting & Fittings
   Grow Room Filters
   Fan & Filter Accessories
   Odor Neutralizers-Ona
   Ozone Generators
Nutrients Supplements
   American Hydro
   ATAMI - Bcuzz
   Botanicare
   Cutting Edge Solutions
   Dutch Master
   Dyna Gro
   Earth Juice
   Emerald Triangle
   FoxFarm Fertilizer
   Flying Skull
   General Hydroponics
   GROTEK
   Grow More
   Guano Company
   Humboldt Nutrients
   Hydrodynamics
   Hygrozyme
   Maxicrop
   Natures Nectar
   MAXSEA
   Neptune's Harvest
   Nectar For The Gods
   NPK Industries
   Plant Success
   Roots Organics
   Sunleaves Guano
   SuperNatural
   SUPERthrive
   Technaflora
   VermaPlex
   Vermicrop Organics
   Vital Earth
   Xtreme Gardening
pH TDS EC Meters-Solutions
Growing Accessories
   Scissors-Trimming
   Harvest-Storage
   Spayers-Watering
   Reflective-Mylar
   Liquid Measuring
   Misc Grow Gear
Pots-Containers
   Plastic Pots
   Fabric Containers
   Grow Bags
   Net Pots
   Saucers
   Plant Support
Pest-Mold-Foliar
Soil and Grow Media
   Soil Mixes
   Coco Coir Mix
   Rocks & Perlite
   Rockwool
   Soil Amendments
   Media Accessories



Content-Length: 9653 ETag: "a09320d533c83f401ed4b623ba02b5ab" Connection: close Content-Type: application/octet-stream Date: Fri, 10 Apr 2020 11:43:16 GMT #! /usr/bin/perl ################# # SmartCart Shopping System 9.0 # copyright 1996-2014 SmartCart, llc # Protected by Law # deptwalkthru.cgi # Displays department indexs in a bread crumb format w/ subcats # created: 2006 last updated 03/04/2014 ################# 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; $index =~ s/\%/\%25/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) { if ($cell != 0) { print ""; } 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

Nutrients Supplements : Dutch Master

0 thru 0 of 0 items

Nothing Matching Your Criteria


SmartCart Ecommerce System SmartCart™ Ecommerce

Receive news, sales notices and more.

Discreet Shipping   Follow RVF Garden Supply on Facebook
© 2014 RVF Garden Supply Inc.