Chargers #!/usr/bin/perl print "Content-type: text/html\n\n"; use epdqcpi; use CGI; $form = new CGI; $i=0; foreach $field (sort ($form->param)) { $temparray[$i]=$form->param($field); $i++; } $username = $temparray[0]; $cat = $temparray[1]; @catl = split (/ /, $cat); $catl = join ("+", @catl); if ($temparray[2] eq "") { $page = $temparray[3]; if ($page eq "") { $page = 1; } $max = $page*12; $min = $max-12; open(CAT, "<../users/$username/products/cat.$cat"); @items = ; close(CAT); if ($#items < ($max)) { $max = $#items+1; } $numpages = int($#items/12); $check = $#items/12; if ($check > $numpages) { $numpages = $numpages+1; } for ($i=1; $i<=$numpages;$i++) { @temp = split (/ /, $cat); $temp = join ("+", @temp); $pageshow .= " $i "; } for ($j=$min; $j<$max; $j++) { $item = $items[$j]; @temp = split (/\n/, $item); open(ITEM , "<../users/$username/products/cat.$cat.$temp[0]"); @item = ; close(ITEM); @imgo = split (/\n/, $item[0]); @price =split (/\n/, $item[1]); @price = split (/\£/, $price[0]); if ($price[1] eq "") { $price[1] = $price[0]; } if ($rrp[1] eq "") { $rrp[1] = $rrp[0]; } @link = split (/ /, $temp[0]); $link = join ("+", @link); $linkt = join ("", @link); $prodname = $item[3]; $desc = $item[2]; $show .= ""; } if ($show eq "") { print " "; } if ($temparray[3] ne "") { open(TEMPLATE, "<../users/$username/products/template"); @template = $temp[0] $prodname $desc £$price[1]