Maximum Concurrent Jobs = 100
 }
 
-# Definition of DDS tape storage device
-Storage {
-  Name = tape
-  Address = @hostname@                # N.B. Use a fully qualified name here
-  SDPort = @sdport@
-  Password = "ccV3lVTsQRsdIUGyab0N4sMDavui2hOBkmpBU0aQKOr9"          # password for Storage daemon
-  Device = tape                      # must be same as Device in Storage daemon
-  Media Type = tape                  # must be same as MediaType in Storage daemon
-  Maximum Concurrent Jobs = 100
-# Autochanger = yes
-}
-
-
 # Definition of File storage device
 Storage {
   Name = File
   Maximum Concurrent Jobs = 100
 }
 
-
 # Definition of File3 storage device
 Storage {
   Name = File3
   Maximum Concurrent Jobs = 100
 }
 
-
+# Definition of DDS tape storage device
+Storage {
+  Name = tape
+  Address = @hostname@                # N.B. Use a fully qualified name here
+  SDPort = @sdport@
+  Password = "ccV3lVTsQRsdIUGyab0N4sMDavui2hOBkmpBU0aQKOr9"          # password for Storage daemon
+  Device = tape                      # must be same as Device in Storage daemon
+  Media Type = tape                  # must be same as MediaType in Storage daemon
+  Maximum Concurrent Jobs = 100
+# Autochanger = yes
+}
 
 # Definition of Virtual storage device
 Storage {
 
 
 # create a new bacula-sd.confs
 for sd in 2 3 4; do
-  perl -ne '
-  if (/SDPort = /) { $_ =~ s/(\d+)/1810$sd/;}
-  if (/Name = .+?-sd/) { $_ =~ s/-sd/-sd$sd/;}
-  if (/WorkingDirectory/) { $_ =~ s/"$/$sd"/; }
-  if (/Pid Directory/) { $_ =~ s/"$/$sd"/; }
+  perl -ne "\$sd=$sd;\$tmp='$tmp';"'
+  if (/SDPort = /) { $_ =~ s/(\d+)/1810$sd/}
+  if (/Name = .+?-sd/) { $_ =~ s/-sd/-sd$sd/}
+  if (/WorkingDirectory/) { $_ = "$tmp/$sd"}
+  if (/Pid Directory/) {    $_ = "$tmp/$sd"}
+  if (/(Archive|Changer) Device/) { $_ =~ s:$tmp:$tmp/$sd:}
   print;
   ' $conf/bacula-sd.conf > $conf/bacula-sd$sd.conf
   mkdir -p ${working}$sd
   sed 's/bacula-sd.conf/bacula-sd$sd.conf/' $scripts/bacula-ctl-sd \
       > $tmp/bacula-ctl-sd$sd
   chmod +x $tmp/bacula-ctl-sd$sd
+  mkdir -p $tmp/$sd
 done
 
 # Patch up bacula-dir.conf
 restore where=${cwd}/tmp/bacula-restores select all done yes
 wait
 messages
+show storage
 sql
-select * in Storage;
-
+select * FROM Storage;
+select VolumeName, Name, StorageId, MediaType FROM Media JOIN Storage USING (StorageId);
 
 quit
 END_OF_DATA