// Frontier Systems File Find (c) 1995
// BBBSNet: michael nosowski@47:1000/103.1 IceNet: michael nosowski@47:55/201.1
// This is only made for internal use, but maybe somebody wants it?
// Remember to define $confnr. (Line 21).

var $tmp, $file, $key, $do, $confnr;

function scan() 
{
fopen(1,"fsff.tmp","wt");
fprintf(1,"\n\nFrontier Systems Find File (c) 1995\nScanning from %s\n\n",$bg_bbbs_name);
fclose(1);
system(sprintf("bbbs.exe btxt2bbs %s fsff.tmp /f %s /t archie /s %s \\\"%s\\\"",$confnr,$bu_name,$file,$key),1);
remove("fsff.tmp");
printf("\nFiles will be scanned for.\nIf any files are found, bbbs will write back to you in conf. %s\nMake shure you are a member of conf. %s\n\n",$confnr,$confnr);
exit(2);
}

function main() 
{
$confnr = 21;

$file = input("Enter file name to scan for: ",69,1);
$key = input("Enter keyword to scan for: ",69,1);
if ($file=="" && $key=="") exit(2);
while ($tmp!="y" || $tmp!="" || $tmp!="n") {
$tmp = input(sprintf("Scan for %s. %s. (Y/n)? ",$file,$key),90,0);
$tmp = stlocase($tmp);
if ($tmp=="y") scan();
else if ($tmp=="") scan();
else if ($tmp=="n") exit(2);
                                           }
}