#!/usr/bin/perl
# catch ^C , ^Z and other signals that would otherwise
# cause us to sit in limbo.

use FileHandle;
use Shell;
use Env;
use sigtrap 'handler' => \&catch_zap, 
            qw(HUP BUS SEGV PIPE ABRT QUIT TERM INT SYS TRAP);

$lock = "/tmp/reboot";

   while (1)
{
}
 sub catch_zap
 {
   my $signame = shift;
   if (-e $lock)
   {
     xv("/boot/tux.bmp -quit");
   }
   exit;
 }

#!/usr/bin/env perl
# simple Gtk-PERL script to pop up a dialog box telling a user that the
# system is about to be shutdown.  This script would be run from their
# .login, and will just wait for a kill signal.  It's pretty worthless
# by itself, but if you wrap your /sbin/halt, reboot, etc. scripts,
# it can be useful.  Simply have your script fill /tmp/reboot with a
# message you would like your user to see when this button pops up.
# MPM 27 Nov 2002
#   implemented due to a thread on linuxquestions.org about telling
#   users that the system is about to be shut down by a remote root
#   This software is completely free, and has no restrictions, guarantees,
#   or anything else.  If you can actually get someone to pay you for this,
#   you are quite a business person and probably deserve the money (but,
#   you'll probably also rot in hell for all your underhanded dealings).

use FileHandle;
use Shell;
use Env;
use sigtrap 'handler' => \&catch_zap,
            qw(HUP BUS SEGV PIPE ABRT QUIT TERM INT SYS TRAP);
use Gtk '-init';

$pidfile = "/tmp/xreboot";

$pid = getppid();
open(OUTFILE, ">$pidfile");
print OUTFILE $pid;
close OUTFILE;

$reboot = "/tmp/reboot";

while (1) { }

sub catch_zap
{
   my $signame = shift;
   if (-e $reboot)
   {
     open(INFILE, $reboot);
     my @message = <INFILE>;
     close INFILE;
     my $window = new Gtk::Window;
     my $button = new Gtk::Button(@message);
     $window->add($button);
     $window->show_all;
     $button->signal_connect("clicked", sub
              {
              Gtk-exit(0);
              });
     Gtk->main;
   }
   rm($pidfile);
   exit;
}