var channels = {
   general:      {title:"General Perl Help",             host:"irc.freenode.net", channel:"perl"},
   win32:        {title:"Win32 specific",                host:"irc.perl.org",     channel:"win32"},
   padre:        {title:"Padre, the Perl IDE",           host:"irc.perl.org",     channel:"padre"},
   catalyst:     {title:"Catalyst",                      host:"irc.perl.org",     channel:"catalyst"},
   dbix_class:   {title:"DBIx::Class",                   host:"irc.perl.org",     channel:"dbix-class"},
   email:        {title:"Perl Email Project",            host:"irc.perl.org",     channel:"email"},
   parrot:       {title:"Parrot",                        host:"irc.perl.org",     channel:"parrot"},
   perl_qa:      {title:"Perl Quality Assurance",        host:"irc.perl.org",     channel:"perl-qa"},
   locale_fr:    {title:"Perl in French",                host:"irc.perl.org",     channel:"perlfr"},
   locale_hu:    {title:"Perl in Hungarian",             host:"irc.perl.org",     channel:"magyar.pm"},
   locale_de:    {title:"Perl in German",                host:"irc.perl.org",     channel:"perlde"},
   locale_il:    {title:"Perl in Israel",                host:"irc.perl.org",     channel:"israel.pm"},
   locale_it:    {title:"Perl in Italian",               host:"irc.freenode.net", channel:"perl.it"},
   locale_jp:    {title:"Perl in Japanese",              host:"irc.freenode.net", channel:"jpa-perl"},
   locale_kr:    {title:"Perl in Korean",                host:"irc.freenode.net", channel:"perl-kr"},
   locale_pl:    {title:"Perl in Polish",                host:"irc.perl.org",     channel:"perl.pl"},
   locale_pt_br: {title:"Perl in Portuguese",            host:"irc.freenode.net", channel:"perl.br"},
   /* removed (Traditional Chinese) from Taiwan.. some pls add the glyphs for this instead) */
   locale_zh_tw: {title:"Perl in Taiwan", host:"irc.freenode.net", channel:"perl.tw"},
   poe:          {title:"POE",                           host:"irc.perl.org",     channel:"poe"},
   rt:           {title:"RT",                            host:"irc.perl.org",     channel:"rt"},
   perl_help:    {title:"Perl Help",                     host:"irc.perl.org",     channel:"perl-help"},
   wxperl:       {title:"Wx Perl",                       host:"irc.perl.org",     channel:"wxperl"},
   perl6:        {title:"Perl 6 development",            host:"irc.freenode.net", channel:"perl6"},
   sdl:          {title:"SDL - Games",                   host:"irc.perl.org",     channel:"sdl"},
   pdl:          {title:"PDL - Perl Data Language",      host:"irc.perl.org",     channel:"pdl"}
// austria.pm
   // do NOT add a trailing , after the last entry as that breaks IE 7
   // See http://padre.perlide.org/trac/ticket/521
};
var default_channel = "general";

function get_values() {
    // getting the parameters from the URL
    var loc = window.location.toString().indexOf('?');
    if (loc > 0) {
        var val = window.location.toString().substr(loc + 1);
        var pairs = val.split("&");
        var data = Array;
        for (var i = 0; i < pairs.length; i++) {
            var pair = pairs[i].split("=");
            data[pair[0]] = pair[1];
        }
        return data;
    } else {
        return [];
    }
}

function on_click() {

    var name;
    var selected_index = document.forms.n.channel.selectedIndex;
    name = document.forms.n.channel[selected_index].value;

    setCookie( "nickname" , document.forms.n.nickname.value , 7 );
    var url;
    if (channels[name].host == 'irc.freenode.net') {
        url =  'http://webchat.freenode.net/?';
        url += 'channels=' + channels[name].channel;
        url += '&nick=' + document.forms.n.nickname.value;
    } else {
        url = 'http://widget.mibbit.com/?autoConnect=true';
        url += '&server=' + channels[name].host;
        url += '&channel=%23' + channels[name].channel;
        url += '&nick=' + document.forms.n.nickname.value;
    }
    //alert(url);
    window.location = url;
}

function setup_page() {
    var values = get_values();
    if (values["nickname"]) {
        document.forms.n.nickname.value = values["nickname"];
        setCookie("nickname", values["nickname"]);
    } else if (getCookie("nickname")) {
        document.forms.n.nickname.value = getCookie("nickname");
    } else {
        var nick = Math.floor(Math.random()*10000);
      document.forms.n.nickname.value = "user_" + nick;
    }
    var ch = default_channel;
    if (values["channel"]) {
        if (channels[ values["channel"] ]) {
            ch = values["channel"];
        }
    }

    var html = '<select name="channel">';
    var selected_index;
    var cnt = 0;
    for (var i in channels) {
        // '<tr><td><input type="radio" name="channel" value="' + i + '"';
        if (i == ch) {
            selected_index = cnt;
        }
        html    += '<option value="' + i + '">'  + channels[i].title + '</option>';
        cnt++;
    }
    html    += '</select>';
    document.write(html);
    document.forms.n.channel.selectedIndex = selected_index;
}



function getCookie(c_name) {
    if (document.cookie.length>0) {
        c_start=document.cookie.indexOf(c_name + "=");
        if (c_start!=-1) {
            c_start = c_start + c_name.length+1;
            c_end = document.cookie.indexOf(";",c_start);
            if (c_end==-1) c_end=document.cookie.length;
            return unescape(document.cookie.substring(c_start,c_end));
        }
    }
    return "";
}

function setCookie(c_name,value,expiredays) {
    var exdate=new Date();
    exdate.setDate(exdate.getDate()+expiredays);
    document.cookie=c_name+ "=" +escape(value)+
    ((expiredays==null) ? "" : ";expires="+exdate.toGMTString());
}

function checkCookie() {
    var username = getCookie('nickname');
    if (username!=null && username!="") {
        document.getElementById("irc_nickname").value = username;
    }
}