Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Date: Fri, 19 Dec 2003 20:02:19 -0800

From: Dan Sully <daniel@electricrain.com>
To: gisle@aas.no
Subject: URI patch to add mms://
Message-ID: <20031220040219.GB25758@electricrain.com>

Is attached. It's similar to the rtsp module.

-D
--
Begin the unnecessarily slow-moving dipping mechanism!
  • Loading branch information...
commit 0ea61e8b447a06016ab140b27ee94d47a8fe6dc1 1 parent a1d85e4
@gisle gisle authored
Showing with 55 additions and 1 deletion.
  1. +2 −0  MANIFEST
  2. +8 −1 URI.pm
  3. +8 −0 URI/mms.pm
  4. +37 −0 t/mms.t
View
2  MANIFEST
@@ -31,6 +31,7 @@ URI/http.pm
URI/https.pm
URI/ldap.pm
URI/mailto.pm
+URI/mms.pm
URI/news.pm
URI/nntp.pm
URI/pop.pm
@@ -60,6 +61,7 @@ t/http.t
t/ldap.t
t/mailto.t
t/mix.t
+t/mms.t
t/news.t
t/old-absconf.t
t/old-base.t
View
9 URI.pm
@@ -2,7 +2,7 @@ package URI;
use strict;
use vars qw($VERSION);
-$VERSION = "1.28"; # $Date: 2003/11/30 13:52:35 $
+$VERSION = "1.28"; # $Date: 2003/12/31 10:58:56 $
use vars qw($ABS_REMOTE_LEADING_DOTS $ABS_ALLOW_RELATIVE_SCHEME);
@@ -769,6 +769,13 @@ C<URI> objects belonging to the mailto scheme support the common
methods and the generic query methods. In addition they support the
following mailto specific methods: $uri->to, $uri->headers.
+=item B<mms>:
+
+The I<mms> URL specification can be found at L<http://sdp.ppona.com/>
+C<URI> objects belonging to the mms scheme support the common,
+generic, and server methods, with the exception of userinfo and
+query-related sub-components.
+
=item B<news>:
The I<news>, I<nntp> and I<snews> URI schemes are specified in
View
8 URI/mms.pm
@@ -0,0 +1,8 @@
+package URI::mms;
+
+require URI::http;
+@ISA=qw(URI::http);
+
+sub default_port { 1755 }
+
+1;
View
37 t/mms.t
@@ -0,0 +1,37 @@
+#!perl -w
+
+print "1..8\n";
+
+use URI;
+
+$u = URI->new("<mms://66.250.188.13/KFOG_FM>");
+
+#print "$u\n";
+print "not " unless $u eq "mms://66.250.188.13/KFOG_FM";
+print "ok 1\n";
+
+print "not " unless $u->port == 1755;
+print "ok 2\n";
+
+# play with port
+$old = $u->port(8755);
+print "not " unless $old == 1755 && $u eq "mms://66.250.188.13:8755/KFOG_FM";
+print "ok 3\n";
+
+$u->port(1755);
+print "not " unless $u eq "mms://66.250.188.13:1755/KFOG_FM";
+print "ok 4\n";
+
+$u->port("");
+print "not " unless $u eq "mms://66.250.188.13:/KFOG_FM" && $u->port == 1755;
+print "ok 5\n";
+
+$u->port(undef);
+print "not " unless $u eq "mms://66.250.188.13/KFOG_FM";
+print "ok 6\n";
+
+print "not " unless $u->host eq "66.250.188.13";
+print "ok 7\n";
+
+print "not " unless $u->path eq "/KFOG_FM";
+print "ok 8\n";
Please sign in to comment.
Something went wrong with that request. Please try again.