use FS::UID;
@ISA = qw(Exporter);
-@EXPORT_OK = qw(header menubar idiot eidiot url);
+@EXPORT_OK = qw(header menubar idiot eidiot popurl);
=head1 NAME
=head1 SYNOPSIS
- use FS::CGI qw(header menubar idiot eidiot url);
+ use FS::CGI qw(header menubar idiot eidiot popurl);
print header( 'Title', '' );
print header( 'Title', menubar('item', 'URL', ... ) );
idiot "error message";
eidiot "error message";
- $url = url; #returns current url
- $url = url (3); #three levels up
+ $url = popurl; #returns current url
+ $url = popurl(3); #three levels up
=head1 DESCRIPTION
exit;
}
-=item url LEVEL
+=item popurl LEVEL
Returns current URL with LEVEL levels of path removed from the end (default 0).
=cut
-sub url {
+sub popurl {
my($up)=@_;
- my($cgi)=FS::UID::cgi;
- my($url)=new URI::URL $cgi;
+ my($cgi)=&FS::UID::cgi;
+ my($url)=new URI::URL $cgi->url;
my(@path)=$url->path_components;
- pop @path foreach ( 1.. $up );
+ splice @path, 0-$up;
$url->path_components(@path);
$url->as_string;
}
pod ivan@sisd.com 98-sep-12
$Log: CGI.pm,v $
-Revision 1.8 1998-11-09 08:36:05 ivan
-haha
+Revision 1.9 1998-11-09 08:51:49 ivan
+bug squash
Revision 1.7 1998/11/09 06:10:59 ivan
added sub url