Select Code to Download

Select or download this


    
20660    Gekko Gear    Selection of winter sports apparel    Apparel_a
+nd_Accessories-Athletic_Clothing    www.gekkogear.com/

Select or download this

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

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" .
...

$sth->finish;
$dbh->disconnect;