Changeset 13278

Timestamp:

May 4, 2007, 4:59:31 PM (19 years ago)

Author:

jhoblitt

Message:

generate instance filenames that leave the "key" at the end so as to not break applications that expect a certain "extension" on the filename

Location:

trunk

Files:

• Nebulous-Server/lib/Nebulous/Server.pm (modified) (3 diffs)
• Nebulous/lib/Nebulous/Server.pm (modified) (3 diffs)

trunk/Nebulous-Server/lib/Nebulous/Server.pm

@@ -1 +1 @@
 # Copyright (c) 2004  Joshua Hoblitt
 #
-# $Id: Server.pm,v 1.39 2007-05-05 01:41:29 jhoblitt Exp $
+# $Id: Server.pm,v 1.40 2007-05-05 02:59:31 jhoblitt Exp $
 
 package Nebulous::Server;
@@ -209 +209 @@
     # mange '/'s into ':'
     $filename =~ s|/|:|g;
-    my $uri = URI::file->new("$vol_path/$filename.$ins_id");
+    my $uri = URI::file->new("$vol_path/$ins_id.$filename");
     $log->debug("generated uri $uri");
 
@@ -364 +364 @@
     # mange '/'s into ':'
     $filename =~ s|/|:|g;
-    my $uri = URI::file->new("$vol_path/$filename.$ins_id");
+    my $uri = URI::file->new("$vol_path/$ins_id.$filename");
     $log->debug("generated uri $uri");
 

trunk/Nebulous/lib/Nebulous/Server.pm

@@ -1 +1 @@
 # Copyright (c) 2004  Joshua Hoblitt
 #
-# $Id: Server.pm,v 1.39 2007-05-05 01:41:29 jhoblitt Exp $
+# $Id: Server.pm,v 1.40 2007-05-05 02:59:31 jhoblitt Exp $
 
 package Nebulous::Server;
@@ -209 +209 @@
     # mange '/'s into ':'
     $filename =~ s|/|:|g;
-    my $uri = URI::file->new("$vol_path/$filename.$ins_id");
+    my $uri = URI::file->new("$vol_path/$ins_id.$filename");
     $log->debug("generated uri $uri");
 
@@ -364 +364 @@
     # mange '/'s into ':'
     $filename =~ s|/|:|g;
-    my $uri = URI::file->new("$vol_path/$filename.$ins_id");
+    my $uri = URI::file->new("$vol_path/$ins_id.$filename");
     $log->debug("generated uri $uri");