+=item rooturl
+
+=cut
+
+sub rooturl {
+ #this doesn't work so well...
+ #'%%%FREESIDE_URL%%%';
+
+ # better to start with the client-provided URL
+ my $cgi = &FS::UID::cgi;
+ my $url_string = $cgi->isa('Apache') ? $cgi->uri : $cgi->url;
+ $url_string =~ s/\?.*//;
+
+ #even though this is kludgy
+ $url_string =~
+ s{
+ (browse|config|docs|edit|graph|misc|search|view)
+ /
+ (process/)?
+ ([\w\-\.]+)
+ $
+ }
+ {}x;
+
+ $url_string;
+
+}
+