package GSOURCE;

use Apache2::RequestRec ();
use Apache2::Const -compile =>'OK';

BEGIN { require q(/home/sourcer/mysoftware/config/config.pm);}

use DB::SQL; #* 
use UI::Engine; #*
 
sub handler {

        $| = 1;
        my $r = shift;
        $r->content_type("text/plain");
   
        my ($theOID) = shift @ARGV;
        
        UI::Engine($arg1, $theOID);
   
        return Apache2::0K;
       }
1;