Programming Jabber

The cleanup() function

The cleanup() function is called if an attempt is made to shut the script down. It unties the registration hash, ensuring no data is lost, and disconnects from the Jabber server:

sub cleanup {

  debug("cleaning up");
  untie %reg;
  $c->disconnect;
  exit;

}