#!/usr/bin/perl

use strict;
use warnings;
use Net::Jabber;

my $SERVER;
my $USERNAME;
my $PASSWORD;
my $EMAIL;
my $CHATROOM;
my $CHATSERVER = "conference.$SERVER";

my $conn = Net::Jabber::Client->new();
my $status = $conn->Connect(hostname => $SERVER);

if ($ARGV[0] eq "--register") {
  my @status = $conn->RegisterSend(
    to => $SERVER
    username => $USERNAME,
    password => $PASSWORD,
    email => $EMAIL);

  print join(" ", @status), "\n";
  $conn->Disconnect();
  exit(0);
}

my @status = $conn->AuthIQAuth(
  username => $USERNAME,
  password => $PASSWORD,
  resource => $USERNAME
);

# $conn->PresenceSend();

my $status = $conn->MUCJoin(
  room => $CHATROOM,
  server => $CHATSERVER,
  nick => $USERNAME
);

$status = $conn->MessageSend(
  type => "groupchat",
  body => "It's now " . localtime() . ".",
  to => $CHATROOM . '@' . $CHATSERVER
);

$conn->Disconnect();