Gecko [ goons4good.org ]

Linux server.edchosting.com 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64
LiteSpeed
Server IP : 75.98.162.185 & Your IP : 216.73.216.163
Domains : Cant Read [ /etc/named.conf ]
User : goons4good

Name	Size	Permission	Date
file	[ DIR ]	drwxr-xr-x	2021-09-16 10:45
urn	[ DIR ]	drwxr-xr-x	2021-09-16 10:45
Escape.pm	6.49 KB	-rw-r--r--	2012-02-11 09:48
Heuristic.pm	6.41 KB	-rw-r--r--	2012-02-11 09:48
IRI.pm	769 B	-rw-r--r--	2012-02-11 09:48
QueryParam.pm	4.47 KB	-rw-r--r--	2012-03-11 10:35
Split.pm	2.3 KB	-rw-r--r--	2012-02-11 09:48
URL.pm	5.4 KB	-rw-r--r--	2012-02-11 09:48
WithBase.pm	3.74 KB	-rw-r--r--	2012-02-11 09:48
_foreign.pm	75 B	-rw-r--r--	2012-02-11 09:48
_generic.pm	5.63 KB	-rw-r--r--	2012-02-11 09:48
_idna.pm	1.99 KB	-rw-r--r--	2012-03-11 08:03
_ldap.pm	3.17 KB	-rw-r--r--	2012-02-11 09:48
_login.pm	222 B	-rw-r--r--	2012-02-11 09:48
_punycode.pm	4.52 KB	-rw-r--r--	2012-02-11 09:48
_query.pm	2.39 KB	-rw-r--r--	2012-03-25 16:44
_segment.pm	377 B	-rw-r--r--	2012-02-11 09:48
_server.pm	3.62 KB	-rw-r--r--	2012-02-11 09:48
_userpass.pm	977 B	-rw-r--r--	2012-02-11 09:48
data.pm	3.28 KB	-rw-r--r--	2012-02-11 09:48
file.pm	9.58 KB	-rw-r--r--	2012-02-11 09:48
ftp.pm	1.03 KB	-rw-r--r--	2012-02-11 09:48
gopher.pm	2.34 KB	-rw-r--r--	2012-02-11 09:48
http.pm	405 B	-rw-r--r--	2012-02-11 09:48
https.pm	107 B	-rw-r--r--	2012-02-11 09:48
ldap.pm	2.9 KB	-rw-r--r--	2012-02-11 09:48
ldapi.pm	460 B	-rw-r--r--	2012-02-11 09:48
ldaps.pm	107 B	-rw-r--r--	2012-02-11 09:48
mailto.pm	1.24 KB	-rw-r--r--	2012-02-11 09:48
mms.pm	89 B	-rw-r--r--	2012-02-11 09:48
news.pm	1.39 KB	-rw-r--r--	2012-02-11 09:48
nntp.pm	91 B	-rw-r--r--	2012-02-11 09:48
pop.pm	1.15 KB	-rw-r--r--	2012-02-11 09:48
rlogin.pm	96 B	-rw-r--r--	2012-02-11 09:48
rsync.pm	197 B	-rw-r--r--	2012-02-11 09:48
rtsp.pm	89 B	-rw-r--r--	2012-02-11 09:48
rtspu.pm	90 B	-rw-r--r--	2012-02-11 09:48
sip.pm	1.72 KB	-rw-r--r--	2012-02-11 09:48
sips.pm	105 B	-rw-r--r--	2012-02-11 09:48
snews.pm	136 B	-rw-r--r--	2012-02-11 09:48
ssh.pm	140 B	-rw-r--r--	2012-02-11 09:48
telnet.pm	95 B	-rw-r--r--	2012-02-11 09:48
tn3270.pm	95 B	-rw-r--r--	2012-02-11 09:48
urn.pm	1.91 KB	-rw-r--r--	2012-02-11 09:48

Rename

package URI::pop;   # RFC 2384

require URI::_server;
@ISA=qw(URI::_server);

use strict;
use URI::Escape qw(uri_unescape);

sub default_port { 110 }

#pop://<user>;auth=<auth>@<host>:<port>

sub user
{
    my $self = shift;
    my $old = $self->userinfo;

if (@_) {
	my $new_info = $old;
	$new_info = "" unless defined $new_info;
	$new_info =~ s/^[^;]*//;

my $new = shift;
	if (!defined($new) && !length($new_info)) {
	    $self->userinfo(undef);
	} else {
	    $new = "" unless defined $new;
	    $new =~ s/%/%25/g;
	    $new =~ s/;/%3B/g;
	    $self->userinfo("$new$new_info");
	}
    }

return unless defined $old;
    $old =~ s/;.*//;
    return uri_unescape($old);
}

sub auth
{
    my $self = shift;
    my $old = $self->userinfo;

if (@_) {
	my $new = $old;
	$new = "" unless defined $new;
	$new =~ s/(^[^;]*)//;
	my $user = $1;
	$new =~ s/;auth=[^;]*//i;

my $auth = shift;
	if (defined $auth) {
	    $auth =~ s/%/%25/g;
	    $auth =~ s/;/%3B/g;
	    $new = ";AUTH=$auth$new";
	}
	$self->userinfo("$user$new");
	
    }

return unless defined $old;
    $old =~ s/^[^;]*//;
    return uri_unescape($1) if $old =~ /;auth=(.*)/i;
    return;
}