1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
package URI::URL::prospero;
require URI::URL::_generic;
@ISA = qw(URI::URL::_generic);
# RFC 1738 says:
#
# A prospero URLs takes the form:
#
# prospero://<host>:<port>/<hsoname>;<field>=<value>
#
# where <host> and <port> are as described in Section 3.1. If :<port>
# is omitted, the port defaults to 1525. No username or password is
# allowed.
#
# The <hsoname> is the host-specific object name in the Prospero
# protocol, suitably encoded. This name is opaque and interpreted by
# the Prospero server. The semicolon ";" is reserved and may not
# appear without quoting in the <hsoname>.
sub default_port { 1525 } # says rfc1738, section 3.11
sub _parse {
my($self, $init) = @_;
$self->URI::URL::_generic::_parse($init, qw(netloc path params frag));
}
1;
|
