[ViewVC] Diff of: cvsroot/COMP/SCRAM/src/Utilities/AddDir.pm

Comparing COMP/SCRAM/src/Utilities/AddDir.pm (file contents):
Revision 1.3 by williamc, Thu Mar 18 10:32:04 1999 UTC vs.
Revision 1.6 by sashby, Fri May 11 08:49:52 2001 UTC

+require Exporter;
+use Cwd;
+@ISA    = qw(Exporter);
-<
+@EXPORT = qw(adddir);
->
+@EXPORT = qw(adddir copydir);
->
+sub adddir {
+ my $indir=shift;
+ chdir $startdir;
-+
-+
+sub copydir
-+
+   {
-+
+   my $src=shift;
-+
+   my $dest=shift;
-+
-+
+   use DirHandle;
-+
+   use File::Copy;
-+
-+
+   # print "Copying $src to $dest\n";
-+
+   adddir($dest);
-+
+   my $dh=DirHandle->new($src);
-+
-+
+   if (defined $dh)
-+
+      {
-+
+      my @allfiles=$dh->read();
-+
-+
+      my $file;
-+
+      foreach $file ( @allfiles )
-+
+         {
-+
+         next if $file=~/^\.\.?/;
-+
+         if ( -d $src."/".$file )
-+
+            {
-+
+            copydir($src."/".$file,$dest."/".$file);
-+
+            }
-+
+         else
-+
+            {
-+
+            copy($src."/".$file,$dest."/".$file);
-+
+            }
-+
+         }
-+
+      undef $dh;
-+
+      }
-+
+   else
-+
+      {
-+
+      die "Attempt to open a non-existent directory ($src). Exitting\n";
-+
+      }
-+
+   }

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