Changeset 743

Timestamp:

11/16/08 20:35:05 (3 years ago)

Author:

OlivierRaginel

Message:

Item38: Removed backticks: use sandbox

File:

• trunk/DiskUsagePlugin/lib/TWiki/Plugins/DiskUsagePlugin.pm (modified) (4 diffs)

trunk/DiskUsagePlugin/lib/TWiki/Plugins/DiskUsagePlugin.pm

@@ -109 +109 @@
 
 sub diskusage {
+    my $sandbox = $TWiki::sharedSandbox || $TWiki::sandbox;
     my $web = TWiki::Func::extractNameValuePair( @_, "web" );
     $web =~ s/\W//go;
@@ -114 +115 @@
     my $datadir = $TWiki::cfg{DataDir};
     my $cmd = "/usr/bin/du -b $datadir/$web/*.txt 2>&1";
-    my @lines = `$cmd`;
+    my ( $result, $code ) = $sandbox->sysCommand( $cmd );
+    my @lines = split m#$/#, $result;
     my %usageByTopic;
 
@@ -127 +129 @@
     my $pubdir = $TWiki::cfg{PubDir};
     $cmd = "/usr/bin/du -b $pubdir/$web/* 2>&1";
-
-    @lines = `$cmd`;
+    ( $result, $code ) = $sandbox->sysCommand( $cmd );
+    @lines = split m#$/#, $result;
+
     my %pubByTopic;
 
@@ -158 +161 @@
 sub quotaData {
     my $cmd = "/usr/bin/quota -v 2>&1";
-
-    my @lines = `$cmd`;
+    my $sandbox = $TWiki::sharedSandbox || $TWiki::sandbox;
+
+    my ( $result, $code ) = $sandbox->sysCommand( $cmd );
+    my @lines = split m#$/#, $result;
+
     my $lastLine = $lines[$#lines] || "";
     my @fields = split /\s+/, $lastLine;