src/common/servlist.c

   1 /* X-Chat
   2  * Copyright (C) 1998 Peter Zelezny.
   3  *
   4  * This program is free software; you can redistribute it and/or modify
   5  * it under the terms of the GNU General Public License as published by
   6  * the Free Software Foundation; either version 2 of the License, or
   7  * (at your option) any later version.
   8  *
   9  * This program is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12  * GNU General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU General Public License
  15  * along with this program; if not, write to the Free Software
  16  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
  17  */
  18
  19 #include <stdlib.h>
  20 #include <stdio.h>
  21 #include <string.h>
  22 #include <sys/types.h>
  23 #include <sys/stat.h>
  24 #include <unistd.h>
  25
  26 #include "xchat.h"
  27 #include <glib.h>
  28
  29 #include "cfgfiles.h"
  30 #include "fe.h"
  31 #include "server.h"
  32 #include "text.h"
  33 #include "util.h" /* token_foreach */
  34 #include "xchatc.h"
  35
  36 #include "servlist.h"
  37
  38
  39 struct defaultserver
  40 {
  41         char *network;
  42         char *host;
  43         char *channel;
  44         char *charset;
  45         int loginmode;          /* default authentication type */
  46 };
  47
  48 static const struct defaultserver def[] =
  49 {
  50         {"2600net",     0},
  51         {0,                     "irc.2600.net"},
  52
  53         {"7-indonesia", 0},
  54         {0,                     "irc.7-indonesia.org"},
  55
  56         {"AccessIRC",   0},
  57         {0,                     "irc.accessirc.net"},
  58         {0,                     "eu.accessirc.net"},
  59
  60         {"AfterNET",    0},
  61         {0,                     "irc.afternet.org"},
  62         {0,                     "us.afternet.org"},
  63         {0,                     "eu.afternet.org"},
  64
  65         {"Aitvaras",    0},
  66 #ifdef USE_IPV6
  67 #ifdef USE_OPENSSL
  68         {0,                     "irc6.ktu.lt/+7668"},
  69 #endif
  70         {0,                     "irc6.ktu.lt/7666"},
  71 #endif
  72 #ifdef USE_OPENSSL
  73         {0,                     "irc.data.lt/+6668"},
  74         {0,                     "irc-ssl.omnitel.net/+6668"},
  75         {0,                     "irc-ssl.le.lt/+9999"},
  76 #endif
  77         {0,                     "irc.data.lt"},
  78         {0,                     "irc.omnitel.net"},
  79         {0,                     "irc.ktu.lt"},
  80         {0,                     "irc.le.lt"},
  81         {0,                     "irc.takas.lt"},
  82         {0,                     "irc.5ci.net"},
  83         {0,                     "irc.kis.lt"},
  84
  85         {"AmigaNet",    0},
  86         {0,                     "irc.amiganet.org"},
  87         {0,                     "us.amiganet.org"},
  88         {0,                     "uk.amiganet.org"},
  89 /*      {0,                     "no.amiganet.org"},
  90         {0,                     "au.amiganet.org"},*/
  91
  92         {"ARCNet",      0},
  93         {0,                     "se1.arcnet.vapor.com"},
  94         {0,                     "us1.arcnet.vapor.com"},
  95         {0,                     "us2.arcnet.vapor.com"},
  96         {0,                     "us3.arcnet.vapor.com"},
  97         {0,                     "ca1.arcnet.vapor.com"},
  98         {0,                     "de1.arcnet.vapor.com"},
  99         {0,                     "de3.arcnet.vapor.com"},
 100         {0,                     "ch1.arcnet.vapor.com"},
 101         {0,                     "be1.arcnet.vapor.com"},
 102         {0,                     "nl3.arcnet.vapor.com"},
 103         {0,                     "uk1.arcnet.vapor.com"},
 104         {0,                     "uk2.arcnet.vapor.com"},
 105 /*      {0,                     "uk3.arcnet.vapor.com"},*/
 106         {0,                     "fr1.arcnet.vapor.com"},
 107
 108         {"AstroLink",   0},
 109         {0,                     "irc.astrolink.org"},
 110
 111         {"AustNet",     0},
 112         {0,                     "au.austnet.org"},
 113         {0,                     "us.austnet.org"},
 114         {0,                     "ca.austnet.org"},
 115
 116 /*      {"AxeNet",      0},
 117         {0,                     "irc.axenet.org"},
 118         {0,                     "angel.axenet.org"},
 119         {0,                     "energy.axenet.org"},
 120         {0,                     "python.axenet.org"},*/
 121
 122         {"AzzurraNet",  0},
 123         {0,                     "irc.azzurra.org"},
 124         {0,                     "crypto.azzurra.org"},
 125
 126         {"Beirut", 0},
 127         {0,                     "irc.beirut.com"},
 128
 129         {"ChattingAway", 0},
 130         {0,                     "irc.chattingaway.com"},
 131
 132         {"ChatJunkies", 0, "#xchat"},
 133         {0,                     "irc.chatjunkies.org"},
 134         {0,                     "nl.chatjunkies.org"},
 135
 136         {"ChatNet",     0},
 137         {0,                     "US.ChatNet.Org"},
 138         {0,                     "EU.ChatNet.Org"},
 139
 140         {"ChatSociety", 0},
 141         {0,                     "us.chatsociety.net"},
 142         {0,                     "eu.chatsociety.net"},
 143
 144         {"ChatSpike", 0},
 145         {0,                     "irc.chatspike.net"},
 146
 147         {"CoolChat",    0},
 148         {0,                     "irc.coolchat.net"},
 149 /*      {0,                     "unix.coolchat.net"},
 150         {0,                     "toronto.coolchat.net"},*/
 151
 152         {"Criten", 0},
 153         {0,                     "irc.criten.net"},
 154         {0,                     "irc.eu.criten.net"},
 155
 156         {"DALnet", 0},
 157         {0,                     "irc.dal.net"},
 158         {0,                     "irc.eu.dal.net"},
 159
 160         {"Dark-Tou-Net",        0},
 161         {0,                     "irc.d-t-net.de"},
 162         {0,                     "bw.d-t-net.de"},
 163         {0,                     "nc.d-t-net.de"},
 164         {0,                     "wakka.d-t-net.de"},
 165
 166         {"DarkMyst", 0},
 167         {0,                     "irc.darkmyst.org"},
 168
 169         {"DeepIRC", 0},
 170         {0,                     "irc.deepirc.net"},
 171
 172         {"DeltaAnime", 0},
 173         {0,                     "irc.deltaanime.net"},
 174
 175         {"EFnet",       0},
 176         {0,                     "irc.blackened.com"},
 177         {0,                     "irc.Prison.NET"},
 178         {0,                     "irc.Qeast.net"},
 179         {0,                     "irc.efnet.pl"},
 180         {0,                     "efnet.demon.co.uk"},
 181 /*      {0,                     "irc.lagged.org"},*/
 182         {0,                     "irc.lightning.net"},
 183         {0,                     "irc.mindspring.com"},
 184         {0,                     "irc.easynews.com"},
 185         {0,                     "irc.servercentral.net"},
 186
 187         {"EnterTheGame",        0},
 188         {0,                     "IRC.EnterTheGame.Com"},
 189
 190         {"EUIrc",       0},
 191         {0,                     "irc.euirc.net"},
 192         {0,                     "irc.ham.de.euirc.net"},
 193         {0,                     "irc.ber.de.euirc.net"},
 194         {0,                     "irc.ffm.de.euirc.net"},
 195         {0,                     "irc.bre.de.euirc.net"},
 196         {0,                     "irc.hes.de.euirc.net"},
 197         {0,                     "irc.vie.at.euirc.net"},
 198         {0,                     "irc.inn.at.euirc.net"},
 199         {0,                     "irc.bas.ch.euirc.net"},
 200
 201         {"EuropNet", 0},
 202         {0,                     "irc.europnet.org"},
 203
 204         {"EU-IRC",      0},
 205         {0,                     "irc.eu-irc.net"},
 206
 207         {"FDFNet",      0},
 208         {0,                     "irc.fdfnet.net"},
 209         {0,                     "irc.eu.fdfnet.net"},
 210
 211         {"FEFNet",      0},
 212         {0,                     "irc.fef.net"},
 213         {0,                     "irc.ggn.net"},
 214         {0,                     "irc.vendetta.com"},
 215
 216         {"freenode", 0, "#xchat", 0, LOGIN_SASL},
 217         {0,                             "irc.freenode.net"},
 218
 219 /*      {"Freeworld",   0},
 220         {0,                     "kabel.freeworld.nu"},
 221         {0,                     "irc.freeworld.nu"},*/
 222
 223         {"GalaxyNet",   0},
 224         {0,                     "irc.galaxynet.org"},
 225 /*      {0,                     "sprynet.us.galaxynet.org"},
 226         {0,                     "atlanta.ga.us.galaxynet.org"},*/
 227
 228         {"GamesNET",    0},
 229         {0,                             "irc.gamesnet.net"},
 230 /*      {0,                             "irc.us.gamesnet.net"},
 231         {0,                             "east.us.gamesnet.net"},
 232         {0,                             "west.us.gamesnet.net"},*/
 233         {0,                             "irc.ca.gamesnet.net"},
 234         {0,                             "irc.eu.gamesnet.net"},
 235
 236         {"GeekShed",    0},
 237         {0,                     "irc.geekshed.net"},
 238
 239         {"German-Elite",        0},
 240         {0,                     "dominion.german-elite.net"},
 241         {0,                     "komatu.german-elite.net"},
 242 /*      {0,                     "liberty.german-elite.net"},*/
 243
 244         {"GimpNet",             0},
 245         {0,                     "irc.gimp.org"},
 246 /*      {0,                     "irc.au.gimp.org"},*/
 247         {0,                     "irc.us.gimp.org"},
 248
 249         {"HabberNet",   0},
 250         {0,                     "irc.habber.net"},
 251
 252         {"Hashmark",    0},
 253         {0,                     "irc.hashmark.net"},
 254
 255         {"IdleMonkeys", 0},
 256         {0,                     "irc.idlemonkeys.net"},
 257
 258 /*      {"Infinity-IRC",        0},
 259         {0,                     "Atlanta.GA.US.Infinity-IRC.Org"},
 260         {0,                     "Babylon.NY.US.Infinity-IRC.Org"},
 261         {0,                     "Sunshine.Ca.US.Infinity-IRC.Org"},
 262         {0,                     "IRC.Infinity-IRC.Org"},*/
 263
 264         {"iZ-smart.net",        0},
 265         {0,                     "irc.iZ-smart.net/6666"},
 266         {0,                     "irc.iZ-smart.net/6667"},
 267         {0,                     "irc.iZ-smart.net/6668"},
 268
 269         {"IrcLink",     0},
 270         {0,                     "irc.irclink.net"},
 271         {0,                     "Alesund.no.eu.irclink.net"},
 272         {0,                     "Oslo.no.eu.irclink.net"},
 273         {0,                     "frogn.no.eu.irclink.net"},
 274         {0,                     "tonsberg.no.eu.irclink.net"},
 275
 276         {"IRCNet",              0},
 277         {0,                             "irc.ircnet.com"},
 278         {0,                             "irc.stealth.net/6668"},
 279         {0,                             "ircnet.demon.co.uk"},
 280 /*      {0,                             "ircnet.hinet.hr"},*/
 281         {0,                             "irc.datacomm.ch"},
 282 /*      {0,                             "ircnet.kaptech.fr"},
 283         {0,                             "ircnet.easynet.co.uk"},*/
 284         {0,                             "random.ircd.de"},
 285         {0,                             "ircnet.netvision.net.il"},
 286 /*      {0,                             "irc.seed.net.tw"},*/
 287         {0,                             "irc.cs.hut.fi"},
 288
 289         {"Irctoo.net",  0},
 290         {0,                     "irc.irctoo.net"},
 291
 292         {"Krstarica", 0},
 293         {0,                     "irc.krstarica.com"},
 294
 295         {"Librenet",    0},
 296         {0,                     "irc.librenet.net"},
 297         {0,                     "ielf.fr.librenet.net"},
 298
 299         {"LinkNet",     0},
 300         {0,                     "irc.link-net.org"},
 301         {0,                     "irc.no.link-net.org"},
 302 /*      {0,                     "irc.gamesden.net.au"},*/
 303         {0,                     "irc.bahnhof.se"},
 304 /*      {0,                     "irc.kinexuseurope.co.uk"},
 305         {0,                     "irc.gamiix.com"},*/
 306
 307         {"MagicStar",   0},
 308         {0,                     "irc.magicstar.net"},
 309
 310         {"Majistic",    0},
 311         {0,                     "irc.majistic.net"},
 312
 313         {"MindForge",   0},
 314         {0,                     "irc.mindforge.org"},
 315
 316         {"MintIRC",     0},
 317         {0,                     "irc.mintirc.net"},
 318
 319         {"MIXXnet",             0},
 320         {0,                     "irc.mixxnet.net"},
 321
 322         {"NeverNET",    0},
 323         {0,                     "irc.nevernet.net"},
 324         {0,                     "imagine.nevernet.net"},
 325         {0,                     "dimension.nevernet.net"},
 326         {0,                     "universe.nevernet.net"},
 327         {0,                     "wayland.nevernet.net"},
 328         {0,                     "forte.nevernet.net"},
 329
 330         {"NixHelpNet",  0},
 331         {0,                     "irc.nixhelp.org"},
 332         {0,                     "us.nixhelp.org"},
 333         {0,                     "uk.nixhelp.org"},
 334         {0,                     "uk2.nixhelp.org"},
 335         {0,                     "uk3.nixhelp.org"},
 336         {0,                     "nl.nixhelp.org"},
 337         {0,                     "ca.ld.nixhelp.org"},
 338         {0,                     "us.co.nixhelp.org"},
 339         {0,                     "us.ca.nixhelp.org"},
 340         {0,                     "us.pa.nixhelp.org"},
 341
 342         {"NullusNet",   0},
 343         {0,                     "irc.nullus.net"},
 344
 345         {"Oceanius", 0},
 346         {0,                     "irc.oceanius.com"},
 347
 348         {"OFTC",        0},
 349         {0,                     "irc.oftc.net"},
 350
 351         {"OtherNet",    0},
 352         {0,                     "irc.othernet.org"},
 353
 354         {"OzNet",       0},
 355         {0,                     "irc.oz.org"},
 356
 357         {"PIRC.PL",     0},
 358         {0,                     "irc.pirc.pl"},
 359
 360         {"PTlink",      0},
 361         {0,                     "irc.PTlink.net"},
 362         {0,                     "aaia.PTlink.net"},
 363
 364         {"PTNet.org",   0},
 365         {0,                     "irc.PTNet.org"},
 366         {0,                     "world.PTnet.org"},
 367         {0,                     "netvisao.PTnet.org"},
 368         {0,                     "uevora.PTnet.org"},
 369         {0,                     "vianetworks.PTnet.org"},
 370         {0,                     "uc.PTnet.org"},
 371         {0,                     "nfsi.ptnet.org"},
 372
 373         {"QuakeNet", 0, 0, 0, LOGIN_CHALLENGEAUTH},
 374         {0,                     "irc.quakenet.org"},
 375         {0,                     "irc.se.quakenet.org"},
 376         {0,                     "irc.dk.quakenet.org"},
 377         {0,                     "irc.no.quakenet.org"},
 378         {0,                     "irc.fi.quakenet.org"},
 379         {0,                     "irc.be.quakenet.org"},
 380         {0,                     "irc.uk.quakenet.org"},
 381         {0,                     "irc.de.quakenet.org"},
 382         {0,                     "irc.it.quakenet.org"},
 383
 384         {"RebelChat",   0},
 385         {0,                     "irc.rebelchat.org"},
 386
 387 /*      {"Recycled-IRC",  0},
 388         {0,                     "irc.recycled-irc.org"},
 389         {0,                     "vermin.recycled-irc.org"},
 390         {0,                     "waste.recycled-irc.org"},
 391         {0,                     "lumber.recycled-irc.org"},
 392         {0,                     "trash.recycled-irc.org"},
 393         {0,                     "unwashed.recycled-irc.org"},
 394         {0,                     "garbage.recycled-irc.org"},
 395         {0,                     "dustbin.recycled-irc.org"},*/
 396
 397         {"RizeNET", 0},
 398         {0,                     "irc.rizenet.org"},
 399         {0,                     "omega.rizenet.org"},
 400         {0,                     "evelance.rizenet.org"},
 401         {0,                     "lisa.rizenet.org"},
 402         {0,                     "scott.rizenet.org"},
 403
 404         {"Rizon", 0},
 405         {0,                     "irc.rizon.net"},
 406
 407         {"RusNet", 0, 0, "KOI8-R (Cyrillic)"},
 408         {0,                     "irc.tomsk.net"},
 409         {0,                     "irc.rinet.ru"},
 410         {0,                     "irc.run.net"},
 411         {0,                     "irc.ru"},
 412         {0,                     "irc.lucky.net"},
 413
 414         {"SceneNet",    0},
 415         {0,                     "irc.scene.org"},
 416         {0,                     "irc.eu.scene.org"},
 417         {0,                     "irc.us.scene.org"},
 418
 419         {"SeilEn.de",   0},
 420         {0,                     "irc.seilen.de"},
 421
 422         {"SlashNET",    0},
 423         {0,                     "irc.slashnet.org"},
 424         {0,                     "area51.slashnet.org"},
 425         {0,                     "moo.slashnet.org"},
 426         {0,                     "radon.slashnet.org"},
 427
 428         {"Sohbet.Net", 0},
 429         {0,                     "irc.sohbet.net"},
 430
 431         {"SolidIRC", 0},
 432         {0,                     "irc.solidirc.com"},
 433
 434         {"SorceryNet",  0},
 435         {0,                     "irc.sorcery.net/9000"},
 436         {0,                     "irc.us.sorcery.net/9000"},
 437         {0,                     "irc.eu.sorcery.net/9000"},
 438
 439         {"Spidernet",   0},
 440         {0,                     "us.spidernet.org"},
 441         {0,                     "eu.spidernet.org"},
 442         {0,                     "irc.spidernet.org"},
 443
 444         {"StarChat", 0},
 445         {0,                     "irc.starchat.net"},
 446         {0,                     "gainesville.starchat.net"},
 447         {0,                     "freebsd.starchat.net"},
 448         {0,                     "sunset.starchat.net"},
 449         {0,                     "revenge.starchat.net"},
 450         {0,                     "tahoma.starchat.net"},
 451         {0,                     "neo.starchat.net"},
 452
 453         {"TNI3",                        0},
 454         {0,                     "irc.tni3.com"},
 455
 456         {"TURLINet",                    0},
 457         {0,                     "irc.turli.net"},
 458         {0,                     "irc.servx.ru"},
 459         {0,                     "irc.gavnos.ru"},
 460
 461         {"UnderNet", 0, 0, 0, LOGIN_CUSTOM},
 462         {0,                     "us.undernet.org"},
 463         {0,                     "eu.undernet.org"},
 464
 465         {"UniBG", 0, 0, 0, LOGIN_CUSTOM},
 466         {0,                     "irc.lirex.com"},
 467         {0,                     "irc.naturella.com"},
 468         {0,                     "irc.spnet.net"},
 469         {0,                     "irc.techno-link.com"},
 470         {0,                     "irc.telecoms.bg"},
 471         {0,                     "irc.tu-varna.edu"},
 472
 473         {"Whiffle",     0},
 474         {0,                     "irc.whiffle.org"},
 475
 476         {"Worldnet",            0},
 477         {0,                     "irc.worldnet.net"},
 478         {0,                     "irc.fr.worldnet.net"},
 479
 480         {"Xentonix.net",        0},
 481         {0,                     "irc.xentonix.net"},
 482
 483         {"XWorld",      0},
 484         {0,                     "Buffalo.NY.US.XWorld.org"},
 485         {0,                     "Minneapolis.MN.US.Xworld.Org"},
 486         {0,                     "Rochester.NY.US.XWorld.org"},
 487         {0,                     "Bayern.DE.EU.XWorld.Org"},
 488         {0,                     "Chicago.IL.US.XWorld.Org"},
 489
 490         {0,0}
 491 };
 492
 493 GSList *network_list = 0;
 494
 495
 496 void
 497 servlist_connect (session *sess, ircnet *net, gboolean join)
 498 {
 499         ircserver *ircserv;
 500         GSList *list;
 501         char *port;
 502         server *serv;
 503
 504         if (!sess)
 505                 sess = new_ircwindow (NULL, NULL, SESS_SERVER, TRUE);
 506
 507         serv = sess->server;
 508
 509         /* connect to the currently selected Server-row */
 510         list = g_slist_nth (net->servlist, net->selected);
 511         if (!list)
 512                 list = net->servlist;
 513         if (!list)
 514                 return;
 515         ircserv = list->data;
 516
 517         /* incase a protocol switch is added to the servlist gui */
 518         server_fill_her_up (sess->server);
 519
 520         if (join)
 521         {
 522                 sess->willjoinchannel[0] = 0;
 523
 524                 if (net->autojoin)
 525                 {
 526                         if (serv->autojoin)
 527                                 free (serv->autojoin);
 528                         serv->autojoin = strdup (net->autojoin);
 529                 }
 530         }
 531
 532         if (net->logintype)
 533         {
 534                 serv->loginmethod = net->logintype;
 535         }
 536         else
 537         {
 538                 serv->loginmethod = LOGIN_DEFAULT_REAL;
 539         }
 540
 541         serv->password[0] = 0;
 542
 543         if (net->pass)
 544                 safe_strcpy (serv->password, net->pass, sizeof (serv->password));
 545
 546         if (net->flags & FLAG_USE_GLOBAL)
 547         {
 548                 strcpy (serv->nick, prefs.nick1);
 549         } else
 550         {
 551                 if (net->nick) {
 552                         strcpy (serv->nick, net->nick);
 553                 }
 554         }
 555
 556         serv->dont_use_proxy = (net->flags & FLAG_USE_PROXY) ? FALSE : TRUE;
 557
 558 #ifdef USE_OPENSSL
 559         serv->use_ssl = (net->flags & FLAG_USE_SSL) ? TRUE : FALSE;
 560         serv->accept_invalid_cert =
 561                 (net->flags & FLAG_ALLOW_INVALID) ? TRUE : FALSE;
 562 #endif
 563
 564         serv->network = net;
 565
 566         port = strrchr (ircserv->hostname, '/');
 567         if (port)
 568         {
 569                 *port = 0;
 570
 571                 /* support "+port" to indicate SSL (like mIRC does) */
 572                 if (port[1] == '+')
 573                 {
 574 #ifdef USE_OPENSSL
 575                         serv->use_ssl = TRUE;
 576 #endif
 577                         serv->connect (serv, ircserv->hostname, atoi (port + 2), FALSE);
 578                 } else
 579                 {
 580                         serv->connect (serv, ircserv->hostname, atoi (port + 1), FALSE);
 581                 }
 582
 583                 *port = '/';
 584         } else
 585                 serv->connect (serv, ircserv->hostname, -1, FALSE);
 586
 587         server_set_encoding (serv, net->encoding);
 588 }
 589
 590 int
 591 servlist_connect_by_netname (session *sess, char *network, gboolean join)
 592 {
 593         ircnet *net;
 594         GSList *list = network_list;
 595
 596         while (list)
 597         {
 598                 net = list->data;
 599
 600                 if (strcasecmp (net->name, network) == 0)
 601                 {
 602                         servlist_connect (sess, net, join);
 603                         return 1;
 604                 }
 605
 606                 list = list->next;
 607         }
 608
 609         return 0;
 610 }
 611
 612 int
 613 servlist_have_auto (void)
 614 {
 615         GSList *list = network_list;
 616         ircnet *net;
 617
 618         while (list)
 619         {
 620                 net = list->data;
 621
 622                 if (net->flags & FLAG_AUTO_CONNECT)
 623                         return 1;
 624
 625                 list = list->next;
 626         }
 627
 628         return 0;
 629 }
 630
 631 int
 632 servlist_auto_connect (session *sess)
 633 {
 634         GSList *list = network_list;
 635         ircnet *net;
 636         int ret = 0;
 637
 638         while (list)
 639         {
 640                 net = list->data;
 641
 642                 if (net->flags & FLAG_AUTO_CONNECT)
 643                 {
 644                         servlist_connect (sess, net, TRUE);
 645                         ret = 1;
 646                 }
 647
 648                 list = list->next;
 649         }
 650
 651         return ret;
 652 }
 653
 654 static gint
 655 servlist_cycle_cb (server *serv)
 656 {
 657         if (serv->network)
 658         {
 659                 PrintTextf (serv->server_session,
 660                         _("Cycling to next server in %s...\n"), ((ircnet *)serv->network)->name);
 661                 servlist_connect (serv->server_session, serv->network, TRUE);
 662         }
 663
 664         return 0;
 665 }
 666
 667 int
 668 servlist_cycle (server *serv)
 669 {
 670         ircnet *net;
 671         int max, del;
 672
 673         net = serv->network;
 674         if (net)
 675         {
 676                 max = g_slist_length (net->servlist);
 677                 if (max > 0)
 678                 {
 679                         /* try the next server, if that option is on */
 680                         if (net->flags & FLAG_CYCLE)
 681                         {
 682                                 net->selected++;
 683                                 if (net->selected >= max)
 684                                         net->selected = 0;
 685                         }
 686
 687                         del = prefs.recon_delay * 1000;
 688                         if (del < 1000)
 689                                 del = 500;                                /* so it doesn't block the gui */
 690
 691                         if (del)
 692                                 serv->recondelay_tag = fe_timeout_add (del, servlist_cycle_cb, serv);
 693                         else
 694                                 servlist_connect (serv->server_session, net, TRUE);
 695
 696                         return TRUE;
 697                 }
 698         }
 699
 700         return FALSE;
 701 }
 702
 703 ircserver *
 704 servlist_server_find (ircnet *net, char *name, int *pos)
 705 {
 706         GSList *list = net->servlist;
 707         ircserver *serv;
 708         int i = 0;
 709
 710         while (list)
 711         {
 712                 serv = list->data;
 713                 if (strcmp (serv->hostname, name) == 0)
 714                 {
 715                         if (pos)
 716                                 *pos = i;
 717                         return serv;
 718                 }
 719                 i++;
 720                 list = list->next;
 721         }
 722
 723         return NULL;
 724 }
 725
 726 /* find a network (e.g. (ircnet *) to "FreeNode") from a hostname
 727    (e.g. "irc.eu.freenode.net") */
 728
 729 ircnet *
 730 servlist_net_find_from_server (char *server_name)
 731 {
 732         GSList *list = network_list;
 733         GSList *slist;
 734         ircnet *net;
 735         ircserver *serv;
 736
 737         while (list)
 738         {
 739                 net = list->data;
 740
 741                 slist = net->servlist;
 742                 while (slist)
 743                 {
 744                         serv = slist->data;
 745                         if (strcasecmp (serv->hostname, server_name) == 0)
 746                                 return net;
 747                         slist = slist->next;
 748                 }
 749
 750                 list = list->next;
 751         }
 752
 753         return NULL;
 754 }
 755
 756 ircnet *
 757 servlist_net_find (char *name, int *pos, int (*cmpfunc) (const char *, const char *))
 758 {
 759         GSList *list = network_list;
 760         ircnet *net;
 761         int i = 0;
 762
 763         while (list)
 764         {
 765                 net = list->data;
 766                 if (cmpfunc (net->name, name) == 0)
 767                 {
 768                         if (pos)
 769                                 *pos = i;
 770                         return net;
 771                 }
 772                 i++;
 773                 list = list->next;
 774         }
 775
 776         return NULL;
 777 }
 778
 779 ircserver *
 780 servlist_server_add (ircnet *net, char *name)
 781 {
 782         ircserver *serv;
 783
 784         serv = malloc (sizeof (ircserver));
 785         memset (serv, 0, sizeof (ircserver));
 786         serv->hostname = strdup (name);
 787
 788         net->servlist = g_slist_append (net->servlist, serv);
 789
 790         return serv;
 791 }
 792
 793 void
 794 servlist_server_remove (ircnet *net, ircserver *serv)
 795 {
 796         free (serv->hostname);
 797         free (serv);
 798         net->servlist = g_slist_remove (net->servlist, serv);
 799 }
 800
 801 static void
 802 servlist_server_remove_all (ircnet *net)
 803 {
 804         ircserver *serv;
 805
 806         while (net->servlist)
 807         {
 808                 serv = net->servlist->data;
 809                 servlist_server_remove (net, serv);
 810         }
 811 }
 812
 813 static void
 814 free_and_clear (char *str)
 815 {
 816         if (str)
 817         {
 818                 char *orig = str;
 819                 while (*str)
 820                         *str++ = 0;
 821                 free (orig);
 822         }
 823 }
 824
 825 /* executed on exit: Clear any password strings */
 826
 827 void
 828 servlist_cleanup (void)
 829 {
 830         GSList *list;
 831         ircnet *net;
 832
 833         for (list = network_list; list; list = list->next)
 834         {
 835                 net = list->data;
 836                 free_and_clear (net->pass);
 837         }
 838 }
 839
 840 void
 841 servlist_net_remove (ircnet *net)
 842 {
 843         GSList *list;
 844         server *serv;
 845
 846         servlist_server_remove_all (net);
 847         network_list = g_slist_remove (network_list, net);
 848
 849         if (net->nick)
 850                 free (net->nick);
 851         if (net->nick2)
 852                 free (net->nick2);
 853         if (net->user)
 854                 free (net->user);
 855         if (net->real)
 856                 free (net->real);
 857         free_and_clear (net->pass);
 858         if (net->autojoin)
 859                 free (net->autojoin);
 860         if (net->command)
 861                 free (net->command);
 862         if (net->comment)
 863                 free (net->comment);
 864         if (net->encoding)
 865                 free (net->encoding);
 866         free (net->name);
 867         free (net);
 868
 869         /* for safety */
 870         list = serv_list;
 871         while (list)
 872         {
 873                 serv = list->data;
 874                 if (serv->network == net)
 875                         serv->network = NULL;
 876                 list = list->next;
 877         }
 878 }
 879
 880 ircnet *
 881 servlist_net_add (char *name, char *comment, int prepend)
 882 {
 883         ircnet *net;
 884
 885         net = malloc (sizeof (ircnet));
 886         memset (net, 0, sizeof (ircnet));
 887         net->name = strdup (name);
 888 /*      net->comment = strdup (comment);*/
 889         net->flags = FLAG_CYCLE | FLAG_USE_GLOBAL | FLAG_USE_PROXY;
 890
 891         if (prepend)
 892                 network_list = g_slist_prepend (network_list, net);
 893         else
 894                 network_list = g_slist_append (network_list, net);
 895
 896         return net;
 897 }
 898
 899 static void
 900 servlist_load_defaults (void)
 901 {
 902         int i = 0, j = 0;
 903         ircnet *net = NULL;
 904
 905         while (1)
 906         {
 907                 if (def[i].network)
 908                 {
 909                         net = servlist_net_add (def[i].network, def[i].host, FALSE);
 910                         net->encoding = strdup ("UTF-8 (Unicode)");
 911                         if (def[i].channel)
 912                                 net->autojoin = strdup (def[i].channel);
 913                         if (def[i].charset)
 914                         {
 915                                 free (net->encoding);
 916                                 net->encoding = strdup (def[i].charset);
 917                         }
 918                         if (def[i].loginmode)
 919                         {
 920                                 net->logintype = def[i].loginmode;
 921                         }
 922                         if (g_str_hash (def[i].network) == 0x8e1b96f7)
 923                                 prefs.slist_select = j;
 924                         j++;
 925                 } else
 926                 {
 927                         servlist_server_add (net, def[i].host);
 928                         if (!def[i+1].host && !def[i+1].network)
 929                                 break;
 930                 }
 931                 i++;
 932         }
 933 }
 934
 935 static int
 936 servlist_load (void)
 937 {
 938         FILE *fp;
 939         char buf[2048];
 940         int len;
 941         char *tmp;
 942         ircnet *net = NULL;
 943
 944         fp = xchat_fopen_file ("servlist_.conf", "r", 0);
 945         if (!fp)
 946                 return FALSE;
 947
 948         while (fgets (buf, sizeof (buf) - 2, fp))
 949         {
 950                 len = strlen (buf);
 951                 buf[len] = 0;
 952                 buf[len-1] = 0; /* remove the trailing \n */
 953                 if (net)
 954                 {
 955                         switch (buf[0])
 956                         {
 957                         case 'I':
 958                                 net->nick = strdup (buf + 2);
 959                                 break;
 960                         case 'i':
 961                                 net->nick2 = strdup (buf + 2);
 962                                 break;
 963                         case 'U':
 964                                 net->user = strdup (buf + 2);
 965                                 break;
 966                         case 'R':
 967                                 net->real = strdup (buf + 2);
 968                                 break;
 969                         case 'P':
 970                                 net->pass = strdup (buf + 2);
 971                                 break;
 972                         case 'J':
 973                                 net->autojoin = strdup (buf + 2);
 974                                 break;
 975                         case 'C':
 976                                 if (net->command)
 977                                 {
 978                                         /* concat extra commands with a \n separator */
 979                                         tmp = net->command;
 980                                         net->command = malloc (strlen (tmp) + strlen (buf + 2) + 2);
 981                                         strcpy (net->command, tmp);
 982                                         strcat (net->command, "\n");
 983                                         strcat (net->command, buf + 2);
 984                                         free (tmp);
 985                                 } else
 986                                         net->command = strdup (buf + 2);
 987                                 break;
 988                         case 'F':
 989                                 net->flags = atoi (buf + 2);
 990                                 break;
 991                         case 'D':
 992                                 net->selected = atoi (buf + 2);
 993                                 break;
 994                         case 'E':
 995                                 net->encoding = strdup (buf + 2);
 996                                 break;
 997                         case 'S':       /* new server/hostname for this network */
 998                                 servlist_server_add (net, buf + 2);
 999                                 break;
1000                         case 'L':
1001                                 net->logintype = atoi (buf + 2);
1002                                 break;
1003                         }
1004                 }
1005                 if (buf[0] == 'N')
1006                         net = servlist_net_add (buf + 2, /* comment */ NULL, FALSE);
1007         }
1008         fclose (fp);
1009
1010         return TRUE;
1011 }
1012
1013 void
1014 servlist_init (void)
1015 {
1016         if (!network_list)
1017                 if (!servlist_load ())
1018                         servlist_load_defaults ();
1019 }
1020
1021 /* check if a charset is known by Iconv */
1022 int
1023 servlist_check_encoding (char *charset)
1024 {
1025         GIConv gic;
1026         char *c;
1027
1028         c = strchr (charset, ' ');
1029         if (c)
1030                 c[0] = 0;
1031
1032         if (!strcasecmp (charset, "IRC")) /* special case */
1033         {
1034                 if (c)
1035                         c[0] = ' ';
1036                 return TRUE;
1037         }
1038
1039         gic = g_iconv_open (charset, "UTF-8");
1040
1041         if (c)
1042                 c[0] = ' ';
1043
1044         if (gic != (GIConv)-1)
1045         {
1046                 g_iconv_close (gic);
1047                 return TRUE;
1048         }
1049
1050         return FALSE;
1051 }
1052
1053 static int
1054 servlist_write_ccmd (char *str, void *fp)
1055 {
1056         return fprintf (fp, "C=%s\n", (str[0] == '/') ? str + 1 : str);
1057 }
1058
1059
1060 int
1061 servlist_save (void)
1062 {
1063         FILE *fp;
1064         char buf[256];
1065         ircnet *net;
1066         ircserver *serv;
1067         GSList *list;
1068         GSList *hlist;
1069         int first = FALSE;
1070
1071         snprintf (buf, sizeof (buf), "%s/servlist_.conf", get_xdir_fs ());
1072         if (access (buf, F_OK) != 0)
1073                 first = TRUE;
1074
1075         fp = xchat_fopen_file ("servlist_.conf", "w", 0);
1076         if (!fp)
1077                 return FALSE;
1078
1079         if (first)
1080                 chmod (buf, 0600);
1081
1082         fprintf (fp, "v="PACKAGE_VERSION"\n\n");
1083
1084         list = network_list;
1085         while (list)
1086         {
1087                 net = list->data;
1088
1089                 fprintf (fp, "N=%s\n", net->name);
1090                 if (net->nick)
1091                         fprintf (fp, "I=%s\n", net->nick);
1092                 if (net->nick2)
1093                         fprintf (fp, "i=%s\n", net->nick2);
1094                 if (net->user)
1095                         fprintf (fp, "U=%s\n", net->user);
1096                 if (net->real)
1097                         fprintf (fp, "R=%s\n", net->real);
1098                 if (net->pass)
1099                         fprintf (fp, "P=%s\n", net->pass);
1100                 if (net->autojoin)
1101                         fprintf (fp, "J=%s\n", net->autojoin);
1102                 if (net->logintype)
1103                         fprintf (fp, "L=%d\n", net->logintype);
1104                 if (net->encoding && strcasecmp (net->encoding, "System") &&
1105                          strcasecmp (net->encoding, "System default"))
1106                 {
1107                         fprintf (fp, "E=%s\n", net->encoding);
1108                         if (!servlist_check_encoding (net->encoding))
1109                         {
1110                                 snprintf (buf, sizeof (buf), _("Warning: \"%s\" character set is unknown. No conversion will be applied for network %s."),
1111                                                          net->encoding, net->name);
1112                                 fe_message (buf, FE_MSG_WARN);
1113                         }
1114                 }
1115
1116                 if (net->command)
1117                         token_foreach (net->command, '\n', servlist_write_ccmd, fp);
1118
1119                 fprintf (fp, "F=%d\nD=%d\n", net->flags, net->selected);
1120
1121                 hlist = net->servlist;
1122                 while (hlist)
1123                 {
1124                         serv = hlist->data;
1125                         fprintf (fp, "S=%s\n", serv->hostname);
1126                         hlist = hlist->next;
1127                 }
1128
1129                 if (fprintf (fp, "\n") < 1)
1130                 {
1131                         fclose (fp);
1132                         return FALSE;
1133                 }
1134
1135                 list = list->next;
1136         }
1137
1138         fclose (fp);
1139         return TRUE;
1140 }
1141
1142 static void
1143 joinlist_free1 (GSList *list)
1144 {
1145         GSList *head = list;
1146
1147         for (; list; list = list->next)
1148                 g_free (list->data);
1149         g_slist_free (head);
1150 }
1151
1152 void
1153 joinlist_free (GSList *channels, GSList *keys)
1154 {
1155         joinlist_free1 (channels);
1156         joinlist_free1 (keys);
1157 }
1158
1159 gboolean
1160 joinlist_is_in_list (server *serv, char *channel)
1161 {
1162         GSList *channels, *keys;
1163         GSList *list;
1164
1165         if (!serv->network || !((ircnet *)serv->network)->autojoin)
1166                 return FALSE;
1167
1168         joinlist_split (((ircnet *)serv->network)->autojoin, &channels, &keys);
1169
1170         for (list = channels; list; list = list->next)
1171         {
1172                 if (serv->p_cmp (list->data, channel) == 0)
1173                         return TRUE;
1174         }
1175
1176         joinlist_free (channels, keys);
1177
1178         return FALSE;
1179 }
1180
1181 gchar *
1182 joinlist_merge (GSList *channels, GSList *keys)
1183 {
1184         GString *out = g_string_new (NULL);
1185         GSList *list;
1186         int i, j;
1187
1188         for (; channels; channels = channels->next)
1189         {
1190                 g_string_append (out, channels->data);
1191
1192                 if (channels->next)
1193                         g_string_append_c (out, ',');
1194         }
1195
1196         /* count number of REAL keys */
1197         for (i = 0, list = keys; list; list = list->next)
1198                 if (list->data)
1199                         i++;
1200
1201         if (i > 0)
1202         {
1203                 g_string_append_c (out, ' ');
1204
1205                 for (j = 0; keys; keys = keys->next)
1206                 {
1207                         if (keys->data)
1208                         {
1209                                 g_string_append (out, keys->data);
1210                                 j++;
1211                                 if (j == i)
1212                                         break;
1213                         }
1214
1215                         if (keys->next)
1216                                 g_string_append_c (out, ',');
1217                 }
1218         }
1219
1220         return g_string_free (out, FALSE);
1221 }
1222
1223 void
1224 joinlist_split (char *autojoin, GSList **channels, GSList **keys)
1225 {
1226         char *parta, *partb;
1227         char *chan, *key;
1228         int len;
1229
1230         *channels = NULL;
1231         *keys = NULL;
1232
1233         /* after the first space, the keys begin */
1234         parta = autojoin;
1235         partb = strchr (autojoin, ' ');
1236         if (partb)
1237                 partb++;
1238
1239         while (1)
1240         {
1241                 chan = parta;
1242                 key = partb;
1243
1244                 if (1)
1245                 {
1246                         while (parta[0] != 0 && parta[0] != ',' && parta[0] != ' ')
1247                         {
1248                                 parta++;
1249                         }
1250                 }
1251
1252                 if (partb)
1253                 {
1254                         while (partb[0] != 0 && partb[0] != ',' && partb[0] != ' ')
1255                         {
1256                                 partb++;
1257                         }
1258                 }
1259
1260                 len = parta - chan;
1261                 if (len < 1)
1262                         break;
1263                 *channels = g_slist_append (*channels, g_strndup (chan, len));
1264
1265                 len = partb - key;
1266                 *keys = g_slist_append (*keys, len ? g_strndup (key, len) : NULL);
1267
1268                 if (parta[0] == ' ' || parta[0] == 0)
1269                         break;
1270                 parta++;
1271
1272                 if (partb)
1273                 {
1274                         if (partb[0] == 0 || partb[0] == ' ')
1275                                 partb = NULL;   /* no more keys, but maybe more channels? */
1276                         else
1277                                 partb++;
1278                 }
1279         }
1280
1281 #if 0
1282         GSList *lista, *listb;
1283         int i;
1284
1285         printf("-----\n");
1286         i = 0;
1287         lista = *channels;
1288         listb = *keys;
1289         while (lista)
1290         {
1291                 printf("%d. |%s| |%s|\n", i, lista->data, listb->data);
1292                 i++;
1293                 lista = lista->next;
1294                 listb = listb->next;
1295         }
1296         printf("-----\n\n");
1297 #endif
1298 }
1299
1300