Gossamer Forum
(Advanced Search)
for
Home : Products : Gossamer Links : Development, Plugins and Globals :

Global to chop http:// off URL

Dec 1, 2006, 3:39 AM
qango
Enthusiast (706 posts)
Dec 1, 2006, 3:39 AM
Post #1 of 8
Views: 2956
Shortcut
Quote Reply
Global to chop http:// off URL
Hi,

I'm changing my listings to display the site URL under the description, but I want to remove the http:// part and any trailing slash / so that http://www.qango.com/ becomes www.qango.com

Anyone got a global to achieve this?

Thanks,
Shaun
Dec 1, 2006, 5:00 AM
tandat
Enthusiast (809 posts)
tandat's avatar
Dec 1, 2006, 5:00 AM
Post #2 of 8
Views: 2921
Shortcut
Quote Reply
Re: [qango] Global to chop http:// off URL In reply to
Hi Shaun,

This should work

sub {

my($url)=@_;
$url =~ s/http\:\/\//g;
$url=~ s/\/$//g;

$url;

}

Cheers,

Cheers,

Dat

Programming and creating plugins and templates
Blog
Dec 1, 2006, 9:00 AM
qango
Enthusiast (706 posts)
Dec 1, 2006, 9:00 AM
Post #3 of 8
Views: 2911
Shortcut
Quote Reply
Re: [tandat] Global to chop http:// off URL In reply to
Hi Dat,

Thanks for the sub, however it gives the following error:

Unable to compile 'shorturl': syntax error at (eval 46) line 5, near "s/http\:\/\//g; $url=~ s/\"

Any idea what's wrong?

Cheers,
Shaun
Dec 1, 2006, 5:46 PM
garrynz
User (69 posts)
Dec 1, 2006, 5:46 PM
Post #4 of 8
Views: 2893
Shortcut
Quote Reply
Re: [qango] Global to chop http:// off URL In reply to
Looks like a slash is missing. Try

$url =~ s/http\:\/\///g;
Dec 2, 2006, 12:51 AM
tandat
Enthusiast (809 posts)
tandat's avatar
Dec 2, 2006, 12:51 AM
Post #5 of 8
Views: 2895
Shortcut
Quote Reply
Re: [qango] Global to chop http:// off URL In reply to
Hi Shaun,

Please just amend the first line as garrynz's post. That will work.

Cheers,

Cheers,

Dat

Programming and creating plugins and templates
Blog
Dec 4, 2006, 3:19 AM
qango
Enthusiast (706 posts)
Dec 4, 2006, 3:19 AM
Post #6 of 8
Views: 2878
Shortcut
Quote Reply
Re: [tandat] Global to chop http:// off URL In reply to
Cheers guys, works a treat.

I had to modify it slightly to get the URL from the variables list, but does exactly what I want:

sub {
my $vars = shift;
my $url = $vars->{URL};
$url =~ s/http\:\/\///g;
$url=~ s/\/$//g;
return $url;
}

Thanks Smile
Shaun
Dec 6, 2006, 5:45 PM
Andy
Veteran / Moderator (18441 posts)
Andy's avatar
Dec 6, 2006, 5:45 PM
Post #7 of 8
Views: 2869
Shortcut
Quote Reply
Re: [qango] Global to chop http:// off URL In reply to
Hi,

*little* bit cleaner :)

Code:
sub {
my $vars = shift;
my $url = $vars->{URL};

$url =~ s|\Qhttp://||g;
$url =~ s|\/$||g;

return $url;
}

Smile

Andy (mod)
andy@ultranerds.co.uk
Want to give me something back for my help? Please see my Amazon Wish List
GLinks ULTRA Package | GLinks ULTRA Package PRO
Links SQL Plugins | Website Design and SEO | UltraNerds | ULTRAGLobals Plugin | Pre-Made Template Sets | FREE GLinks Plugins!
Dec 7, 2006, 1:37 AM
qango
Enthusiast (706 posts)
Dec 7, 2006, 1:37 AM
Post #8 of 8
Views: 2849
Shortcut
Quote Reply
Re: [Andy] Global to chop http:// off URL In reply to
Thanks Andy Smile