Changeset 21798 for other-projects/nightly-tasks/snapshot/trunk/task.pl

Timestamp:

2010-03-16T17:30:00+13:00 (14 years ago)

Author:

oranfry

Message:

made the snapshot task work in windows

File:

• other-projects/nightly-tasks/snapshot/trunk/task.pl (modified) (4 diffs)

other-projects/nightly-tasks/snapshot/trunk/task.pl

@@ -1 +1 @@
 use File::Basename;
+my $sep = $^O eq "MSWin32" ? "\\" : "/";
 do "$ENV{'TASK_HOME'}/lib.pl";
 
@@ -26 +27 @@
 #default data dir
 if ( ! exists $ENV{'DATA_DIR'} ) {
-    $ENV{'DATA_DIR'} = "$ENV{'HOME'}/snapshots";
+    $ENV{'DATA_DIR'} = "$ENV{'HOME'}${sep}snapshots";
 }
 
 #default identity dir
 if ( ! exists $ENV{'IDENTITY_DIR'} ) {
-    $ENV{'IDENTITY_DIR'} = "$ENV{'HOME'}/.ssh";
+    $ENV{'IDENTITY_DIR'} = "$ENV{'HOME'}${sep}.ssh";
 }
 
@@ -121 +122 @@
 #use the  correct key for uploading
 $ENV{'IDENTITY_FILE'} =
-    "$ENV{'IDENTITY_DIR'}/upload-" . $ENV{'SNAPSHOT_MODE'} . ($^O eq "MSWin32" ? ".ppk" : "");
+    "$ENV{'IDENTITY_DIR'}${sep}upload-" . $ENV{'SNAPSHOT_MODE'} . ($^O eq "MSWin32" ? ".ppk" : "");
 
 
@@ -137 +138 @@
 
 #set a release directory
-$release_dir = "$ENV{'DATA_DIR'}/$ENV{'TASK_NAME'}/from-" . get_date();
+$release_dir = "$ENV{'DATA_DIR'}${sep}$ENV{'TASK_NAME'}${sep}from-" . get_date();
 
 print "creating a snapshot release\n";