[vhffs-dev] [2034] Removed useless examples/create_dir.pl, renamed deprecated File:: Path::rmtree to File::Path::remove_tree, renamed deprecated File::Path:: mkpath to File::Path::make_path

[ Thread Index | Date Index | More vhffs.org/vhffs-dev Archives ]


Revision: 2034
Author:   gradator
Date:     2012-02-20 00:55:03 +0100 (Mon, 20 Feb 2012)
Log Message:
-----------
Removed useless examples/create_dir.pl, renamed deprecated File::Path::rmtree to File::Path::remove_tree, renamed deprecated File::Path::mkpath to File::Path::make_path

Modified Paths:
--------------
    trunk/vhffs-api/src/Vhffs/Robots/Bazaar.pm
    trunk/vhffs-api/src/Vhffs/Robots/Cvs.pm
    trunk/vhffs-api/src/Vhffs/Robots/Git.pm
    trunk/vhffs-api/src/Vhffs/Robots/Group.pm
    trunk/vhffs-api/src/Vhffs/Robots/Mercurial.pm
    trunk/vhffs-api/src/Vhffs/Robots/Repository.pm
    trunk/vhffs-api/src/Vhffs/Robots/Svn.pm
    trunk/vhffs-api/src/Vhffs/Robots/User.pm
    trunk/vhffs-api/src/Vhffs/Robots/Web.pm
    trunk/vhffs-api/src/examples/Makefile.am
    trunk/vhffs-robots/src/listengine_publicarchives.pl
    trunk/vhffs-robots/src/mail_delete.pl
    trunk/vhffs-robots/src/mail_deleteboxes.pl

Removed Paths:
-------------
    trunk/vhffs-api/src/examples/create_dir.pl

Modified: trunk/vhffs-api/src/Vhffs/Robots/Bazaar.pm
===================================================================
--- trunk/vhffs-api/src/Vhffs/Robots/Bazaar.pm	2012-02-19 23:43:49 UTC (rev 2033)
+++ trunk/vhffs-api/src/Vhffs/Robots/Bazaar.pm	2012-02-19 23:55:03 UTC (rev 2034)
@@ -115,7 +115,7 @@
 	my $dir = $bazaar->get_dir;
 	Vhffs::Robots::archive_targz( $bazaar, $dir );
 
-	File::Path::rmtree($dir) if(-d $dir);
+	File::Path::remove_tree($dir) if(-d $dir);
 	my $groupdir = File::Basename::dirname($dir);
 	rmdir($groupdir);
 

Modified: trunk/vhffs-api/src/Vhffs/Robots/Cvs.pm
===================================================================
--- trunk/vhffs-api/src/Vhffs/Robots/Cvs.pm	2012-02-19 23:43:49 UTC (rev 2033)
+++ trunk/vhffs-api/src/Vhffs/Robots/Cvs.pm	2012-02-19 23:55:03 UTC (rev 2034)
@@ -97,7 +97,7 @@
 	my $dir = $cvs->get_dir;
 	Vhffs::Robots::archive_targz( $cvs, $dir );
 
-	File::Path::rmtree($dir) if(-d $dir);
+	File::Path::remove_tree($dir) if(-d $dir);
 	# Remove parent dir if empty (i.e. this group has no move CVSes).
 	my $groupdir = File::Basename::dirname($dir);
 	rmdir $groupdir;

Modified: trunk/vhffs-api/src/Vhffs/Robots/Git.pm
===================================================================
--- trunk/vhffs-api/src/Vhffs/Robots/Git.pm	2012-02-19 23:43:49 UTC (rev 2033)
+++ trunk/vhffs-api/src/Vhffs/Robots/Git.pm	2012-02-19 23:55:03 UTC (rev 2034)
@@ -156,7 +156,7 @@
 	my $dir = $git->get_dir;
 	Vhffs::Robots::archive_targz( $git, $dir );
 
-	File::Path::rmtree($dir) if(-d $dir);
+	File::Path::remove_tree($dir) if(-d $dir);
 	my $groupdir = File::Basename::dirname($dir);
 	rmdir($groupdir);
 

Modified: trunk/vhffs-api/src/Vhffs/Robots/Group.pm
===================================================================
--- trunk/vhffs-api/src/Vhffs/Robots/Group.pm	2012-02-19 23:43:49 UTC (rev 2033)
+++ trunk/vhffs-api/src/Vhffs/Robots/Group.pm	2012-02-19 23:55:03 UTC (rev 2034)
@@ -76,7 +76,7 @@
 		Vhffs::Robots::archive_targz( $group, $dir );
 
 		my $errors=[];
-		File::Path::rmtree( $dir, { error => \$errors });
+		File::Path::remove_tree( $dir, { error => \$errors });
 		# Group directories are hashed on two levels, so we've potentially two empty directories to delete
 		$dir = File::Basename::dirname($dir);
 		rmdir $dir;

Modified: trunk/vhffs-api/src/Vhffs/Robots/Mercurial.pm
===================================================================
--- trunk/vhffs-api/src/Vhffs/Robots/Mercurial.pm	2012-02-19 23:43:49 UTC (rev 2033)
+++ trunk/vhffs-api/src/Vhffs/Robots/Mercurial.pm	2012-02-19 23:55:03 UTC (rev 2034)
@@ -157,7 +157,7 @@
 	my $dir = $mercurial->get_dir;
 	Vhffs::Robots::archive_targz( $mercurial, $dir );
 
-	File::Path::rmtree($dir) if(-d $dir);
+	File::Path::remove_tree($dir) if(-d $dir);
 	my $groupdir = File::Basename::dirname($dir);
 	rmdir($groupdir);
 

Modified: trunk/vhffs-api/src/Vhffs/Robots/Repository.pm
===================================================================
--- trunk/vhffs-api/src/Vhffs/Robots/Repository.pm	2012-02-19 23:43:49 UTC (rev 2033)
+++ trunk/vhffs-api/src/Vhffs/Robots/Repository.pm	2012-02-19 23:55:03 UTC (rev 2034)
@@ -72,7 +72,7 @@
 		Vhffs::Robots::archive_targz( $repo, $repo->get_dir );
 
 		my $errors=[];
-		File::Path::rmtree( $repo->get_dir, { error => \$errors });
+		File::Path::remove_tree( $repo->get_dir, { error => \$errors });
 		if(@$errors) {
 			Vhffs::Robots::vhffs_log( sprintf( 'Something went wrong during %s download repository deletion: %s', $repo->get_name, join(', ', @$errors) ) );
 		}

Modified: trunk/vhffs-api/src/Vhffs/Robots/Svn.pm
===================================================================
--- trunk/vhffs-api/src/Vhffs/Robots/Svn.pm	2012-02-19 23:43:49 UTC (rev 2033)
+++ trunk/vhffs-api/src/Vhffs/Robots/Svn.pm	2012-02-19 23:55:03 UTC (rev 2034)
@@ -181,7 +181,7 @@
 	my $dir = $svn->get_dir;
 	Vhffs::Robots::archive_targz( $svn, $dir );
 
-	File::Path::rmtree($dir);
+	File::Path::remove_tree($dir);
 	my $group_dir = File::Basename::dirname($dir);
 	rmdir $group_dir;
 

Modified: trunk/vhffs-api/src/Vhffs/Robots/User.pm
===================================================================
--- trunk/vhffs-api/src/Vhffs/Robots/User.pm	2012-02-19 23:43:49 UTC (rev 2033)
+++ trunk/vhffs-api/src/Vhffs/Robots/User.pm	2012-02-19 23:55:03 UTC (rev 2034)
@@ -74,7 +74,7 @@
 			Vhffs::Robots::archive_targz( $user, $homedir );
 
 			my $errors=[];
-			File::Path::rmtree( $homedir, { error => \$errors });
+			File::Path::remove_tree( $homedir, { error => \$errors });
 			# Home directories are hashed on two levels, so we've potentially two empty directories to delete
 			$homedir = File::Basename::dirname($homedir);
 			rmdir $homedir;

Modified: trunk/vhffs-api/src/Vhffs/Robots/Web.pm
===================================================================
--- trunk/vhffs-api/src/Vhffs/Robots/Web.pm	2012-02-19 23:43:49 UTC (rev 2033)
+++ trunk/vhffs-api/src/Vhffs/Robots/Web.pm	2012-02-19 23:55:03 UTC (rev 2034)
@@ -101,7 +101,7 @@
 
 		Vhffs::Robots::archive_targz( $web, $webdir );
 
-		File::Path::rmtree( $webdir );
+		File::Path::remove_tree( $webdir );
 		my $parent = File::Basename::dirname($webdir);
 		rmdir $parent;
 		$parent = File::Basename::dirname($parent);

Modified: trunk/vhffs-api/src/examples/Makefile.am
===================================================================
--- trunk/vhffs-api/src/examples/Makefile.am	2012-02-19 23:43:49 UTC (rev 2033)
+++ trunk/vhffs-api/src/examples/Makefile.am	2012-02-19 23:55:03 UTC (rev 2034)
@@ -4,7 +4,6 @@
 	create_box.pl \
 	create_cvs_panel.pl \
 	create_cvs.pl \
-	create_dir.pl \
 	create_dns.pl \
 	create_forward.pl \
 	create_group_by_panel.pl \

Deleted: trunk/vhffs-api/src/examples/create_dir.pl
===================================================================
--- trunk/vhffs-api/src/examples/create_dir.pl	2012-02-19 23:43:49 UTC (rev 2033)
+++ trunk/vhffs-api/src/examples/create_dir.pl	2012-02-19 23:55:03 UTC (rev 2034)
@@ -1,8 +0,0 @@
-#!%PERL%
-
-use strict;
-
-use lib '%VHFFS_LIB_DIR%';
-use Vhffs::Functions;
-
-print Vhffs::Functions::create_dir( "/data/prout/zozoo/pezojfzpje" );

Modified: trunk/vhffs-robots/src/listengine_publicarchives.pl
===================================================================
--- trunk/vhffs-robots/src/listengine_publicarchives.pl	2012-02-19 23:43:49 UTC (rev 2033)
+++ trunk/vhffs-robots/src/listengine_publicarchives.pl	2012-02-19 23:55:03 UTC (rev 2034)
@@ -41,9 +41,7 @@
 my $configmhonarc = $miscdir."/mhonarc.config";
 die "mhonarc configuration file unavailable" unless( -f $configmhonarc );
 
-File::Path::mkpath( $outputdir, {
-	mode => 0755
-});
+File::Path::make_path( $outputdir, { mode => 0755 } );
 die "Cannot create ".$outputdir." directory\n" unless( -d $outputdir );
 
 Vhffs::Robots::lock( $vhffs , "listenginearchives" );
@@ -57,7 +55,7 @@
 	if ( $list->get_open_archive == 0 )  {
 		my $publicdir = $outputdir."/".$list->get_domain."/".$list->get_localpart;
 		if ( -d $publicdir)  {
-			File::Path::rmtree($publicdir);
+			File::Path::remove_tree($publicdir);
 		}
 		next;
 	}

Modified: trunk/vhffs-robots/src/mail_delete.pl
===================================================================
--- trunk/vhffs-robots/src/mail_delete.pl	2012-02-19 23:43:49 UTC (rev 2033)
+++ trunk/vhffs-robots/src/mail_delete.pl	2012-02-19 23:55:03 UTC (rev 2034)
@@ -78,7 +78,7 @@
 	if( defined($dir) && -d $dir && -r _ && -w _ && -x _ )  {
 		my $dir = $mail->get_dir;
 		my $errors=[];
-		File::Path::rmtree( $mail->get_dir, { error => \$errors });
+		File::Path::remove_tree( $mail->get_dir, { error => \$errors });
 		# Mail domain directories are hashed on two levels, so we've potentially two empty directories to delete
 		$dir = File::Basename::dirname($dir);
 		rmdir $dir;

Modified: trunk/vhffs-robots/src/mail_deleteboxes.pl
===================================================================
--- trunk/vhffs-robots/src/mail_deleteboxes.pl	2012-02-19 23:43:49 UTC (rev 2033)
+++ trunk/vhffs-robots/src/mail_deleteboxes.pl	2012-02-19 23:55:03 UTC (rev 2034)
@@ -58,7 +58,7 @@
 	Vhffs::Robots::archive_targz( $mail, $dir, [ $b->{local_part} ] ); 
 
 	if( -d $dir ) {
-		File::Path::rmtree($dir);
+		File::Path::remove_tree($dir);
 		# Remove the letter/ directory if empty
 		rmdir File::Basename::dirname($dir);
 	}


Mail converted by MHonArc 2.6.19+ http://listengine.tuxfamily.org/