| [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
]
- To: vhffs-dev@xxxxxxxxx
- Subject: [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
- From: subversion@xxxxxxxxxxxxx
- Date: Mon, 20 Feb 2012 00:55:03 +0100
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);
}