ViewVC Help

View File | Revision Log | Show Annotations | Root Listing

root/cvsroot/COMP/SCRAM/src/Configuration/ConfigArea.pm

Comparing COMP/SCRAM/src/Configuration/ConfigArea.pm (file contents):
Revision 1.23 by sashby, Fri Dec 10 13:41:40 2004 UTC vs.
Revision 1.24 by sashby, Wed Feb 2 11:10:17 2005 UTC

#	Line 477 | Line 477 | sub align {
477
478		sub copysetup {
479		my $self=shift;
480	<	my $dest=shift;
481	<
480	>	my $dest=shift;
481		my $rv=1;
482		# copy across the admin dir
483		my $temp=$self->location()."/".$self->{admindir}."/".$self->arch();
#	Line 489 | Line 488 | sub copysetup {
488		$rv=0;
489		}
490		}
491	+	return $rv;
492	+	}
493	+
494	+	sub copywithskip {
495	+	my $self=shift;
496	+	my $dest=shift;
497	+	my ($filetoskip)=@_;
498	+	my $rv=1;
499	+	# copy across the admin dir
500	+	my $temp=$self->location()."/".$self->{admindir}."/".$self->arch();
501	+	my $temp2=$dest."/".$self->{admindir}."/".$self->arch();
502	+	if ( $temp ne $temp2 ) {
503	+	if ( -d $temp ) {
504	+	AddDir::copydirwithskip($temp,$temp2,$filetoskip);
505	+	$rv=0;
506	+	}
507	+	}
508		return $rv;
509		}
510

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines