Removed useless debug info

[ci skip]
i-MSCP · Jun 10, 2016 · 4a6395b · 4a6395b
1 parent 60b7704
commit 4a6395b
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 16 deletions.
diff --git a/engine/PerlLib/iMSCP/Dir.pm b/engine/PerlLib/iMSCP/Dir.pm
@@ -152,7 +152,6 @@ sub mode
 
     defined $mode or die( '$mode parameter is not defined' );
     defined $dirname or die( '$dirname parameter is not defined' );
-    debug( sprintf( 'Changing mode for %s to %s', $dirname, $mode ) );
     chmod $mode, $dirname or die( sprintf( 'Could not change mode for %s: %s', $dirname, $! ) );
     0;
 }
@@ -180,7 +179,6 @@ sub owner
     my $uid = $owner =~ /^\d+$/ ? $owner : getpwnam( $owner ) // -1;
     my $gid = $group =~ /^\d+$/ ? $group : getgrnam( $group ) // -1;
 
-    debug( sprintf( 'Changing owner and group for %s to %s:%s', $dirname, $uid, $gid ) );
     chown $uid, $gid, $dirname or die( sprintf( 'Could not change owner and group for %s: %s', $dirname, $! ) );
     0;
 }
@@ -205,7 +203,6 @@ sub make
     $options = { } unless defined $options && ref $options eq 'HASH';
 
     unless (-d $self->{'dirname'}) {
-        debug( $self->{'dirname'} );
         my @createdDirs = mkpath( $self->{'dirname'}, { error => \ my $errStack } );
 
         if (@{$errStack}) {
@@ -231,7 +228,6 @@ sub make
 
     return 0 unless $options->{'fixpermissions'};
 
-    debug( sprintf( '%s already exists. Setting its permissions...', $self->{'dirname'} ) );
     if (defined $options->{'user'} || defined $options->{'group'}) {
         $self->owner( $options->{'user'} // -1, $options->{'group'} // -1, $self->{'dirname'} );
     }
@@ -259,7 +255,6 @@ sub remove
 
     return 0 unless -d $dirname;
 
-    debug( $dirname );
     remove_tree( $dirname, { error => \ my $errStack } );
 
     if (@{$errStack}) {
@@ -321,11 +316,9 @@ sub rcopy
                     $opts = { user => $uid, mode => $mode & 07777, group => $gid }
                 }
 
-                debug( sprintf( '%s to %s', $src, $dst ) );
                 iMSCP::Dir->new( dirname => $dst )->make( $opts );
                 iMSCP::Dir->new( dirname => $src )->rcopy( $dst, $options );
             } else {
-                debug( sprintf( '%s to %s', "$self->{'dirname'}/$entry", "$destDir/$entry" ) );
                 iMSCP::File->new( filename => $src )->copyFile( $dst, $options ) == 0 or die(
                     sprintf( 'Could not copy file %s into %s: %s', $src, $dst, getLastError() )
                 );
@@ -354,7 +347,6 @@ sub moveDir
     defined $self->{'dirname'} or die( '`dirname` attribute is not defined' );
 
     -d $self->{'dirname'} or die( sprintf( "Directory %s doesn't exits", $self->{'dirname'} ) );
-    debug( sprintf( '%s to %s', $self->{'dirname'}, $destDir ) );
     move $self->{'dirname'}, $destDir or die(
         sprintf( 'Could not move %s to %s: %s', $self->{'dirname'}, $destDir, $! )
     );

diff --git a/engine/PerlLib/iMSCP/File.pm b/engine/PerlLib/iMSCP/File.pm
@@ -161,7 +161,6 @@ sub save
         return 1;
     }
 
-    debug( sprintf( 'Saving file %s', $self->{'filename'} ) );
     $self->{'fileContent'} //= '';
     print {$fh} $self->{'fileContent'};
     $fh->close();
@@ -185,7 +184,6 @@ sub delFile
         return 1;
     }
 
-    debug( sprintf( 'Deleting file %s', $self->{'filename'} ) );
     unless (unlink( $self->{'filename'} )) {
         error( sprintf( 'Could not delete file %s: %s', $self->{'filename'}, $! ) );
         return 1;
@@ -212,7 +210,6 @@ sub mode
         return 1;
     }
 
-    debug( sprintf( 'Changing mode for %s to %o', $self->{'filename'}, $mode ) );
     unless (chmod( $mode, $self->{'filename'} )) {
         error( sprintf( 'Could not change mode for %s: %s', $self->{'filename'}, $! ) );
         return 1;
@@ -243,7 +240,6 @@ sub owner
     my $uid = (($owner =~ /^\d+$/) ? $owner : getpwnam( $owner )) // -1;
     my $gid = (($group =~ /^\d+$/) ? $group : getgrnam( $group )) // -1;
 
-    debug( sprintf( 'Changing owner and group for %s to %s:%s', $self->{'filename'}, $uid, $gid ) );
     unless (chown( $uid, $gid, $self->{'filename'} )) {
         error( sprintf( 'Could not change owner and group for %s: %s', $self->{'filename'}, $! ) );
         return 1;
@@ -273,7 +269,6 @@ sub copyFile
         return 1;
     }
 
-    debug( sprintf( 'Copying file %s to %s', $self->{'filename'}, $dest ) );
     unless (copy( $self->{'filename'}, $dest )) {
         error( sprintf( 'Could not copy %s to %s: %s', $self->{'filename'}, $dest, $! ) );
         return 1;
@@ -286,13 +281,11 @@ sub copyFile
     my (undef, undef, $mode, undef, $uid, $gid) = lstat( $self->{'filename'} );
     $mode = $mode & 07777;
 
-    debug( sprintf( 'Changing mode for %s to %o', $dest, $mode ) );
     unless (chmod( $mode, $dest )) {
         error( sprintf( 'Could not change mode for %s: %s', $dest, $! ) );
         return 1;
     }
 
-    debug( sprintf( "Changing owner and group for %s to %s:%s", $dest, $uid, $gid ) );
     unless (chown( $uid, $gid, $dest )) {
         error( sprintf( 'Could not change owner and group for %s: %s', $dest, $! ) );
         return 1;
@@ -319,7 +312,6 @@ sub moveFile
         return 1;
     }
 
-    debug( sprintf( 'Moving file %s to %s', $self->{'filename'}, $dest ) );
     unless (move( $self->{'filename'}, $dest )) {
         error( sprintf( 'Unable to move %s to %s: %s', $self->{'filename'}, $dest, $! ) );
         return 1;