 |
#!/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'}\"" );