A MOTD script for displaying system information.

sysinfo.motd.pl

#!/usr/bin/perl

use Data::Dumper;

sub GetIpAddresses{
        my $output = qx(ifconfig);
        my $hash = {};
        my $interface;
        foreach my $line (split /[\r\n]+/, $output) {
                if($line =~ m/^([^ ]+)/) {
                        $interface =  $1;
                }
                if($line =~ m/inet addr:([0-9.]{7,15})/) {
                        $hash->{$interface} = $1;
                }
        }
        return $hash;
}

sub GetPartitionInfo{
        my $output = qx(df -T);
        my $hash = {};
        my $partition;
        foreach my $line (split /[\r\n]+/, $output) {
                if($line =~ m/^([^ ]+)\s+([^ ]+)\s+([^ ]+)\s+([^ ]+)\s+([^ ]+)\s+([^ ]+)\s+([^ ]+)$/) {

                        if (($2 ne 'zfs') && ($2 ne 'tmpfs') && ($2 ne 'devtmpfs')) {
                                $subhash = {};
                                $subhash->{'percent'} = $6;
                                $subhash->{'fs'} = $2;
                                $hash->{$7} = $subhash;
                        }
                }
        }
my $username = $ENV{LOGNAME} || $ENV{USER} || getpwuid($<);
        if($username eq 'sanmadjack') {
        $output = qx(sudo zpool list);
        foreach my $line (split /[\r\n]+/, $output) {
                if($line =~ m/^([^ ]+)\s+([^ ]+)\s+([^ ]+)\s+([^ ]+)\s+([^ ]+)\s+([^ ]+)\s+([^ ]+)\s+([^ ]+)$/) {
                        if (($2 ne 'SIZE')) {
                                $subhash = {};
                                $subhash->{'percent'} = $5;
                                $subhash->{'fs'} = 'zpool';
                                $hash->{$1} = $subhash;
                        }
                }
        }
        }
        return $hash;

}

print Dumper &GetIpAddresses();
print Dumper &GetPartitionInfo();