#!/usr/bin/perl -w
package Search2;
use strict;
use MyDB;
use SharedVariable qw ($action $session_dir $dir $dirLang $dirError $imgdir $session_id $can_do_gzip $current_ip $lang $LANG %ARTICLE %SESSION %SERVER %USER $CGISESSID %LABEL %ERROR %VALUE $COMMANDID %COMMAND %DATE %PAYPALL $INDEX %LINK  $query $session $host $t0  $client); 
use LoadProperties;


our $db = MyDB->new();
our $lp = LoadProperties->new();


sub new {
    my $class = shift;
    my ($opts)= @_;
    my $self = {};        
    return bless $self, $class;
}

sub search {
}

sub do_search {
}

sub do_search_indexed {
}

sub say_hello () {
    print "Content-Type: text/html\n\n";
    print "Hello Search Package";
}

BEGIN {
    use Exporter ();
  
    @DB::ISA = qw(Exporter);
    @DB::EXPORT      = qw();
    @DB::EXPORT_OK   = qw(new say_hello);
}
1;