#!/usr/bin/perl
# (c) Fluffy Clouds Ltd
# http://www.fluffy.co.uk/
# author: Ben Summers
# Fluffy Search Home page at http://www.fluffy.co.uk/fs/
# email: fluffysearch@fluffy.co.uk
# Launch your web graphics... fast! http://www.ignite-it.co.uk/
require 'search.config';
&parse_form;
print "Content-Type: text/html\n\n";
$my_disc_dir = "$docroot_disc$form{'d'}";
$my_disc_dir =~ s~/[^/]*?\Z~~;
if($frames_framename ne '' && !exists $form{'infr'})
{ $set_file = "$my_disc_dir/$frames_frameset";
while($set_file =~ s~/[^/]+?/../~/~) {}
$frm_name = $frames_framename;
$my_dir = "$docroot_web$form{'d'}";
$my_dir =~ s~/[^/]*?\Z~~;
$my_dir .= "/$frames_frameset";
while($my_file =~ s~/[^/]+?/../~/~) {}
$my_dir =~ s~/[^/]*?\Z~~;
@exceptions = split /\n/, $frames_exceptions;
$my_sr_dir = $form{'d'};
$my_sr_dir =~ s~/[^/]*?\Z~~;
for(@exceptions)
{ my($in_dir,$frm,$frm_name) = split /\s+/;
if($my_sr_dir eq $in_dir)
{ $set_file = "$docroot_disc/$frm";
$frm_name = $frm_name;
$my_dir = "$docroot_web/$frm";
$my_dir =~ s~/[^/]*?\Z~~;
} } if(-e $set_file && open(FS,$set_file))
{ read FS,$set,-s $set_file;
close FS;
if($set =~ m/