Version française du modt trouvé ici http://www.raspberrypi.org/phpBB3/viewtopic.php?t=23440 pour raspberry pi

Raspberry pi modt

#!/usr/bin/env tclsh

set var(user) $env(USER)

# * Calculate current system uptime
set uptime    [exec -- /usr/bin/cut -d. -f1 /proc/uptime]
set up(days)  [expr {$uptime/60/60/24}]
set up(hours) [expr {$uptime/60/60%24}]
set up(mins)  [expr {$uptime/60%60}]
set up(secs)  [expr {$uptime%60}]

# * Calculate Memory
set memory  [exec -- free -m]
set mem(t)  [lindex $memory 7]
set mem(u)  [lindex $memory 8]
set mem(f)  [lindex $memory 9]
set mem(s)  [lindex $memory 19]

# * Calculate last login
set lastlog [exec -- lastlog -u $var(user)]
set ll(1)  [lindex $lastlog 7]
set ll(2)  [lindex $lastlog 8]
set ll(3)  [lindex $lastlog 9]
set ll(4)  [lindex $lastlog 10]
set ll(5)  [lindex $lastlog 6]

# * Calculate processes
set psu [lindex [exec -- ps U $var(user) h | wc -l] 0]
set psa [lindex [exec -- ps -A h | wc -l] 0]

set whoami [lindex [exec -- whoami] 0]
set simpson [lindex [exec -- hostname] 0]

set date_of_now [lindex [exec -- date +"%A\ %d\ %B\ %Y,\ %kh%M\ (%Z)"] 0]
set hostname    [exec -- uname -srmo]
set ip [lindex [exec -- /sbin/ifconfig eth0 | /bin/grep "inet addr" | /usr/bin/cut -d ":" -f 2 | /usr/bin/cut -d " " -f 1] 0]

puts "\033\[01;32m"
puts "   .~~.   .~~.    $date_of_now"
puts "  '. \ ' ' / .'    $hostname\033\[0m"
puts "\033\[01;31m   .~ .~~~..~.   "
puts "  : .~.'~'.~. :   Uptime........: $up(days) jours $up(hours) heures $up(mins) minutes $up(secs) secondes"
puts " ~ (   ) (   ) ~  Memory........: $mem(t)Mo (total)  $mem(u)Mo (utilisés)  $mem(f)Mo (libres)"
puts "( : '~'.~.'~' : ) Last Login....: $ll(1) $ll(2) $ll(3) $ll(4) from $ll(5)"
puts " ~ .~ (   ) ~. ~  Processus.....: ${psu} processus utilisateurs, ${psa} au total"
puts "  (  : '~' :  )   Adresse IP....: $ip"
puts "   '~ .~~~. ~'    Information...: Bienvenue $whoami sur $simpson"
puts "       '~'"
puts "\033\[0m"