Select Code to Download

Select or download this
```
<html>
...

</html>
```

use Fcntl qw(:DEFAULT :flock);
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use tseek;

Select or download this


    $main_template =~ s/%%keywords%%/$fields{'keywords'}/g;
    $main_template =~ s/%%searcresults%%/$pitem/g;

Select or download this

    $main_template =~ s/%%keywords%%/$fields{'keywords'}/g;
    $main_template =~ s/%%premiumlistings%%/$premiumitem/g;

Select or download this

sub normal_search
{
...

 if ($file_locking ne "No"){flock (SIDX, LOCK_SH) or die "Can't set 
lock for file: $data_dir/search.idx, $data_dir/search2.idx $!\n";}

Select or download this

    while (defined($line=<SIDX>))
    {
...
close (SIDX);

}

Select or download this

    $resultline[$rcc] =                 $row[0] . "\t" .
                                $row[1] . "\t" .
...
$dbh->disconnect;

}

Select or download this

sub get_search_ready
{
...
return ($reline);
}