use CommodsDatabase;
our $self_url;
+our $base_url;
BEGIN {
use Exporter ();
$VERSION = 1.00;
@ISA = qw(Exporter);
@EXPORT = qw($dbh &db_setocean &db_connect &db_doall
- $self_url);
+ $self_url $base_url);
%EXPORT_TAGS = ( );
@EXPORT_OK = qw();
}
$self_url= 'http://'.$ENV{'SERVER_NAME'}.$ENV{'SCRIPT_NAME'}.$ENV{'PATH_INFO'};
+$base_url= $self_url; $base_url =~ s,/[^/]+,,;
1;