#!/usr/bin/perl

# Author:
# yistd, yiango@programmer.net
# http://yiango.tripod.com/xchat/

# Description:
# Automatic nick change upon /away

# Note:
# Set away nick with /away set AWAYNICK  before using.

&p("Away script (yistd)");
IRC::register ("awayscript", "0.1", "", ""); 
IRC::add_command_handler("away", handleaway); 

sub handleaway {
        my($temp) = $_[0];
        my(@c) = split(/ /,$temp);
           if ($c[0] =~ m/set/i) {
               if(open(FILE,">xawaynick.tmp")){
                   print FILE "$c[1]\n";
                   close(FILE);
                   &p("Set away nick to $c[1]\n");
               }
               return 1;
               
           } elsif ($c[0] ne "") {
               if (-e "xawaynick.tmp") {
                  my($currentn) = IRC::get_info(1);
                  if(open(FILE,">xchatnick.tmp")) {
                      print FILE "$currentn\n";
                      close(FILE);
                  }
                  if(open(FILE,"xawaynick.tmp")) {
                      my($awayn) = <FILE>;
                      chop($awayn);
                      $newaway = $awayn;
                      close(FILE);
                      &c("/NICK $newaway");
                  } 
                  return 0;
                  
               } else {
                   &p("Please set an away nick with /away set AWAYNICK\n");
               }
           } else {
               if(open(FILE,"<xchatnick.tmp")) {
                   my($goodnick) = <FILE>;
                   chop($goodnick);
                   close(FILE);
                   &c("/NICK $goodnick");
                   return 0;
               }
           }
}

    
sub p {
    IRC::print("@_");
}

sub c {
    IRC::command("@_");
}