person_activity.pl

   1 #!/usr/bin/perl
   2
   3 eval 'exec /usr/bin/perl -w -S $0 ${1+"$@"}'
   4     if 0; # not running under some shell
   5
   6 use strict;
   7 use warnings;
   8
   9 use English;
  10 use Carp;
  11 use FindBin;
  12
  13 use Getopt::Std;
  14 use Pod::Usage;
  15
  16 use List::MoreUtils qw/ uniq /;
  17
  18 #use Data::Dumper;
  19
  20 our %opt;
  21 getopts('',\%opt) or pod2usage(1);
  22
  23 my @servers = sort uniq map "$_.sgn.cornell.edu",
  24   qw(
  25      rubisco
  26      pipelines
  27      db
  28      tomatine
  29      sgn-vm
  30      solanine
  31      eggplant
  32     );
  33
  34 for my $server (@servers) {
  35   if( open my $w, "ssh $server w |" ) {
  36     my $uptime = scalar <$w>;
  37     my $header = scalar <$w>;
  38
  39     my @recs = map {
  40       my ($user, $tty, $from, $logintime, $idle, $jcpu, $pcpu, $what ) = split;
  41       unless( $idle =~ /days/ ) {
  42         chomp $what;
  43         $_
  44       } else {
  45         ()
  46       }
  47     } <$w>;
  48
  49     next unless @recs;
  50     print "==========  $server ==========\n";
  51     print $uptime,$header,@recs;
  52
  53   } else {
  54     warn "could not connect to $server\n";
  55   }
  56 }
  57
  58
  59 __END__
  60
  61 =head1 NAME
  62
  63 person_activity.pl - ssh to a bunch of sgn servers and see what everybody is doing
  64
  65 =head1 SYNOPSIS
  66
  67   person_activity.pl
  68
  69   Options:
  70
  71     none yet
  72
  73 =head1 MAINTAINER
  74
  75 Robert Buels
  76
  77 =head1 AUTHOR(S)
  78
  79 Robert Buels, E<lt>rmb32@cornell.eduE<gt>
  80
  81 =head1 COPYRIGHT & LICENSE
  82
  83 Copyright 2009 The Boyce Thompson Institute for Plant Research
  84
  85 This program is free software; you can redistribute it and/or modify
  86 it under the same terms as Perl itself.
  87
  88 =cut