#!/usr/bin/perl -w
use strict;

use IO::Socket::INET;
use FileHandle;
use Encode;

#login data
my $nick = 'stefan@berlin';
my $pw = '12345';
my $channel = '12345';
my $SPIN; #socket
my $LOG; #filehandle

main_connection("Versuche einzuloggen..");

#### SUBS ####
sub main_connection {
  my $text = shift;
  print "$text\n\n";
  $SPIN = shake_hands();
  login();
  &open_log();
  #main
  #while socket, hold it
  my $line;
  while (defined($line = <$SPIN>)) {
    start($line);
  }
  main_connection("Versuche neu einzuloggen..") unless($line);
}

sub shake_hands {
  my $host = 'www.hostname.com';
  my $port = '0000';
  #open the socket to chatserver
  my $SPIN = IO::Socket::INET->new(

  return $SPIN;
}

sub login {
    #sending logindata to chatserver
}

sub start ($) {
    my $line = shift;
    #get first char, cause it means an affair wich happening, like op, deop, join and so on
    my $cmd = substr($line, 0,1);
    
    print $LOG $line or die $!; #klappt nicht
    print $line; #klappt
}

sub open_log {
  my $logfile = 'logfile2.txt';
  $LOG = FileHandle->new(">>$logfile");
}

sub close_log {$LOG->close  or die $!}