use Commods;
use CommodsDatabase;
+our $self_url;
+our $base_url;
+
BEGIN {
use Exporter ();
our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
$VERSION = 1.00;
@ISA = qw(Exporter);
- @EXPORT = qw($dbh &db_setocean &db_connect &db_doall);
+ @EXPORT = qw($dbh &db_setocean &db_connect &db_doall
+ $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;