tdenetwork/ksirc/puke/user_monitor.ks

&docommand("/load pbase.pm");
&docommand("/load pwidget.pm");
&docommand("/load pframe.pm");
&docommand("/load ptablevw.pm");
&docommand("/load plistbox.pm");
&docommand("/load pboxtqlayout.pm");
&docommand("/load plabel.pm");
&docommand("/load pmenudta.pm");
&docommand("/load ppopmenu.pm");
&docommand("/load pbutton.pm");
&docommand("/load ppushbt.pm");
&docommand("/load palistbox.pm");
&docommand("/load plined.pm");

use Net::SMTP;

my $WHO = "$ENV{HOME}/who_online.pl";
my $INFO = "$ENV{HOME}/mysql_fetch";

my %ALLOW_MULT = ();
$ALLOW_MULT{'asj'} = 1;
$ALLOW_MULT{'administrator'} = 1;

@PAGE_PPL = ('andrew', 'lee', 'william', 'seamus', 'gerry', 'jason', 'derik');

$PUKE_DEF_HANDLER{-999} = sub {};

package UserList;

@ISA = qw(PFrame);

sub new {
  my $class = shift;
  my $self = $class->SUPER::new($class, @_);

  $self->create();

  my $gm = new PBoxLayout($self, $PBoxLayout::TopToBottom, 5);

  my $list_box = new PListBox($self);
  $gm->addWidget($list_box, 5);

  my $event_list = new PListBox($self);
  $event_list->setMaximumSize(110, 2000);
  $event_list->setMinimumSize(110, 1);
  #  $event_list->setFrameStyle($PFrame::Box|$PFrame::Raised);
  $event_list->setFrameStyle(0);
  $event_list->setBackgroundColor($self->backgroundColor());
  # Turn off the widget so people can't click in it
  $event_list->setEnabled(0);
  $event_list->setAutoScrollBar(0);
  $event_list->setScrollBar(0);
  $gm->addWidget($event_list, 5);

  my $gm_but = new PBoxLayout($PBoxLayout::LeftToRight, 5);
  $gm->addLayout($gm_but, 5);

  my $refresh_but = new PPushButton($self);
  $refresh_but->setMaximumSize(25, 2000);
  $refresh_but->setMinimumSize(25, 25);
  $refresh_but->installHandler($::PUKE_BUTTON_PRESSED_ACK, sub { } );
  $refresh_but->installHandler($::PUKE_BUTTON_RELEASED_ACK, sub { } );
  $refresh_but->installHandler($::PUKE_BUTTON_CLICKED_ACK, sub { &::docommand("refresh_users"); } );
  $refresh_but->setText("&Refresh Users");
  $gm_but->addWidget($refresh_but, 5);

  my $page_dialog = new pageDialog();
  $page_dialog->resize(265, 250);
  
  my $page_but = new PPushButton($self);
  $page_but->setMaximumSize(25, 2000);
  $page_but->setMinimumSize(25, 25);
  $page_but->installHandler($::PUKE_BUTTON_PRESSED_ACK, sub { } );
  $page_but->installHandler($::PUKE_BUTTON_RELEASED_ACK, sub { } );
  $page_but->installHandler($::PUKE_BUTTON_CLICKED_ACK, sub { $self->{'page_dialog'}->show(); } );
  $page_but->setText("&Page");
  $gm_but->addWidget($page_but, 5);


  my $user_count = new PLabel($self);
  $user_count->setMaximumSize(25, 2000);
  $user_count->setMinimumSize(25, 25);
  $user_count->setFrameStyle($PFrame::Box|$PFrame::Raised);
  $gm->addWidget($user_count, 5);

  $user_count->setText($list_box->{count});

  my $menu = new PPopupMenu();
  my $menu_online = $menu->insertText("Online Time");
  $menu->installMenu($menu_online, sub { &::say("online " . $self->{'list_box'}->currentText() . "\n"); });
  my $menu_info = $menu->insertText("User Information");
  $menu->installMenu($menu_info, sub { my $user =  $self->{'list_box'}->currentText(); print `$INFO $user`; });
  my $menu_info2 = $menu->insertText("Connection Information");
  $menu->installMenu($menu_info2, sub { my $exec = "$WHO info " . $self->{'list_box'}->currentText(); print `$exec`; });

  my $menu_rem = $menu->insertText("Remove User From List");
  $menu->installMenu($menu_rem, sub {
     my $user = $self->{'list_box'}->currentText();
     my $count = $self->{'list_box'}->current();
     $self->{'list_box'}->removeItem($count);
     if($users_online->{$user} > 0){
         $users_online->{$user}--;
     }
     if($users_online->{$user} == 0){
         delete $users_online->{$user};
     }
  });
  my $menu_kill = $menu->insertText("Disconnect User");
  $menu->installMenu($menu_kill, sub { my $exec = "$WHO reset " . $self->{'list_box'}->currentText(); print "Running: $exec\n"; system($exec); });

  # Install listner for mouse events
  
  $list_box->installHandler($::PUKE_WIDGET_EVENT_MOUSEBUTTONPRESS,
			      sub {$self->popupMenu(@_)});
  $list_box->installHandler($::PUKE_WIDGET_EVENT_MOUSEBUTTONRELEASE,
			      sub {$self->popdownMenu(@_)});


  @$self{'gm', 'list_box', 'user_count', 'max', 'event_list', 'menu', 'page_dialog', 'page_but', 'gm_but'} = ($gm, $list_box, $user_count, 0, $event_list, $menu, $page_dialog, $page_but, $gm_but);

  return $self;

}

sub DESTROY {
    #  $self->hide();
  $self->{'gm'}->DESTROY;
  delete $self->{'gm'};
  delete $self->{'gm2'};
  $self->{'list_box'}->DESTROY;
  delete $self->{'list_box'};
  $self->{'use_count'}->DESTROY;
  delete $self->{'use_count'};

  $self->SUPER::DESTROY();
}

sub popupMenu {
  my $self = shift;
  my $arg = shift;

  my($x, $y, $b, $s) = unpack("i4", $arg->{'cArg'});
  #  print "$x $y $b $s\n";

  # Only popup for button 2
  $self->{'menu'}->popupAtCurrent() if $b == 2;
}

sub popdownMenu {
  my $self = shift;

  $self->{'menu'}->hide();
}

sub addEvent {
    my $self = shift;

    my $event_list = $self->{'event_list'};
    
    while($event_list->{count} >= 10){
      $event_list->removeItem($event_list->{count});
    }

    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
    
    my $text = sprintf("%02d:%02d:%02d " . shift(), $hour, $min, $sec);
    
    $event_list->insertText($text, 0);
}

sub insertText {
  my $self = shift;
  
  $self->{'list_box'}->insertText(@_);

  if($self->{'list_box'}->{count} > $self->{'max'}){
      $self->{'max'} = $self->{'list_box'}->{count};
  }

  $self->{'user_count'}->setText("C: " . $self->{'list_box'}->{count} . " M: " . $self->{'max'});
}

sub removeItem {
  my $self = shift;

  $self->{'list_box'}->removeItem(@_);

  $self->{'user_count'}->setText("C: " . $self->{'list_box'}->{count} . " M: " . $self->{'max'});
}

sub text {
  my $self = shift;

  return $self->{'list_box'}->text(@_);
}

sub count {
  my $self = shift;

  return $self->{'list_box'}->{count};
}

sub AUTOLOAD {
  my $self = shift;

  return if $AUTOLOAD =~ /::DESTROY$/;
  
  $AUTOLOAD =~ /.+::(.+)/;
  return $self->{'list_box'}->$1(@_);
}

package pageDialog;

@ISA = qw(PFrame);

sub new {
  my $class = shift;
  my $self = $class->SUPER::new($class, @_);
  $self->create();

  my $gm = new PBoxLayout($self, $PBoxLayout::TopToBottom, 5);

  my $ppl_label = new PLabel($self);
  $ppl_label->setText("Person to page:");
  $ppl_label->setMaximumSize(25, 2000);
  $ppl_label->setMinimumSize(25, 25);
  $gm->addWidget($ppl_label, 5);
  
  my $page_ppl = new PListBox($self);
  $gm->addWidget($page_ppl, 5);

  my $msg_label = new PLabel($self);
  $msg_label->setText("Message to page:");
  $msg_label->setMaximumSize(25, 2000);
  $msg_label->setMinimumSize(25, 25);
  $gm->addWidget($msg_label, 5);

  my $page_msg = new PLineEdit($self);
  $page_msg->setMaximumSize(25, 2000);
  $page_msg->setMinimumSize(25, 25);
  $page_msg->setMaxLength(49);
  $page_msg->installHandler($::PUKE_EVENT_UNKOWN, sub {});
  $gm->addWidget($page_msg, 5);
  
  my $send_but = new PPushButton($self);
  $send_but->setMaximumSize(25, 2000);
  $send_but->setMinimumSize(25, 25);
  $send_but->installHandler($::PUKE_BUTTON_PRESSED_ACK, sub { } );
  $send_but->installHandler($::PUKE_BUTTON_RELEASED_ACK, sub { } );
  $send_but->installHandler($::PUKE_BUTTON_CLICKED_ACK, sub { &::docommand("msg #polarcom page " . $self->{'page_ppl'}->currentText() . " " . $self->{'page_msg'}->text()); $self->hide() } );
  $send_but->setText("&Send");
  $gm->addWidget($send_but, 5);

  $self->setCaption("Page User");

  @$self{'gm', 'page_ppl', 'page_msg', 'send_but', 'msg_label', 'ppl_label'} =
        ($gm,  $page_ppl,  $page_msg,  $send_but,  $msg_label, $ppl_label);

  return $self;

}

sub show {
  my $self = shift;
  my $page_ppl = $self->{'page_ppl'};

  $self->hide();

  my $c = $page_ppl->current();

  $page_ppl->clear();
  my $person;
  foreach $person (@main::PAGE_PPL) {
    $page_ppl->insertText($person, -1);
  }
  $page_ppl->setCurrentItem($c);

  $self->resize(265, 250);
  $self->recreate(0, 0, 265, 250, 1);

#  $self->SUPER::show();
#
#  $self->resize(265,250);
#  $self->move(400,270);
  
}


package main;


if($online == undef){
  $online = new UserList();
  $online->setCaption("Users Online");
  $online->show();
  $online->resize(196,740);
  $online->move(823,0);

  eval { 
  $main::polar = new PWidget();
  $main::polar->fetchWidget("199.247.156.200_toplevel");
  $main::polar->move(0,0);
  $main::polar->resize(816, 740);
  };
  if($@) {
     eval {
         $main::polar = new PWidget();
         $main::polar->fetchWidget("199.247.156.200_#polarcom_toplevel");
         $main::polar->move(0,0);
         $main::polar->resize(816, 740);
     };
  }
  $users_online = {};
}

sub hook_online_mon {
  my $channel = shift;
  my $msg = shift;
  return unless $channel eq '#polarcom';
  return unless $msg =~ /Login|Logoff/;
  return if $msg =~ /administrator/;

  if($msg =~ /ice: Login (\S+)/){
    my $nick = $1;
    #return if $nick =~ /administrator/;
    $nick =~ s/(\S+)\@\S+/$1/g;
    $online->addEvent("On: $nick");
    if($users_online->{$nick} > 0){
      my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
      my $date;
      chomp($date = `date`);
      my $times = $users_online->{$nick} + 1;
      &say("$date Duplicate login for $nick, logged on $times times") if (($main::nick eq 'action') || ($nick eq 'administrator'));
      $online->addEvent("Duplicate: $nick");
      if($ALLOW_MULT{$nick} != 1){
        my $exec = "$WHO reset " . $nick;
        print "*I* Running: $exec\n";
        system($exec);
        my $smtp = new Net::SMTP->new;
        $smtp->mail("sysadmin\@polarcom.com");
        $smtp->to("$nick\@polarcom.com", "sysadmin\@polarcom.com");
        $smtp->data();
        $smtp->datasend("To: $nick\@polarcom.com\n");
        $smtp->datasend("From: Polarcom System Admin <sysadmin\@polarcom.com>\n");
        $smtp->datasend("Subject: Security Alert\n\n\n");
        $smtp->datasend("To: $nick\n");
        $smtp->datasend("Your account was simultaneously access by 2 or more users.\n");
        $smtp->datasend("The second user was automatically terminated.\n\n");
        $smtp->datasend("If you have any question, please email sysadmin\@polarcom.com\n");
        $smtp->datasend("-- Security Monitor\n");
        $smtp->datasend();
        $smtp->quit();
      }
      else {
        print "*I* $nick not being removed, in exclude list\n";
      }
    }
    # Make the list sorted
    my $i = 0;
    SEARCH: while($online->text($i) ne undef){

      if(($online->text($i) cmp $nick) >= 0){
	last SEARCH;
      }
      $i++;
    }
    $online->insertText($nick, $i);
    $users_online->{$nick}++;
  }
  elsif($msg =~ /ice: Logoff (\S+)/){
    my $i = 0;
    my $nick = $1;
    $nick =~ s/(\S+)\@\S+/$1/g;
    #    print "Trying to logoff: $nick\n";
    $online->addEvent("Off: $nick");
    if($users_online->{$nick} > 0){
      # print "$nick in list\n";
      $users_online->{$nick}--;
      if($users_online->{$nick} == 0){
         delete $users_online->{$nick};
      }
      while($online->text($i) ne undef){
	if($online->text($i) eq $nick){
          #   print "Removing $i for $nick which is really: " . $online->text($i) . "\n";
            $online->removeItem($i);
	  return;
	}
	$i++;
      }
    }
  }
}

&addhook("public", "online_mon");

sub hook_get_users {
  my $mesg = shift;

  if($mesg =~ /^send users online/){
    my $reply = 'Online: ';
    for($i = 0; $i <= $online->count(); $i++){
      $reply .= $online->text($i) . " ";
    }
    &msg($who, $reply);
  }
  if($mesg = /Online: (.+)\s+$/){
    &tell("*I* Updating user list from $who");
    $online->addEvent("Update user list: $who");
    my $users = $1;
    while($online->count() > 0){
        $online->removeItem(0);
    }
    $users_online = {};
    foreach $user (split(/\s+/, $users)){
      $users_online->{$user}++;
      $online->insertText($user, -1);
    }
  }
}

&addhook("msg", "get_users");

sub cmd_refresh_users {
  $online->clear();
  $users_online = {};
  my $output = `$WHO list`;
  my @users = split(/\n/, $output);
  #    while($online->count() > 0){
  #    $online->removeItem(0);
  #}
  foreach $user (@users){
    $user =~ s/(\S+)\@\S+/$1/g;
    next if $user eq '';
    next if $user =~ /administrator/;
    $users_online->{$user}++;
    $online->insertText($user, -1);
  }
}

&addcmd("refresh_users");