#!/usr/bin/perl
use strict;
use vars qw($VERSION %IRSSI);

$VERSION = '0.1';
%IRSSI = (
    authors     => 'nyuszika7h',
    contact     => 'nyuszika7h @ freenode',
    name        => 'autoop',
    description => 'Auto-op on every joining nick',
    license     => 'Creative Commons Attribution-NonCommercial-ShareAlike 3.0'
);

sub event_message_join ($$$$) {
    my ($server, $channel, $nick, $address) = @_;
    if (lc($channel) eq lc('#linguistics')) {
        $server->command("mode #linguistics +o $nick");
    }
}

Irssi::signal_add('message join', 'event_message_join');