Index: /branches/czw_branch/20160809/Nebulous-Server/Build.PL
===================================================================
--- /branches/czw_branch/20160809/Nebulous-Server/Build.PL	(revision 39671)
+++ /branches/czw_branch/20160809/Nebulous-Server/Build.PL	(revision 39672)
@@ -48,4 +48,5 @@
         bin/neb-voladd
         bin/neb-voladm
+        bin/neb-aliasadd
         bin/neb-insedit
         bin/neb-host
Index: /branches/czw_branch/20160809/Nebulous-Server/bin/neb-aliasadd
===================================================================
--- /branches/czw_branch/20160809/Nebulous-Server/bin/neb-aliasadd	(revision 39671)
+++ /branches/czw_branch/20160809/Nebulous-Server/bin/neb-aliasadd	(revision 39672)
@@ -62,7 +62,7 @@
     my ($vol_id, $tmp_name);
     
-    my $vol_query = $db->prepare_cached( $sql->get_volume_by_name );
+    my $vol_query = $dbh->prepare( $sql->get_volume_by_name );
     $vol_query->execute( $target );
-    ($vol_id, $tmp_name, undef, undef) = vol_query->fetchrow_array;
+    ($vol_id, $tmp_name, undef, undef) = $vol_query->fetchrow_array;
     $vol_query->finish;
     
@@ -91,7 +91,7 @@
     my ($vol_id, $tmp_name);
     
-    my $vol_query = $db->prepare_cached( $sql->get_volume_by_name );
+    my $vol_query = $dbh->prepare( $sql->get_volume_by_name );
     $vol_query->execute( $target );
-    ($vol_id, $tmp_name, undef, undef) = vol_query->fetchrow_array;
+    ($vol_id, $tmp_name, undef, undef) = $vol_query->fetchrow_array;
     $vol_query->finish;
     
Index: /branches/czw_branch/20160809/Nebulous-Server/bin/neb-cabadd
===================================================================
--- /branches/czw_branch/20160809/Nebulous-Server/bin/neb-cabadd	(revision 39671)
+++ /branches/czw_branch/20160809/Nebulous-Server/bin/neb-cabadd	(revision 39672)
@@ -19,5 +19,5 @@
 use Pod::Usage qw( pod2usage );
 
-my ($db, $dbhost, $dbuser, $dbpass, $cname, $location, $site_id, $update);
+my ($db, $dbhost, $dbuser, $dbpass, $cname, $location, $site_id, $update, $cab_id);
 
 $db     = $ENV{'NEB_DB'} unless $db;
@@ -34,4 +34,5 @@
     'location|l=s'      => \$location,
     'site_id|s=s'       => \$site_id,
+    'cab_id=s'          => \$cab_id,
     'update|u'          => \$update,
 ) || pod2usage( 2 );
@@ -55,6 +56,6 @@
 
 if (defined($update)) {
-    unless ($cname && $location && $site_id) {
-	pod2usage( -msg => "Required options for update: --db --user --pass --cname --site_id --location", -exitval => 2 );
+    unless ($cname && $location && $site_id && $cab_id) {
+	pod2usage( -msg => "Required options for update: --db --user --pass --cname --site_id --location --cab_id", -exitval => 2 );
     }
     print "Updating cabinet...";
Index: /branches/czw_branch/20160809/Nebulous-Server/lib/Nebulous/Server.pm
===================================================================
--- /branches/czw_branch/20160809/Nebulous-Server/lib/Nebulous/Server.pm	(revision 39671)
+++ /branches/czw_branch/20160809/Nebulous-Server/lib/Nebulous/Server.pm	(revision 39672)
@@ -1753,5 +1753,5 @@
 }
 
-sub find_instances
+sub find_instances_old
 {
     my $self = shift;
@@ -1865,5 +1865,6 @@
 }
 
-sub find_instances_by_proximity
+#sub find_instances_by_proximity
+sub find_instances
 {
     my $self = shift;