scripts

commit 52b61cad87aa1a03e606c2ebf9fec1479533e9f6
parent 3c43cdf2aed534b48bdff7260fe9166bd915a0b1
Author: sin <sin@2f30.org>
Date:   Fri, 25 Oct 2013 13:37:14 +0100

Show / instead of /home by default

Diffstat:
M
perley
 | 
8
++++----

1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/perley b/perley
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
 
@@ -34,8 +34,8 @@ chomp (my $shell = qx(echo \$SHELL));
 chomp (my $memory = qx(top -n | grep Memory));
 my @mem = split(/ /, $memory);
 
-# grep /home space
-chomp (my $space = qx(df -h | grep home));
+# grep / space
+chomp (my $space = qx(df -h | grep \/\$));
 my @space_stripped = split(/   /, $space);
 my @home_space = split(/   /, $space_stripped[4]);
 $space_stripped[2] =~ s/^  //g;
@@ -63,4 +63,4 @@ print "\t  Hostname: \t    $hostname\n";
 print "\t    Uptime: \t    $uptime_cut $uptime[1]\n";
 print "\t     Shell: \t    $shell\n";
 print "\t    Memory: \t    Real: $mem[2] \/ Free: $mem[5]\n";
-print "\t   Home FS: \t    Used:$space_stripped[2] \/ Free: $space_stripped[3]\n\n";
+print "\t   Root FS: \t    Used:$space_stripped[2] \/ Free: $space_stripped[3]\n\n";