[Sandweb-commit] CVS: sandweb/lib/SandWeb/Repository CVS.pm,1.8,1.9

[Rob H. <for...@us...>]

Update of /cvsroot/sandweb/sandweb/lib/SandWeb/Repository
In directory usw-pr-cvs1:/tmp/cvs-serv12840/lib/SandWeb/Repository

Modified Files:
	CVS.pm 
Log Message:

now CVS.pm changes the working directory before executing CVS commands.

This makes pserver work... woohoo! Checkout does not work yet however
( for other reasons ), and :ext: does not work with SSH/RSH unless you
have hostkeys set up. If you do, it should work but I haven't tested 
it, since I don't.

Once we can figure out a way to capture and answer the "password:" prompt,
all of the above will work.



Index: CVS.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Repository/CVS.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -U2 -r1.8 -r1.9
--- CVS.pm	2001/08/20 15:32:52	1.8
+++ CVS.pm	2001/11/26 18:42:46	1.9
@@ -48,5 +48,9 @@
     }
  
-    my $output = `cvs -d $root @param @filenames 2>&1`;
+    # removing leading //
+   
+    $file =~ s/\/\///g;
+ 
+    my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
     my $errorlevel = $?;
 
@@ -84,5 +88,9 @@
     }
  
-    my $output = `cvs -d $root @param @filenames 2>&1`;
+    # removing leading //
+
+    $file =~ s/\/\///g;
+
+    my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
     my $errorlevel = $?;
 
@@ -122,5 +130,9 @@
     }
  
-    my $output = `cvs -d $root @param @filenames 2>&1`;
+    # removing leading //
+
+    $file =~ s/\/\///g;
+
+    my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
     my $errorlevel = $?;
 
@@ -147,5 +159,9 @@
     if ($date) { push @param, " $date" };
 
-    my $output = `cvs -d $root @param $file 2>&1`;
+    # removing leading //
+
+    $file =~ s/\/\///g;
+
+    my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
     my $errorlevel = $?;
 
@@ -194,5 +210,9 @@
     }
  
-    my $output = `cvs -d $root @param @filenames 2>&1`;
+    # removing leading //
+
+    $file =~ s/\/\///g;
+
+    my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
     my $errorlevel = $?;
 
@@ -232,5 +252,9 @@
     }
  
-    my $output = `cvs -d $root @param @filenames 2>&1`;
+    # removing leading //
+
+    $file =~ s/\/\///g;
+
+    my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
     my $errorlevel = $?;
 
@@ -268,5 +292,9 @@
     }
  
-    my $output = `cvs -d $root @param @filenames 2>&1`;
+    # removing leading //
+
+    $file =~ s/\/\///g;
+
+    my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
     my $errorlevel = $?;
 
@@ -302,5 +330,9 @@
     }
  
-    my $output = `cvs -d $root @param @filenames 2>&1`;
+    # removing leading //
+
+    $file =~ s/\/\///g;
+
+    my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
     my $errorlevel = $?;
 
@@ -333,5 +365,9 @@
     }
  
-    my $output = `cvs -d $root @param @filenames 2>&1`;
+    # removing leading //
+
+    $file =~ s/\/\///g;
+
+    my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
     my $errorlevel = $?;
 
@@ -364,5 +400,9 @@
     }
  
-    my $output = `cvs -d $root @param @filenames 2>&1`;
+    # removing leading //
+
+    $file =~ s/\/\///g;
+
+    my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
     my $errorlevel = $?;
 
@@ -394,6 +434,11 @@
         }
     }
+   
+    # removing leading //
+   
+    $file =~ s/\/\///g;
  
-    my $output = `cvs -d $root @param @filenames 2>&1`;
+    my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
+
     my $errorlevel = $?;
 
@@ -441,5 +486,9 @@
     }
 
-    my $output = `cvs -d $root @param $sandbox/$file 2>&1`;
+    # removing leading //
+
+    $file =~ s/\/\///g;
+
+    my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
     my $errorlevel = $?;
 
@@ -456,6 +505,10 @@
     my $sandbox = $self->get_sandbox();
     my @param = 'logout';
+
+    # removing leading //
 
-    my $output = `cvs -d $root @param $sandbox/$file 2>&1`;
+    $file =~ s/\/\///g;
+
+    my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
     my $errorlevel = $?;
 
@@ -491,5 +544,9 @@
     }
  
-    my $output = `cvs -d $root @param @filenames 2>&1`;
+    # removing leading //
+
+    $file =~ s/\/\///g;
+
+    my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
     my $errorlevel = $?;
 
@@ -527,5 +584,9 @@
     }
  
-    my $output = `cvs -d $root @param @filenames 2>&1`;
+    # removing leading //
+
+    $file =~ s/\/\///g;
+
+    my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
     my $errorlevel = $?;
 
@@ -562,6 +623,10 @@
         }
     }
+
+    # removing leading //
+
+    $file =~ s/\/\///g;
 
-    my $output = `cvs -d $root @param @filenames 2>&1`;
+    my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
     my $errorlevel = $?;
 
@@ -607,5 +672,9 @@
     }
  
-    my $output = `cvs -d $root @param @filenames 2>&1`;
+    # removing leading //
+
+    $file =~ s/\/\///g;
+
+    my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
     my $errorlevel = $?;
 
@@ -641,5 +710,9 @@
     }
  
-    my $output = `cvs -d $root @param @filenames 2>&1`;
+    # removing leading //
+
+    $file =~ s/\/\///g;
+
+    my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
     my $errorlevel = $?;
 
@@ -689,5 +762,9 @@
     }
  
-    my $output = `cvs -d $root @param @filenames 2>&1`;
+    # removing leading //
+
+    $file =~ s/\/\///g;
+
+    my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
     my $errorlevel = $?;
 
@@ -727,5 +804,9 @@
     }
  
-    my $output = `cvs -d $root @param @filenames 2>&1`;
+    # removing leading //
+
+    $file =~ s/\/\///g;
+
+    my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
     my $errorlevel = $?;
 
@@ -761,5 +842,9 @@
     }
  
-    my $output = `cvs -d $root @param @filenames 2>&1`;
+    # removing leading //
+
+    $file =~ s/\/\///g;
+
+    my $output = `cd $sandbox && cvs -d $root @param $file 2>&1`;
     my $errorlevel = $?;