From f8035d06f2031fb1bdf30eee82a1beb707bbe044 Mon Sep 17 00:00:00 2001
From: Eelco Dolstra <e.dolstra@tudelft.nl>
Date: Wed, 6 Aug 2003 14:48:29 +0000
Subject: [PATCH] * Allow a name to be given to a system configuration through
 `--name   NAME'.  E.g., on the losser Subversion server, I do `nix-switch
 --name   svn $(fix ...)' to atomically upgrade the server (the SVN server  
 uses the Apache and Subversion installations in /nix/var/nix/links/svn).

---
 scripts/nix-switch.in | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/scripts/nix-switch.in b/scripts/nix-switch.in
index db0e96f3e..427a803b2 100755
--- a/scripts/nix-switch.in
+++ b/scripts/nix-switch.in
@@ -4,11 +4,15 @@ use strict;
 
 my $keep = 0;
 my $sourceroot = 0;
+my $name = "current";
 my $srcid;
 
-foreach my $arg (@ARGV) {
+my $argnr = 0;
+while ($argnr < scalar @ARGV) {
+    my $arg = $ARGV[$argnr++];
     if ($arg eq "--keep") { $keep = 1; }
     elsif ($arg eq "--source-root") { $sourceroot = 1; }
+    elsif ($arg eq "--name") { $name = $ARGV[$argnr++]; }
     elsif ($arg =~ /^([0-9a-z]{32})$/) { $srcid = $arg; }
     else { die "unknown argument `$arg'" };
 }
@@ -54,7 +58,7 @@ if ($sourceroot) {
     close ID;
 }
 
-my $current = "$linkdir/current";
+my $current = "$linkdir/$name";
 
 # Read the current generation so that we can delete it (if --keep
 # wasn't specified).
@@ -70,7 +74,7 @@ my $oldlink = readlink($current);
 
 print "switching $current to $link\n";
 
-my $tmplink = "$linkdir/new_current";
+my $tmplink = "$linkdir/.new_$name";
 symlink($link, $tmplink) or die "cannot create $tmplink";
 rename($tmplink, $current) or die "cannot rename $tmplink";