scripts

commit 061ce3eeed22b08dc32ef64b2c029a0f4930ace7
parent b176700722d97b21bd1b1201fb273be4ad2979f4
Author: haris <haris@metal.lan>
Date:   Fri, 25 Oct 2013 15:47:59 +0300

added arch

Diffstat:
M
perley
 | 
3
++-

1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/perley b/perley
@@ -7,6 +7,7 @@ chomp (my $username = qx(whoami));
 
 # grep OS
 chomp (my $os = qx(uname));
+chomp (my $arch = qx(uname -m));
 
 # grep kernel version
 chomp (my $kernel = qx(sysctl | grep kern.version));
@@ -57,7 +58,7 @@ print '
 
 print "\n";
 print "\t  Username: \t    $username\n";
-print "\t        OS: \t    $os\n";
+print "\t        OS: \t    $os \($arch\)\n";
 print "\t    Kernel: \t    $kernel_out\n";
 print "\t  Hostname: \t    $hostname\n";
 print "\t    Uptime: \t    $uptime_cut $uptime[1]\n";