Changeset 17073 for trunk/Nebulous/lib

Timestamp:

Mar 20, 2008, 1:23:31 PM (18 years ago)

Author:

jhoblitt

Message:

server/client split

Location:

trunk/Nebulous/lib/Nebulous

Files:

• Client.pm (modified) (2 diffs)
• Keys.pod (deleted)
• Server.pm (deleted)
• Server.pod (deleted)
• Util.pm (modified) (2 diffs)

trunk/Nebulous/lib/Nebulous/Client.pm

@@ -1 +1 @@
 # Copyright (c) 2004  Joshua Hoblitt
 #
-# $Id: Client.pm,v 1.39 2008-02-05 04:57:56 eugene Exp $
+# $Id: Client.pm,v 1.40 2008-03-20 23:21:58 jhoblitt Exp $
 
 package Nebulous::Client;
@@ -8 +8 @@
 use warnings FATAL => qw( all );
 
-our $VERSION = '0.02';
+our $VERSION = '0.07';
 
 use File::Copy qw();

trunk/Nebulous/lib/Nebulous/Util.pm

@@ -1 +1 @@
 # Copyright (c) 2004  Joshua Hoblitt
 #
-# $Id: Util.pm,v 1.10 2008-02-07 22:18:51 jhoblitt Exp $
+# $Id: Util.pm,v 1.11 2008-03-20 23:21:58 jhoblitt Exp $
 
 package Nebulous::Util;
@@ -80 +80 @@
 }
 
-sub parse_neb_key
-{
-    my $text = shift;
-    return unless defined $text;
-
-    # white space is not allowed
-    if ($text =~ qr/\s+/) {
-        die "keys and URIs may not contain whitespace";
-    }
-
-    my $uri = URI->new($text);
-    my $scheme = $uri->scheme;
-    my $path = $uri->opaque;
-    
-    my $volume;
-    # if this is a valid uri 
-    if (defined $scheme) {
-        # if so, does it use the neb scheme?
-        die "URI does not use the 'neb' scheme"
-            unless $scheme eq 'neb'; 
-
-        # neb:path (not allowed)
-        # neb://<volume name>/...
-        # neb:/path... (leading '/' is stripped)
-        # neb:///path... (same as neb:/path)
-
-        # volume specifier must be at least one character
-        # strip off volume component if it exists
-        $path =~ s|^//([^/]+)||;
-        $volume = $1;
-
-        # require a leading slash if there is no volume name
-        if ((not defined $volume) and (not $path =~ m|^/|)) {
-            die "neb URI scheme requires a leading slash, eg. neb:/";
-        }
-    }
-
-    # strip leading slashes
-    $path =~ s|^/+||;
-
-    # remove multiple /'s and trailing slashes
-    $path = canonpath($path);
-
-    return ($volume, $path);
-}
 
 1;