scripts

misc scripts and tools
git clone git://git.2f30.org/scripts
Log | Files | Refs

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:
Mperley | 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";