Lines Matching refs:auth
20 my $auth = $1;
21 $auth .= "relative" if $_[0] !~ m,^[\\/],;
22 return $auth;
50 my $auth = $uri->authority;
52 if (defined $auth) {
53 $auth = uri_unescape($auth);
54 if ($auth =~ /^([a-zA-Z])[:|](relative)?/) {
55 $auth = uc($1) . ":";
57 } elsif (lc($auth) eq "localhost") {
58 $auth = "";
59 } elsif (length $auth) {
60 $auth = "\\\\" . $auth; # UNC
63 $auth = "";
76 $path = $auth . $path;