Advanced File Manager

✏️ Mengedit: pop.pm

package URI::pop;   # RFC 2384

use strict;
use warnings;

our $VERSION = '5.09';

use parent 'URI::_server';

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 undef 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 undef unless defined $old;
    $old =~ s/^[^;]*//;
    return uri_unescape($1) if $old =~ /;auth=(.*)/i;
    return;
}

❌ Batal

Nama	Ukuran	Dimodifikasi	Permission	Aksi
📁 file	-	2025-02-25 15:29	0755
📁 urn	-	2025-02-25 15:29	0755
📎 _foreign.pm	107 B	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 _generic.pm	5.7 KB	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 _idna.pm	2 KB	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 _ldap.pm	3.2 KB	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 _login.pm	231 B	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 _punycode.pm	5.5 KB	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 _query.pm	2.5 KB	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 _segment.pm	416 B	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 _server.pm	3.6 KB	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 _userpass.pm	1 KB	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 data.pm	3.3 KB	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 Escape.pm	6.9 KB	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 file.pm	9.5 KB	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 ftp.pm	1 KB	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 gopher.pm	2.4 KB	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 Heuristic.pm	6.4 KB	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 http.pm	425 B	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 https.pm	144 B	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 IRI.pm	794 B	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 ldap.pm	2.9 KB	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 ldapi.pm	440 B	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 ldaps.pm	144 B	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 mailto.pm	1.2 KB	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 mms.pm	125 B	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 news.pm	1.4 KB	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 nntp.pm	127 B	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 nntps.pm	144 B	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 pop.pm	1.2 KB	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 QueryParam.pm	4.7 KB	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 rlogin.pm	129 B	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 rsync.pm	207 B	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 rtsp.pm	125 B	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 rtspu.pm	126 B	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 sftp.pm	98 B	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 sip.pm	1.7 KB	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 sips.pm	143 B	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 snews.pm	172 B	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 Split.pm	2.3 KB	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 ssh.pm	175 B	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 telnet.pm	128 B	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 tn3270.pm	128 B	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 URL.pm	5.4 KB	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 urn.pm	2.1 KB	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 WithBase.pm	3.8 KB	2021-03-03 15:16	0644	✏️ Edit ⬇

📂 Advanced File Manager

✏️ Mengedit: pop.pm

✍️ Rename: