Menu
▾
▴
[Sandweb-commit] CVS: sandweb/lib/SandWeb/Repository CVS.pm,1.17,1.18
|
From: Rob H. <for...@us...> - 2001-12-18 07:47:28
|
Update of /cvsroot/sandweb/sandweb/lib/SandWeb/Repository
In directory usw-pr-cvs1:/tmp/cvs-serv21557/lib/SandWeb/Repository
Modified Files:
CVS.pm
Log Message:
got rid of the old multi-file functionality ( doesn't work for files w/ spaces )
cleaned up formatting alot
Index: CVS.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Repository/CVS.pm,v
retrieving revision 1.17
retrieving revision 1.18
diff -U2 -r1.17 -r1.18
--- CVS.pm 2001/12/17 19:27:19 1.17
+++ CVS.pm 2001/12/18 07:47:26 1.18
@@ -36,21 +36,11 @@
if ($message) { push @param, " -m $message" };
- my @files = split(' ', $file);
- my @filenames = ();
-
- foreach my $filename (@files) {
- if (! $filename) {
- print "Cannot open $file : $!\n";
- return -1;
- } else {
- push @filenames, "$sandbox/$filename";
- }
- }
-
my $output = `cd $sandbox && cvs -d $root @param \"$file\" 2>&1`;
my $errorlevel = $?;
- my %return = ( output => $output,
- errorlevel => $errorlevel );
+ my %return = (
+ output => $output,
+ errorlevel => $errorlevel,
+ );
return %return;
@@ -72,21 +62,8 @@
if ($type = "text") { push @param, " -kkv -MMERGE" };
- my @files = split(' ', $file);
- my @filenames = ();
-
- foreach my $filename (@files) {
- if (! $filename) {
- print "Cannot open $file : $!\n";
- return -1;
- } else {
- push @filenames, "$sandbox/$filename";
- }
- }
-
- my $output = `cd $sandbox && cvs -d $root @param \"$file\" 2>&1`;
- my $errorlevel = $?;
-
- my %return = ( output => $output,
- errorlevel => $errorlevel );
+ my %return = (
+ output => $output,
+ errorlevel => $errorlevel,
+ );
return %return;
@@ -110,21 +87,11 @@
if ($recurse) { push @param, " -R" };
- my @files = split(' ', $file);
- my @filenames = ();
-
- foreach my $filename (@files) {
- if (! $filename) {
- print "Cannot open $file : $!\n";
- return -1;
- } else {
- push @filenames, "$sandbox/$filename";
- }
- }
-
my $output = `cd $sandbox && cvs -d $root @param \"$file\" 2>&1`;
my $errorlevel = $?;
- my %return = ( output => $output,
- errorlevel => $errorlevel );
+ my %return = (
+ output => $output,
+ errorlevel => $errorlevel,
+ );
return %return;
@@ -185,21 +152,11 @@
};
- my @files = split(' ', $file);
- my @filenames = ();
-
- foreach my $filename (@files) {
- if (! $filename) {
- print "Cannot open $file : $!\n";
- return -1;
- } else {
- push @filenames, "$sandbox/$filename";
- }
- }
-
my $output = `cd $sandbox && cvs -d $root @param \"$file\" 2>&1`;
my $errorlevel = $?;
- my %return = ( output => $output,
- errorlevel => $errorlevel );
+ my %return = (
+ output => $output,
+ errorlevel => $errorlevel,
+ );
return %return;
@@ -223,16 +180,4 @@
if ($recurse) { push @param, " -R" };
- my @files = split(' ', $file);
- my @filenames = ();
-
- foreach my $filename (@files) {
- if (! $filename) {
- print "Cannot open $file : $!\n";
- return -1;
- } else {
- push @filenames, "$sandbox/$filename";
- }
- }
-
print "cd $sandbox && cvs -d $root @param \"$file\" 2>&1";
@@ -243,5 +188,5 @@
output => $output,
errorlevel => $errorlevel,
- );
+ );
return %return;
@@ -263,21 +208,11 @@
if ($recurse) { push @param, " -R" };
- my @files = split(' ', $file);
- my @filenames = ();
-
- foreach my $filename (@files) {
- if (! $filename) {
- print "Cannot open $file : $!\n";
- return -1;
- } else {
- push @filenames, "$sandbox/$filename";
- }
- }
-
my $output = `cd $sandbox && cvs -d $root @param \"$file\" 2>&1`;
my $errorlevel = $?;
- my %return = ( output => $output,
- errorlevel => $errorlevel );
+ my %return = (
+ output => $output,
+ errorlevel => $errorlevel,
+ );
return %return;
@@ -297,21 +232,11 @@
if ($recurse) { push @param, " -R" };
- my @files = split(' ', $file);
- my @filenames = ();
-
- foreach my $filename (@files) {
- if (! $filename) {
- print "Cannot open $file : $!\n";
- return -1;
- } else {
- push @filenames, "$sandbox/$filename";
- }
- }
-
my $output = `cd $sandbox && cvs -d $root @param \"$file\" 2>&1`;
my $errorlevel = $?;
- my %return = ( output => $output,
- errorlevel => $errorlevel );
+ my %return = (
+ output => $output,
+ errorlevel => $errorlevel,
+ );
return %return;
@@ -328,21 +253,11 @@
my @param = 'history';
- my @files = split(' ', $file);
- my @filenames = ();
-
- foreach my $filename (@files) {
- if (! $filename) {
- print "Cannot open $file : $!\n";
- return -1;
- } else {
- push @filenames, "$sandbox/$filename";
- }
- }
-
my $output = `cd $sandbox && cvs -d $root @param \"$file\" 2>&1`;
my $errorlevel = $?;
- my %return = ( output => $output,
- errorlevel => $errorlevel );
+ my %return = (
+ output => $output,
+ errorlevel => $errorlevel,
+ );
return %return;
@@ -359,21 +274,11 @@
my @param = 'init';
- my @files = split(' ', $file);
- my @filenames = ();
-
- foreach my $filename (@files) {
- if (! $filename) {
- print "Cannot open $file : $!\n";
- return -1;
- } else {
- push @filenames, "$sandbox/$filename";
- }
- }
-
my $output = `cd $sandbox && cvs -d $root @param \"$file\" 2>&1`;
my $errorlevel = $?;
- my %return = ( output => $output,
- errorlevel => $errorlevel );
+ my %return = (
+ output => $output,
+ errorlevel => $errorlevel,
+ );
return %return;
@@ -390,16 +295,4 @@
my @param = 'log';
- my @files = split(' ', $file);
- my @filenames = ();
-
- foreach my $filename (@files) {
- if (! $filename) {
- print "Cannot open $file : $!\n";
- return -1;
- } else {
- push @filenames, "$sandbox/$filename";
- }
- }
-
my $output = `cd $sandbox && cvs -d $root @param \"$file\" 2>&1`;
@@ -412,24 +305,4 @@
return %return;
-
-# -l Local directory only, no recursion.
-#
-# -R Only print name of RCS file.
-#
-# -h Only print header.
-#
-# -t Only print header and descriptive text.
-#
-# -N Do not list tags.
-#
-# -b Only list revisions on the default branch.
-#
-# -r[revisions] Specify revision(s)s to list.
-#
-# -d dates Specify dates (D1<D2 for range, D for latest before).
-#
-# -s states Only list revisions with specified states.
-#
-# -w[logins] Only list revisions checked in by specified logins.
}
@@ -454,6 +327,8 @@
my $errorlevel = $?;
- my %return = ( output => $output,
- errorlevel => $errorlevel );
+ my %return = (
+ output => $output,
+ errorlevel => $errorlevel,
+ );
return %return;
@@ -470,6 +345,8 @@
my $errorlevel = $?;
- my %return = ( output => $output,
- errorlevel => $errorlevel );
+ my %return = (
+ output => $output,
+ errorlevel => $errorlevel,
+ );
return %return;
@@ -489,21 +366,11 @@
if ($delete) { push @param, " -f" };
- my @files = split(' ', $file);
- my @filenames = ();
-
- foreach my $filename (@files) {
- if (! $filename) {
- print "Cannot open $file : $!\n";
- return -1;
- } else {
- push @filenames, "$sandbox/$filename";
- }
- }
-
my $output = `cd $sandbox && cvs -d $root @param \"$file\" 2>&1`;
my $errorlevel = $?;
- my %return = ( output => $output,
- errorlevel => $errorlevel );
+ my %return = (
+ output => $output,
+ errorlevel => $errorlevel
+ );
return %return;
@@ -525,21 +392,11 @@
if ($recurse) { push @param, " -R" };
- my @files = split(' ', $file);
- my @filenames = ();
-
- foreach my $filename (@files) {
- if (! $filename) {
- print "Cannot open $file : $!\n";
- return -1;
- } else {
- push @filenames, "$sandbox/$filename";
- }
- }
-
my $output = `cd $sandbox && cvs -d $root @param \"$file\" 2>&1`;
my $errorlevel = $?;
- my %return = ( output => $output,
- errorlevel => $errorlevel );
+ my %return = (
+ output => $output,
+ errorlevel => $errorlevel
+ );
return %return;
@@ -561,16 +418,4 @@
if ($verbose) { push @param, " -v" };
- my @files = split(' ', $file);
- my @filenames = ();
-
- foreach my $filename (@files) {
- if (! $filename) {
- print "Cannot open $file : $!\n";
- return -1;
- } else {
- push @filenames, "$sandbox/$filename";
- }
- }
-
my $output = `cd $sandbox && cvs -d $root @param \"$file\" 2>&1`;
my $errorlevel = $?;
@@ -607,21 +452,11 @@
if ($name) { push @param, " $name" };
- my @files = split(' ', $file);
- my @filenames = ();
-
- foreach my $filename (@files) {
- if (! $filename) {
- print "Cannot open $file : $!\n";
- return -1;
- } else {
- push @filenames, "$sandbox/$filename";
- }
- }
-
my $output = `cd $sandbox && cvs -d $root @param \"$file\" 2>&1`;
my $errorlevel = $?;
- my %return = ( output => $output,
- errorlevel => $errorlevel );
+ my %return = (
+ output => $output,
+ errorlevel => $errorlevel
+ );
return %return;
@@ -641,21 +476,11 @@
if ($recurse) { push @param, " -R" };
- my @files = split(' ', $file);
- my @filenames = ();
-
- foreach my $filename (@files) {
- if (! $filename) {
- print "Cannot open $file : $!\n";
- return -1;
- } else {
- push @filenames, "$sandbox/$filename";
- }
- }
-
my $output = `cd $sandbox && cvs -d $root @param \"$file\" 2>&1`;
my $errorlevel = $?;
- my %return = ( output => $output,
- errorlevel => $errorlevel );
+ my %return = (
+ output => $output,
+ errorlevel => $errorlevel,
+ );
return %return;
@@ -689,21 +514,11 @@
if ($merge) { push @param, " -j" };
- my @files = split(' ', $file);
- my @filenames = ();
-
- foreach my $filename (@files) {
- if (! $filename) {
- print "Cannot open $file : $!\n";
- return -1;
- } else {
- push @filenames, "$sandbox/$filename";
- }
- }
-
my $output = `cd $sandbox && cvs -d $root @param \"$file\" 2>&1`;
my $errorlevel = $?;
- my %return = ( output => $output,
- errorlevel => $errorlevel );
+ my %return = (
+ output => $output,
+ errorlevel => $errorlevel
+ );
return %return;
@@ -727,16 +542,4 @@
if ($recurse) { push @param, " -R" };
- my @files = split(' ', $file);
- my @filenames = ();
-
- foreach my $filename (@files) {
- if (! $filename) {
- print "Cannot open $file : $!\n";
- return -1;
- } else {
- push @filenames, "$sandbox/$filename";
- }
- }
-
my $output = `cd $sandbox && cvs -d $root @param \"$file\" 2>&1`;
my $errorlevel = $?;
@@ -763,21 +566,11 @@
if ($recurse) { push @param, " -R" };
- my @files = split(' ', $file);
- my @filenames = ();
-
- foreach my $filename (@files) {
- if (! $filename) {
- print "Cannot open $file : $!\n";
- return -1;
- } else {
- push @filenames, "$sandbox/$filename";
- }
- }
-
my $output = `cd $sandbox && cvs -d $root @param \"$file\" 2>&1`;
my $errorlevel = $?;
- my %return = ( output => $output,
- errorlevel => $errorlevel );
+ my %return = (
+ output => $output,
+ errorlevel => $errorlevel
+ );
return %return;
|
