#!/usr/bin/perl
# Navigation CGI for @Product shopping cart program
require "$ENV{'DOCUMENT_ROOT'}/libcgi/environlib.cgi";
require "$PATH_ROOT/deals/products_and_services/productlib.cgi";
%navinfo = &ParseInput; # Parse & decode into hash
&VerifyID ( $navinfo{'ID'} ); # make sure ID correct
$navinfo{'FILE'} =~ tr/a-zA-Z0-9.//cd; # remove non-standard chars from file name
# send requested file or error if not exist
&SendFile ( "/home/storm/sites/webflyer-com-1/public/deals/products_and_services/$navinfo{'FILE'}", ['RESID'], [$navinfo{'ID'}] ) || &Diagnostic ( "FLE NOT FOUND: \"$navinfo{'FILE'}\"" );
^top
|
