Welcome To Our Shell

Mister Spy & Souheyl Bypass Shell

package DivBasicF::AutoDB;

use strict;
use Data::Dumper;

#**********************************************************************

sub new {

   my $class       = shift;
   my $self        = {};
   $main::ENV{'procidx'} = "package,pkgend,pkgstart,level," .
                           "program,requestmode,result,remark";
   bless($self,$class);
   return($self);
   
}

#**********************************************************************

sub tblrequ { my $self = shift; return("conn_requ"); }

#**********************************************************************

sub init_db {

   my $self         = shift;
   my $dbh          = shift;
   my $create_index = shift;
   
   my $requtbl = $self->tblrequ();
   
   $dbh->do("create table if not exists $requtbl " .
            " (testitem text,level text,arch text,user text," .
            "requ text,relevance double)");
                      
   $dbh->do("$create_index $requtbl"."_testitem__idx on $requtbl (testitem)");
   $dbh->do("$create_index $requtbl"."_level__idx on $requtbl (level)");
#   $dbh->do("$create_index $requtbl"."_arch__idx on $requtbl (arch)"); 
             # fuehrt zu unguenstigem Query Plan, daher hier den Index NICHT anlegen!
   $dbh->do("$create_index $requtbl"."_user__idx on $requtbl (user)");
   $dbh->do("$create_index $requtbl"."_requ__idx on $requtbl (requ)");
   $dbh->do("$create_index $requtbl"."_relevance__idx on $requtbl (relevance)");

}
   
#******************************************************************************

1;