apps/irssi/src/silc/core/silc-queries.c

   1 /*
   2
   3   silc-queries.c
   4
   5   Author: Pekka Riikonen <priikone@silcnet.org>
   6
   7   Copyright (C) 2002 - 2007 Pekka Riikonen
   8
   9   This program is free software; you can redistribute it and/or modify
  10   it under the terms of the GNU General Public License as published by
  11   the Free Software Foundation; version 2 of the License.
  12
  13   This program is distributed in the hope that it will be useful,
  14   but WITHOUT ANY WARRANTY; without even the implied warranty of
  15   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16   GNU General Public License for more details.
  17
  18 */
  19
  20 #include "module.h"
  21 #include "signals.h"
  22 #include "misc.h"
  23 #include "silc-queries.h"
  24 #include "settings.h"
  25 #include "levels.h"
  26 #include "modules.h"
  27 #include "commands.h"
  28 #include "misc.h"
  29
  30 #include "fe-common/core/printtext.h"
  31 #include "fe-common/core/fe-channels.h"
  32 #include "fe-common/core/keyboard.h"
  33 #include "fe-common/silc/module-formats.h"
  34
  35 static void silc_query_attributes_print_final(bool success, void *context);
  36 static void silc_query_attributes_accept(const char *line, void *context);
  37
  38 QUERY_REC *silc_query_create(const char *server_tag,
  39                              const char *nick, int automatic)
  40 {
  41   QUERY_REC *rec;
  42
  43   g_return_val_if_fail(nick != NULL, NULL);
  44
  45   rec = g_new0(QUERY_REC, 1);
  46   rec->chat_type = SILC_PROTOCOL;
  47   rec->name = g_strdup(nick);
  48   rec->server_tag = g_strdup(server_tag);
  49   query_init(rec, automatic);
  50   return rec;
  51 }
  52
  53 void silc_queries_init(void)
  54 {
  55 }
  56
  57 void silc_queries_deinit(void)
  58 {
  59 }
  60
  61 /* ATTR command */
  62
  63 void command_attr(const char *data, SILC_SERVER_REC *server,
  64                   WI_ITEM_REC *item)
  65 {
  66   char *tmp;
  67   unsigned char **argv;
  68   SilcUInt32 argc;
  69   SilcUInt32 *argv_lens, *argv_types;
  70   const char *sv;
  71   bool allowed;
  72
  73   /* Now parse all arguments */
  74   tmp = g_strconcat("ATTR", " ", data, NULL);
  75   silc_parse_command_line(tmp, &argv, &argv_lens, &argv_types, &argc, 3);
  76   g_free(tmp);
  77
  78   if (argc == 1) {
  79     /* Show all attributes */
  80     printformat_module("fe-common/silc", server, NULL,
  81                        MSGLEVEL_CRAP, SILCTXT_ATTR_HEADER);
  82
  83     allowed = settings_get_bool("attr_allow");
  84     printformat_module("fe-common/silc", server, NULL,
  85                        MSGLEVEL_CRAP, SILCTXT_ATTR_ALLOW,
  86                        allowed ? "Yes" : "No");
  87
  88     sv = settings_get_str("attr_vcard");
  89     if (sv && *sv)
  90       printformat_module("fe-common/silc", server, NULL,
  91                          MSGLEVEL_CRAP, SILCTXT_ATTR_VCARD_FILE, sv);
  92
  93     sv = settings_get_str("attr_services");
  94     if (sv && *sv)
  95       printformat_module("fe-common/silc", server, NULL,
  96                          MSGLEVEL_CRAP, SILCTXT_ATTR_SERVICES, sv);
  97
  98     sv = settings_get_str("attr_status_mood");
  99     if (sv && *sv)
 100       printformat_module("fe-common/silc", server, NULL,
 101                          MSGLEVEL_CRAP, SILCTXT_ATTR_STATUS_MOOD, sv);
 102
 103     sv = settings_get_str("attr_status_text");
 104     if (sv && *sv)
 105       printformat_module("fe-common/silc", server, NULL,
 106                          MSGLEVEL_CRAP, SILCTXT_ATTR_STATUS_TEXT, sv);
 107
 108     sv = settings_get_str("attr_status_message");
 109     if (sv && *sv)
 110       printformat_module("fe-common/silc", server, NULL,
 111                          MSGLEVEL_CRAP, SILCTXT_ATTR_STATUS_MESSAGE_FILE,
 112                          sv);
 113
 114     sv = settings_get_str("attr_preferred_language");
 115     if (sv && *sv)
 116       printformat_module("fe-common/silc", server, NULL,
 117                          MSGLEVEL_CRAP, SILCTXT_ATTR_PREFERRED_LANGUAGE,
 118                          sv);
 119
 120     sv = settings_get_str("attr_preferred_contact");
 121     if (sv && *sv)
 122       printformat_module("fe-common/silc", server, NULL,
 123                          MSGLEVEL_CRAP, SILCTXT_ATTR_PREFERRED_CONTACT,
 124                          sv);
 125
 126     sv = settings_get_str("attr_geolocation");
 127     if (sv && *sv)
 128       printformat_module("fe-common/silc", server, NULL,
 129                          MSGLEVEL_CRAP, SILCTXT_ATTR_GEOLOCATION,
 130                          sv);
 131
 132     sv = settings_get_str("attr_device_info");
 133     if (sv && *sv)
 134       printformat_module("fe-common/silc", server, NULL,
 135                          MSGLEVEL_CRAP, SILCTXT_ATTR_DEVICE_INFO,
 136                          sv);
 137
 138     sv = settings_get_str("attr_public_keys");
 139     if (sv && *sv)
 140       printformat_module("fe-common/silc", server, NULL,
 141                          MSGLEVEL_CRAP, SILCTXT_ATTR_PUBLIC_KEYS,
 142                          sv);
 143
 144     allowed = settings_get_bool("attr_timezone");
 145     printformat_module("fe-common/silc", server, NULL,
 146                        MSGLEVEL_CRAP, SILCTXT_ATTR_TIMEZONE_ALLOW,
 147                        allowed ? "Yes" : "No");
 148
 149     printformat_module("fe-common/silc", server, NULL,
 150                        MSGLEVEL_CRAP, SILCTXT_ATTR_FOOTER);
 151     return;
 152   }
 153
 154   if (argc < 3)
 155     cmd_return_error(CMDERR_NOT_ENOUGH_PARAMS);
 156
 157   if (!strcasecmp(argv[1], "-del")) {
 158     /* Delete attribute */
 159     if (!strcasecmp(argv[2], "vcard")) {
 160       silc_client_attribute_del(silc_client, server->conn,
 161                                 SILC_ATTRIBUTE_USER_INFO, NULL);
 162       settings_set_str("attr_vcard", "");
 163     } else if (!strcasecmp(argv[2], "services")) {
 164       silc_client_attribute_del(silc_client, server->conn,
 165                                 SILC_ATTRIBUTE_SERVICE, NULL);
 166       settings_set_str("attr_services", argv[2]);
 167     } else if (!strcasecmp(argv[2], "status_mood")) {
 168       silc_client_attribute_del(silc_client, server->conn,
 169                                 SILC_ATTRIBUTE_STATUS_MOOD, NULL);
 170       settings_set_str("attr_status_mood", "");
 171     } else if (!strcasecmp(argv[2], "status_text")) {
 172       silc_client_attribute_del(silc_client, server->conn,
 173                                 SILC_ATTRIBUTE_STATUS_FREETEXT, NULL);
 174       settings_set_str("attr_status_text", "");
 175     } else if (!strcasecmp(argv[2], "status_message")) {
 176       silc_client_attribute_del(silc_client, server->conn,
 177                                 SILC_ATTRIBUTE_STATUS_MESSAGE, NULL);
 178       settings_set_str("attr_status_message", "");
 179     } else if (!strcasecmp(argv[2], "preferred_language")) {
 180       silc_client_attribute_del(silc_client, server->conn,
 181                                 SILC_ATTRIBUTE_PREFERRED_LANGUAGE, NULL);
 182       settings_set_str("attr_preferred_language", "");
 183     } else if (!strcasecmp(argv[2], "preferred_contact")) {
 184       silc_client_attribute_del(silc_client, server->conn,
 185                                 SILC_ATTRIBUTE_PREFERRED_CONTACT, NULL);
 186       settings_set_str("attr_preferred_contact", "");
 187     } else if (!strcasecmp(argv[2], "timezone")) {
 188       return;
 189     } else if (!strcasecmp(argv[2], "geolocation")) {
 190       silc_client_attribute_del(silc_client, server->conn,
 191                                 SILC_ATTRIBUTE_GEOLOCATION, NULL);
 192       settings_set_str("attr_geolocation", "");
 193     } else if (!strcasecmp(argv[2], "device_info")) {
 194       silc_client_attribute_del(silc_client, server->conn,
 195                                 SILC_ATTRIBUTE_DEVICE_INFO, NULL);
 196       settings_set_str("attr_device_info", "");
 197     } else if (!strcasecmp(argv[2], "public_keys")) {
 198       silc_client_attribute_del(silc_client, server->conn,
 199                                 SILC_ATTRIBUTE_USER_PUBLIC_KEY, NULL);
 200       settings_set_str("attr_public_keys", "");
 201     } else {
 202       cmd_return_error(CMDERR_NOT_ENOUGH_PARAMS);
 203     }
 204     return;
 205   }
 206
 207   /* Add new attribute */
 208   if (!strcasecmp(argv[1], "allow")) {
 209     allowed = !strcasecmp(argv[2], "ON") || !strcasecmp(argv[2], "YES");
 210     settings_set_bool("attr_allow", allowed);
 211   } else if (!strcasecmp(argv[1], "vcard")) {
 212     settings_set_str("attr_vcard", argv[2]);
 213   } else if (!strcasecmp(argv[1], "services")) {
 214     settings_set_str("attr_services", argv[2]);
 215   } else if (!strcasecmp(argv[1], "status_mood")) {
 216     settings_set_str("attr_status_mood", argv[2]);
 217   } else if (!strcasecmp(argv[1], "status_text")) {
 218     settings_set_str("attr_status_text", argv[2]);
 219   } else if (!strcasecmp(argv[1], "status_message")) {
 220     settings_set_str("attr_status_message", argv[2]);
 221   } else if (!strcasecmp(argv[1], "preferred_language")) {
 222     settings_set_str("attr_preferred_language", argv[2]);
 223   } else if (!strcasecmp(argv[1], "preferred_contact")) {
 224     settings_set_str("attr_preferred_contact", argv[2]);
 225   } else if (!strcasecmp(argv[1], "timezone")) {
 226     allowed = !strcasecmp(argv[2], "ON") || !strcasecmp(argv[2], "YES");
 227     settings_set_bool("attr_timezone", allowed);
 228   } else if (!strcasecmp(argv[1], "geolocation")) {
 229     settings_set_str("attr_geolocation", argv[2]);
 230   } else if (!strcasecmp(argv[1], "device_info")) {
 231     settings_set_str("attr_device_info", argv[2]);
 232   } else if (!strcasecmp(argv[1], "public_keys")) {
 233     settings_set_str("attr_public_keys", argv[2]);
 234   } else {
 235     cmd_return_error(CMDERR_NOT_ENOUGH_PARAMS);
 236   }
 237
 238   silc_query_attributes_default(silc_client, server->conn);
 239 }
 240
 241 /* Put default attributes to client library */
 242
 243 void silc_query_attributes_default(SilcClient client,
 244                                    SilcClientConnection conn)
 245 {
 246   char *tmp, **list, **entry;
 247   const char *sv;
 248   SilcUInt32 tmp_len, mask;
 249   SilcAttributeObjService service;
 250   SilcMime mime;
 251   SilcAttributeObjGeo geo;
 252   SilcAttributeObjDevice dev;
 253   SilcAttributeObjPk pk;
 254   SilcVCardStruct vcard;
 255   bool allowed;
 256
 257   memset(&service, 0, sizeof(service));
 258   memset(&geo, 0, sizeof(geo));
 259   memset(&dev, 0, sizeof(dev));
 260   memset(&pk, 0, sizeof(pk));
 261   memset(&vcard, 0, sizeof(vcard));
 262
 263   allowed = settings_get_bool("attr_allow");
 264   if (!allowed) {
 265     silc_client_attribute_del(silc_client, conn,
 266                               SILC_ATTRIBUTE_USER_INFO, NULL);
 267     silc_client_attribute_del(silc_client, conn,
 268                               SILC_ATTRIBUTE_SERVICE, NULL);
 269     silc_client_attribute_del(silc_client, conn,
 270                               SILC_ATTRIBUTE_STATUS_MOOD, NULL);
 271     silc_client_attribute_del(silc_client, conn,
 272                               SILC_ATTRIBUTE_STATUS_FREETEXT, NULL);
 273     silc_client_attribute_del(silc_client, conn,
 274                               SILC_ATTRIBUTE_STATUS_MESSAGE, NULL);
 275     silc_client_attribute_del(silc_client, conn,
 276                               SILC_ATTRIBUTE_PREFERRED_LANGUAGE, NULL);
 277     silc_client_attribute_del(silc_client, conn,
 278                               SILC_ATTRIBUTE_PREFERRED_CONTACT, NULL);
 279     silc_client_attribute_del(silc_client, conn,
 280                               SILC_ATTRIBUTE_TIMEZONE, NULL);
 281     silc_client_attribute_del(silc_client, conn,
 282                               SILC_ATTRIBUTE_GEOLOCATION, NULL);
 283     silc_client_attribute_del(silc_client, conn,
 284                               SILC_ATTRIBUTE_DEVICE_INFO, NULL);
 285     silc_client_attribute_del(silc_client, conn,
 286                               SILC_ATTRIBUTE_USER_PUBLIC_KEY, NULL);
 287     return;
 288   }
 289
 290   sv = settings_get_str("attr_vcard");
 291   if (sv && *sv) {
 292     /* Put USER_INFO */
 293     silc_client_attribute_del(silc_client, conn,
 294                               SILC_ATTRIBUTE_USER_INFO, NULL);
 295     tmp = silc_file_readfile(sv, &tmp_len);
 296     if (tmp) {
 297       tmp[tmp_len] = 0;
 298       if (silc_vcard_decode(tmp, tmp_len, &vcard))
 299         silc_client_attribute_add(silc_client, conn,
 300                                   SILC_ATTRIBUTE_USER_INFO, (void *)&vcard,
 301                                   sizeof(vcard));
 302     }
 303     silc_vcard_free(&vcard);
 304     silc_free(tmp);
 305   }
 306
 307   sv = settings_get_str("attr_services");
 308   if (sv && *sv) {
 309     /* Put SERVICE */
 310     silc_client_attribute_del(silc_client, conn,
 311                               SILC_ATTRIBUTE_SERVICE, NULL);
 312     list = g_strsplit(sv, " ", -1);
 313     for (entry = list; *entry != NULL; entry++) {
 314       if (!strchr(*entry, ':'))
 315         continue;
 316       tmp = strchr(*entry, ':') + 1;
 317       if (!tmp || !(*tmp))
 318         continue;
 319       memset(&service, 0, sizeof(service));
 320       service.port = atoi(tmp);
 321       *strchr(*entry, ':') = '\0';
 322       silc_strncat(service.address, sizeof(service.address), *entry,
 323                    strlen(*entry));
 324       service.status = TRUE;
 325       service.idle = 0;
 326       silc_client_attribute_add(silc_client, conn,
 327                                 SILC_ATTRIBUTE_SERVICE, &service,
 328                                 sizeof(service));
 329     }
 330     g_strfreev(list);
 331   }
 332
 333   sv = settings_get_str("attr_status_mood");
 334   if (sv && *sv) {
 335     /* Put STATUS_MOOD */
 336     silc_client_attribute_del(silc_client, conn,
 337                               SILC_ATTRIBUTE_STATUS_MOOD, NULL);
 338     mask = 0;
 339     list = g_strsplit(sv, " ", -1);
 340     for (entry = list; *entry != NULL; entry++) {
 341       if (!strcasecmp(*entry, "NORMAL"))
 342         mask |= SILC_ATTRIBUTE_MOOD_NORMAL;
 343       if (!strcasecmp(*entry, "HAPPY"))
 344         mask |= SILC_ATTRIBUTE_MOOD_HAPPY;
 345       if (!strcasecmp(*entry, "SAD"))
 346         mask |= SILC_ATTRIBUTE_MOOD_SAD;
 347       if (!strcasecmp(*entry, "ANGRY"))
 348         mask |= SILC_ATTRIBUTE_MOOD_ANGRY;
 349       if (!strcasecmp(*entry, "JEALOUS"))
 350         mask |= SILC_ATTRIBUTE_MOOD_JEALOUS;
 351       if (!strcasecmp(*entry, "ASHAMED"))
 352         mask |= SILC_ATTRIBUTE_MOOD_ASHAMED;
 353       if (!strcasecmp(*entry, "INVINCIBLE"))
 354         mask |= SILC_ATTRIBUTE_MOOD_INVINCIBLE;
 355       if (!strcasecmp(*entry, "INLOVE"))
 356         mask |= SILC_ATTRIBUTE_MOOD_INLOVE;
 357       if (!strcasecmp(*entry, "SLEEPY"))
 358         mask |= SILC_ATTRIBUTE_MOOD_SLEEPY;
 359       if (!strcasecmp(*entry, "BORED"))
 360         mask |= SILC_ATTRIBUTE_MOOD_BORED;
 361       if (!strcasecmp(*entry, "EXCITED"))
 362         mask |= SILC_ATTRIBUTE_MOOD_EXCITED;
 363       if (!strcasecmp(*entry, "ANXIOUS"))
 364         mask |= SILC_ATTRIBUTE_MOOD_ANXIOUS;
 365     }
 366     silc_client_attribute_add(silc_client, conn,
 367                               SILC_ATTRIBUTE_STATUS_MOOD, (void *)mask,
 368                               sizeof(SilcUInt32));
 369     g_strfreev(list);
 370   }
 371
 372   sv = settings_get_str("attr_status_text");
 373   if (sv && *sv) {
 374     /* Put STATUS_TEXT */
 375     silc_client_attribute_del(silc_client, conn,
 376                               SILC_ATTRIBUTE_STATUS_FREETEXT, NULL);
 377     silc_client_attribute_add(silc_client, conn,
 378                               SILC_ATTRIBUTE_STATUS_FREETEXT, (void *)sv,
 379                               strlen(sv));
 380   }
 381
 382   sv = settings_get_str("attr_status_message");
 383   if (sv && *sv) {
 384     /* Put STATUS_MESSAGE */
 385     silc_client_attribute_del(silc_client, conn,
 386                               SILC_ATTRIBUTE_STATUS_MESSAGE, NULL);
 387     tmp = silc_file_readfile(sv, &tmp_len);
 388     if (tmp) {
 389       mime = silc_mime_decode(NULL, tmp, tmp_len);
 390       if (mime)
 391         silc_client_attribute_add(silc_client, conn,
 392                                   SILC_ATTRIBUTE_STATUS_MESSAGE, mime,
 393                                   sizeof(*mime));
 394     }
 395     silc_free(tmp);
 396   }
 397
 398   sv = settings_get_str("attr_preferred_language");
 399   if (sv && *sv) {
 400     /* Put PREFERRED_LANGUAGE */
 401     silc_client_attribute_del(silc_client, conn,
 402                               SILC_ATTRIBUTE_PREFERRED_LANGUAGE, NULL);
 403     list = g_strsplit(sv, " ", -1);
 404     for (entry = list; *entry != NULL; entry++) {
 405       silc_client_attribute_add(silc_client, conn,
 406                                 SILC_ATTRIBUTE_PREFERRED_LANGUAGE, *entry,
 407                                 strlen(*entry));
 408     }
 409     g_strfreev(list);
 410   }
 411
 412   sv = settings_get_str("attr_preferred_contact");
 413   if (sv && *sv) {
 414     /* Put PREFERRED_CONTACT */
 415     silc_client_attribute_del(silc_client, conn,
 416                               SILC_ATTRIBUTE_PREFERRED_CONTACT, NULL);
 417     mask = 0;
 418     list = g_strsplit(sv, " ", -1);
 419     for (entry = list; *entry != NULL; entry++) {
 420       if (!strcasecmp(*entry, "NONE"))
 421         mask = 0;
 422       if (!strcasecmp(*entry, "EMAIL"))
 423         mask |= SILC_ATTRIBUTE_CONTACT_EMAIL;
 424       if (!strcasecmp(*entry, "CALL"))
 425         mask |= SILC_ATTRIBUTE_CONTACT_CALL;
 426       if (!strcasecmp(*entry, "PAGE"))
 427         mask |= SILC_ATTRIBUTE_CONTACT_PAGE;
 428       if (!strcasecmp(*entry, "SMS"))
 429         mask |= SILC_ATTRIBUTE_CONTACT_SMS;
 430       if (!strcasecmp(*entry, "MMS"))
 431         mask |= SILC_ATTRIBUTE_CONTACT_MMS;
 432       if (!strcasecmp(*entry, "CHAT"))
 433         mask |= SILC_ATTRIBUTE_CONTACT_CHAT;
 434       if (!strcasecmp(*entry, "VIDEO"))
 435         mask |= SILC_ATTRIBUTE_CONTACT_VIDEO;
 436     }
 437     silc_client_attribute_add(silc_client, conn,
 438                               SILC_ATTRIBUTE_PREFERRED_CONTACT, (void *)mask,
 439                               sizeof(SilcUInt32));
 440     g_strfreev(list);
 441   }
 442
 443   /* Put TIMEZONE */
 444   allowed = settings_get_bool("attr_timezone");
 445   silc_client_attribute_del(silc_client, conn,
 446                             SILC_ATTRIBUTE_TIMEZONE, NULL);
 447   if (allowed)
 448     silc_client_attribute_add(silc_client, conn,
 449                               SILC_ATTRIBUTE_TIMEZONE, "foo", 3);
 450
 451   sv = settings_get_str("attr_geolocation");
 452   if (sv && *sv) {
 453     /* Put GEOLOCATION */
 454     silc_client_attribute_del(silc_client, conn,
 455                               SILC_ATTRIBUTE_GEOLOCATION, NULL);
 456     list = g_strsplit(sv, ":", -1);
 457     for (entry = list; *entry != NULL; entry++) {
 458       if (!geo.longitude) {
 459         geo.longitude = *entry;
 460         continue;
 461       }
 462       if (!geo.latitude) {
 463         geo.latitude = *entry;
 464         continue;
 465       }
 466       if (!geo.altitude) {
 467         geo.altitude = *entry;
 468         continue;
 469       }
 470       if (!geo.accuracy) {
 471         geo.accuracy = *entry;
 472         continue;
 473       }
 474     }
 475     silc_client_attribute_add(silc_client, conn,
 476                               SILC_ATTRIBUTE_GEOLOCATION, &geo,
 477                               sizeof(geo));
 478     g_strfreev(list);
 479   }
 480
 481   sv = settings_get_str("attr_device_info");
 482   if (sv && *sv) {
 483     /* Put DEVICE_INFO */
 484     silc_client_attribute_del(silc_client, conn,
 485                               SILC_ATTRIBUTE_DEVICE_INFO, NULL);
 486     allowed = FALSE;
 487     list = g_strsplit(sv, ":", -1);
 488     for (entry = list; *entry != NULL; entry++) {
 489       if (!allowed) {
 490         allowed = TRUE;
 491         if (!strcasecmp(*entry, "COMPUTER"))
 492           dev.type = SILC_ATTRIBUTE_DEVICE_COMPUTER;
 493         if (!strcasecmp(*entry, "MOBILE_PHONE"))
 494           dev.type = SILC_ATTRIBUTE_DEVICE_MOBILE_PHONE;
 495         if (!strcasecmp(sv, "PDA"))
 496           dev.type = SILC_ATTRIBUTE_DEVICE_PDA;
 497         if (!strcasecmp(sv, "TERMINAL"))
 498           dev.type = SILC_ATTRIBUTE_DEVICE_TERMINAL;
 499         continue;
 500       }
 501       if (!dev.manufacturer) {
 502         dev.manufacturer = *entry;
 503         continue;
 504       }
 505       if (!dev.version) {
 506         dev.version = *entry;
 507         continue;
 508       }
 509       if (!dev.model) {
 510         dev.model = *entry;
 511         continue;
 512       }
 513       if (!dev.language) {
 514         dev.language = *entry;
 515         continue;
 516       }
 517     }
 518     silc_client_attribute_add(silc_client, conn,
 519                               SILC_ATTRIBUTE_DEVICE_INFO, &dev,
 520                               sizeof(dev));
 521     g_strfreev(list);
 522   }
 523
 524   sv = settings_get_str("attr_public_keys");
 525   if (sv && *sv) {
 526     /* Put USER_PUBLIC_KEY */
 527     silc_client_attribute_del(silc_client, conn,
 528                               SILC_ATTRIBUTE_USER_PUBLIC_KEY, NULL);
 529     list = g_strsplit(sv, " ", -1);
 530     for (entry = list; *entry != NULL; entry++) {
 531       if (!strncasecmp(*entry, "silc-rsa:", 8)) {
 532         tmp = silc_file_readfile((*entry) + 8, &tmp_len);
 533         if (tmp) {
 534           tmp[tmp_len] = 0;
 535           pk.type = "silc-rsa";
 536           pk.data = tmp;
 537           pk.data_len = tmp_len;
 538           silc_client_attribute_add(silc_client, conn,
 539                                     SILC_ATTRIBUTE_USER_PUBLIC_KEY, &pk,
 540                                     sizeof(pk));
 541         }
 542         silc_free(tmp);
 543       } else {
 544         silc_say_error("Unsupported public key type '%s'", *entry);
 545       }
 546     }
 547     g_strfreev(list);
 548   }
 549 }
 550
 551 typedef struct {
 552   SilcClient client;
 553   SILC_SERVER_REC *server;
 554   char *name;
 555   SilcAttributeObjPk userpk;
 556   SilcPublicKey public_key;
 557   SilcVCardStruct vcard;
 558   SilcMime message;
 559   SilcMime extension;
 560   bool nopk;
 561 } *AttrVerify;
 562
 563 void silc_query_attributes_print(SILC_SERVER_REC *server,
 564                                  SilcClient client,
 565                                  SilcClientConnection conn,
 566                                  SilcDList attrs,
 567                                  SilcClientEntry client_entry)
 568 {
 569   SilcAttributePayload attr;
 570   SilcAttribute attribute;
 571   char tmp[512];
 572   SilcAttributeObjPk serverpk, usersign, serversign;
 573   AttrVerify verify;
 574
 575   printformat_module("fe-common/silc", server, NULL,
 576                      MSGLEVEL_CRAP, SILCTXT_ATTR_HEADER);
 577
 578   memset(&serverpk, 0, sizeof(serverpk));
 579   memset(&usersign, 0, sizeof(usersign));
 580   memset(&serversign, 0, sizeof(serversign));
 581
 582   verify = silc_calloc(1, sizeof(*verify));
 583   if (!verify)
 584     return;
 585   verify->client = client;
 586   verify->server = server;
 587   verify->name = strdup(client_entry->nickname);
 588
 589   silc_dlist_start(attrs);
 590   while ((attr = silc_dlist_get(attrs)) != SILC_LIST_END) {
 591     attribute = silc_attribute_get_attribute(attr);
 592     memset(tmp, 0, sizeof(tmp));
 593
 594     switch (attribute) {
 595
 596     case SILC_ATTRIBUTE_USER_INFO:
 597       {
 598         if (!silc_attribute_get_object(attr, (void *)&verify->vcard,
 599                                        sizeof(verify->vcard)))
 600           continue;
 601         printformat_module("fe-common/silc", server, NULL,
 602                            MSGLEVEL_CRAP, SILCTXT_ATTR_VCARD_FILE,
 603                            "present");
 604       }
 605       break;
 606
 607     case SILC_ATTRIBUTE_SERVICE:
 608       {
 609         SilcAttributeObjService service;
 610         memset(&service, 0, sizeof(service));
 611         if (!silc_attribute_get_object(attr, (void *)&service,
 612                                        sizeof(service)))
 613           continue;
 614         snprintf(tmp, sizeof(tmp) - 1, "%s:%d (logged %s) idle %d seconds",
 615                  service.address, (unsigned int)service.port,
 616                  service.status ? "in" : "out",
 617                  (unsigned int)service.idle);
 618         printformat_module("fe-common/silc", server, NULL,
 619                            MSGLEVEL_CRAP, SILCTXT_ATTR_SERVICES, tmp);
 620       }
 621       break;
 622
 623     case SILC_ATTRIBUTE_STATUS_MOOD:
 624       {
 625         SilcUInt32 mask;
 626         if (!silc_attribute_get_object(attr, (void *)&mask, sizeof(mask)))
 627           continue;
 628         if (!mask)
 629           silc_strncat(tmp, sizeof(tmp), "NORMAL ", strlen(" NORMAL"));
 630         if (mask & SILC_ATTRIBUTE_MOOD_HAPPY)
 631           silc_strncat(tmp, sizeof(tmp), "HAPPY ", strlen(" HAPPY"));
 632         if (mask & SILC_ATTRIBUTE_MOOD_SAD)
 633           silc_strncat(tmp, sizeof(tmp), "SAD ", strlen(" SAD"));
 634         if (mask & SILC_ATTRIBUTE_MOOD_ANGRY)
 635           silc_strncat(tmp, sizeof(tmp), "ANGRY ", strlen(" ANGRY"));
 636         if (mask & SILC_ATTRIBUTE_MOOD_JEALOUS)
 637           silc_strncat(tmp, sizeof(tmp), "JEALOUS ", strlen(" JEALOUS"));
 638         if (mask & SILC_ATTRIBUTE_MOOD_ASHAMED)
 639           silc_strncat(tmp, sizeof(tmp), "ASHAMED ", strlen(" ASHAMED"));
 640         if (mask & SILC_ATTRIBUTE_MOOD_INVINCIBLE)
 641           silc_strncat(tmp, sizeof(tmp), "INVINCIBLE ", strlen(" INVINCIBLE"));
 642         if (mask & SILC_ATTRIBUTE_MOOD_INLOVE)
 643           silc_strncat(tmp, sizeof(tmp), "INLOVE ", strlen(" INLOVE"));
 644         if (mask & SILC_ATTRIBUTE_MOOD_SLEEPY)
 645           silc_strncat(tmp, sizeof(tmp), "SLEEPY ", strlen(" SLEEPY"));
 646         if (mask & SILC_ATTRIBUTE_MOOD_BORED)
 647           silc_strncat(tmp, sizeof(tmp), "BORED ", strlen(" BORED"));
 648         if (mask & SILC_ATTRIBUTE_MOOD_EXCITED)
 649           silc_strncat(tmp, sizeof(tmp), "EXCITED ", strlen(" EXCITED"));
 650         if (mask & SILC_ATTRIBUTE_MOOD_ANXIOUS)
 651           silc_strncat(tmp, sizeof(tmp), "ANXIOUS ", strlen(" ANXIOUS"));
 652         printformat_module("fe-common/silc", server, NULL,
 653                            MSGLEVEL_CRAP, SILCTXT_ATTR_STATUS_MOOD, tmp);
 654       }
 655       break;
 656
 657     case SILC_ATTRIBUTE_STATUS_FREETEXT:
 658       {
 659         if (!silc_attribute_get_object(attr, (void *)&tmp, sizeof(tmp) - 1))
 660           continue;
 661         printformat_module("fe-common/silc", server, NULL,
 662                            MSGLEVEL_CRAP, SILCTXT_ATTR_STATUS_TEXT, tmp);
 663       }
 664       break;
 665
 666     case SILC_ATTRIBUTE_STATUS_MESSAGE:
 667       {
 668         verify->message = silc_mime_alloc();
 669         if (!verify->message)
 670           continue;
 671         if (!silc_attribute_get_object(attr, (void *)verify->message,
 672                                        sizeof(*verify->message)))
 673           continue;
 674         printformat_module("fe-common/silc", server, NULL,
 675                            MSGLEVEL_CRAP, SILCTXT_ATTR_STATUS_MESSAGE,
 676                            "present");
 677       }
 678       break;
 679
 680     case SILC_ATTRIBUTE_PREFERRED_LANGUAGE:
 681       {
 682         if (!silc_attribute_get_object(attr, (void *)&tmp, sizeof(tmp) - 1))
 683           continue;
 684         printformat_module("fe-common/silc", server, NULL,
 685                            MSGLEVEL_CRAP, SILCTXT_ATTR_PREFERRED_LANGUAGE,
 686                            tmp);
 687       }
 688       break;
 689
 690     case SILC_ATTRIBUTE_PREFERRED_CONTACT:
 691       {
 692         SilcUInt32 mask;
 693         if (!silc_attribute_get_object(attr, (void *)&mask, sizeof(mask)))
 694           continue;
 695         if (!mask)
 696           silc_strncat(tmp, sizeof(tmp), "NONE ", strlen(" NONE"));
 697         if (mask & SILC_ATTRIBUTE_CONTACT_CHAT)
 698           silc_strncat(tmp, sizeof(tmp), "CHAT ", strlen(" CHAT"));
 699         if (mask & SILC_ATTRIBUTE_CONTACT_EMAIL)
 700           silc_strncat(tmp, sizeof(tmp), "EMAIL ", strlen(" EMAIL"));
 701         if (mask & SILC_ATTRIBUTE_CONTACT_CALL)
 702           silc_strncat(tmp, sizeof(tmp), "CALL ", strlen(" CALL"));
 703         if (mask & SILC_ATTRIBUTE_CONTACT_PAGE)
 704           silc_strncat(tmp, sizeof(tmp), "PAGE ", strlen(" PAGE"));
 705         if (mask & SILC_ATTRIBUTE_CONTACT_SMS)
 706           silc_strncat(tmp, sizeof(tmp), "SMS ", strlen(" SMS"));
 707         if (mask & SILC_ATTRIBUTE_CONTACT_MMS)
 708           silc_strncat(tmp, sizeof(tmp), "MMS ", strlen(" MMS"));
 709         if (mask & SILC_ATTRIBUTE_CONTACT_VIDEO)
 710           silc_strncat(tmp, sizeof(tmp), "VIDEO ", strlen(" VIDEO"));
 711         printformat_module("fe-common/silc", server, NULL,
 712                            MSGLEVEL_CRAP, SILCTXT_ATTR_PREFERRED_CONTACT, tmp);
 713       }
 714       break;
 715
 716     case SILC_ATTRIBUTE_TIMEZONE:
 717       {
 718         if (!silc_attribute_get_object(attr, (void *)&tmp, sizeof(tmp) - 1))
 719           continue;
 720         printformat_module("fe-common/silc", server, NULL,
 721                            MSGLEVEL_CRAP, SILCTXT_ATTR_TIMEZONE, tmp);
 722       }
 723       break;
 724
 725     case SILC_ATTRIBUTE_EXTENSION:
 726       {
 727         verify->extension = silc_mime_alloc();
 728         if (!verify->extension)
 729           continue;
 730         if (!silc_attribute_get_object(attr, (void *)verify->extension,
 731                                        sizeof(*verify->extension)))
 732           continue;
 733         printformat_module("fe-common/silc", server, NULL,
 734                            MSGLEVEL_CRAP, SILCTXT_ATTR_EXTENSION,
 735                            "present");
 736       }
 737       break;
 738
 739     case SILC_ATTRIBUTE_GEOLOCATION:
 740       {
 741         SilcAttributeObjGeo geo;
 742         memset(&geo, 0, sizeof(geo));
 743         if (!silc_attribute_get_object(attr, (void *)&geo, sizeof(geo)))
 744           continue;
 745         snprintf(tmp, sizeof(tmp) - 1, "%s:%s:%s:%s",
 746                  geo.longitude ? geo.longitude : "",
 747                  geo.latitude ? geo.latitude : "",
 748                  geo.altitude ? geo.altitude : "",
 749                  geo.accuracy ? geo.accuracy : "");
 750         printformat_module("fe-common/silc", server, NULL,
 751                            MSGLEVEL_CRAP, SILCTXT_ATTR_GEOLOCATION, tmp);
 752       }
 753       break;
 754
 755     case SILC_ATTRIBUTE_DEVICE_INFO:
 756       {
 757         SilcAttributeObjDevice dev;
 758         memset(&dev, 0, sizeof(dev));
 759         if (!silc_attribute_get_object(attr, (void *)&dev, sizeof(dev)))
 760           continue;
 761         snprintf(tmp, sizeof(tmp) - 1, "%s:%s:%s:%s:%s",
 762                  (dev.type == SILC_ATTRIBUTE_DEVICE_COMPUTER ? "COMPUTER" :
 763                   dev.type == SILC_ATTRIBUTE_DEVICE_PDA ? "PDA" :
 764                   dev.type == SILC_ATTRIBUTE_DEVICE_MOBILE_PHONE ?
 765                   "MOBILE PHONE" :
 766                   dev.type == SILC_ATTRIBUTE_DEVICE_TERMINAL ? "TERMINAL" :
 767                   ""),
 768                  dev.manufacturer ? dev.manufacturer : "",
 769                  dev.version ? dev.version : "",
 770                  dev.model ? dev.model: "",
 771                  dev.language ? dev.language : "");
 772         printformat_module("fe-common/silc", server, NULL,
 773                            MSGLEVEL_CRAP, SILCTXT_ATTR_DEVICE_INFO, tmp);
 774       }
 775       break;
 776
 777     case SILC_ATTRIBUTE_USER_PUBLIC_KEY:
 778       {
 779         if (verify->userpk.type)
 780           continue;
 781         if (!silc_attribute_get_object(attr, (void *)&verify->userpk,
 782                                        sizeof(verify->userpk)))
 783           continue;
 784       }
 785       break;
 786
 787     case SILC_ATTRIBUTE_SERVER_PUBLIC_KEY:
 788       {
 789         if (serverpk.type)
 790           continue;
 791         if (!silc_attribute_get_object(attr, (void *)&serverpk,
 792                                        sizeof(serverpk)))
 793           continue;
 794       }
 795       break;
 796
 797     case SILC_ATTRIBUTE_USER_DIGITAL_SIGNATURE:
 798       {
 799         if (usersign.data)
 800           continue;
 801         if (!silc_attribute_get_object(attr, (void *)&usersign,
 802                                        sizeof(usersign)))
 803           continue;
 804       }
 805       break;
 806
 807     case SILC_ATTRIBUTE_SERVER_DIGITAL_SIGNATURE:
 808       {
 809         if (serversign.data)
 810           continue;
 811         if (!silc_attribute_get_object(attr, (void *)&serversign,
 812                                        sizeof(serversign)))
 813           continue;
 814       }
 815       break;
 816
 817     default:
 818       break;
 819     }
 820   }
 821
 822   /* Handle the signature verifications and public key verifying here */
 823
 824   if (verify->userpk.data) {
 825     SilcPKCSType type = 0;
 826
 827     if (!strcmp(verify->userpk.type, "silc-rsa"))
 828       type = SILC_PKCS_SILC;
 829     else if (!strcmp(verify->userpk.type, "ssh-rsa"))
 830       type = SILC_PKCS_SSH2;
 831     else if (!strcmp(verify->userpk.type, "x509v3-sign-rsa"))
 832       type = SILC_PKCS_X509V3;
 833     else if (!strcmp(verify->userpk.type, "pgp-sign-rsa"))
 834       type = SILC_PKCS_OPENPGP;
 835
 836     silc_pkcs_public_key_alloc(type, verify->userpk.data,
 837                                verify->userpk.data_len,
 838                                &verify->public_key);
 839   }
 840
 841   if (usersign.data) {
 842     /* Verify the signature now */
 843     unsigned char *verifyd;
 844     SilcUInt32 verify_len;
 845
 846     if (verify->public_key) {
 847       verifyd = silc_attribute_get_verify_data(attrs, FALSE, &verify_len);
 848       if (verifyd && silc_pkcs_verify(verify->public_key,
 849                                       usersign.data,
 850                                       usersign.data_len,
 851                                       verifyd, verify_len,
 852                                       sha1hash)) {
 853         printformat_module("fe-common/silc", server, NULL,
 854                            MSGLEVEL_CRAP, SILCTXT_ATTR_USER_SIGN_VERIFIED);
 855       } else {
 856         printformat_module("fe-common/silc", server, NULL,
 857                            MSGLEVEL_CRAP, SILCTXT_ATTR_USER_SIGN_FAILED);
 858       }
 859
 860       silc_free(verifyd);
 861     } else {
 862       printformat_module("fe-common/silc", server, NULL,
 863                          MSGLEVEL_CRAP, SILCTXT_ATTR_USER_SIGN_FAILED);
 864     }
 865   } else {
 866     printformat_module("fe-common/silc", server, NULL,
 867                        MSGLEVEL_CRAP, SILCTXT_ATTR_USER_SIGN_NOT_PRESENT);
 868   }
 869
 870   if (serversign.data) {
 871     /* Verify the signature now */
 872     SilcPublicKey public_key;
 873     SilcPKCSType type = 0;
 874     unsigned char *verifyd;
 875     SilcUInt32 verify_len;
 876
 877     if (!strcmp(serverpk.type, "silc-rsa"))
 878       type = SILC_PKCS_SILC;
 879     else if (!strcmp(serverpk.type, "ssh-rsa"))
 880       type = SILC_PKCS_SSH2;
 881     else if (!strcmp(serverpk.type, "x509v3-sign-rsa"))
 882       type = SILC_PKCS_X509V3;
 883     else if (!strcmp(serverpk.type, "pgp-sign-rsa"))
 884       type = SILC_PKCS_OPENPGP;
 885
 886     if (silc_pkcs_public_key_alloc(type, serverpk.data,
 887                                    serverpk.data_len,
 888                                    &public_key)) {
 889       verifyd = silc_attribute_get_verify_data(attrs, TRUE, &verify_len);
 890       if (verifyd && silc_pkcs_verify(public_key,
 891                                       serversign.data,
 892                                       serversign.data_len,
 893                                       verifyd, verify_len,
 894                                       sha1hash)) {
 895         printformat_module("fe-common/silc", server, NULL,
 896                            MSGLEVEL_CRAP, SILCTXT_ATTR_SERVER_SIGN_VERIFIED);
 897       } else {
 898         printformat_module("fe-common/silc", server, NULL,
 899                            MSGLEVEL_CRAP, SILCTXT_ATTR_SERVER_SIGN_FAILED);
 900       }
 901
 902       silc_pkcs_public_key_free(public_key);
 903       silc_free(verifyd);
 904     } else {
 905       printformat_module("fe-common/silc", server, NULL,
 906                          MSGLEVEL_CRAP, SILCTXT_ATTR_SERVER_SIGN_FAILED);
 907     }
 908   }
 909
 910   if (verify->public_key) {
 911     silc_verify_public_key(client, conn, SILC_CONN_CLIENT,
 912                            verify->public_key,
 913                            silc_query_attributes_print_final, verify);
 914   } else {
 915     verify->nopk = TRUE;
 916     silc_query_attributes_print_final(FALSE, verify);
 917   }
 918 }
 919
 920 static void silc_query_attributes_print_final(bool success, void *context)
 921 {
 922   AttrVerify verify = context;
 923   SILC_SERVER_REC *server = verify->server;
 924   char *format = NULL;
 925   unsigned char filename[256], *fingerprint = NULL, *tmp;
 926   struct stat st;
 927   int i;
 928
 929   if (!verify->nopk) {
 930     if (success) {
 931       printformat_module("fe-common/silc", NULL, NULL,
 932                          MSGLEVEL_CRAP, SILCTXT_PUBKEY_VERIFIED, "user",
 933                          verify->name);
 934     } else {
 935       printformat_module("fe-common/silc", NULL, NULL,
 936                          MSGLEVEL_CRAP, SILCTXT_PUBKEY_NOTVERIFIED, "user",
 937                          verify->name);
 938     }
 939   }
 940
 941   printformat_module("fe-common/silc", server, NULL,
 942                      MSGLEVEL_CRAP, SILCTXT_ATTR_FOOTER);
 943
 944   /* Replace all whitespaces with `_'. */
 945   fingerprint = silc_hash_fingerprint(sha1hash,
 946                                       verify->userpk.data,
 947                                       verify->userpk.data_len);
 948   for (i = 0; i < strlen(fingerprint); i++)
 949     if (fingerprint[i] == ' ')
 950       fingerprint[i] = '_';
 951
 952   /* Filename for dir */
 953   tmp = fingerprint + strlen(fingerprint) - 9;
 954   snprintf(filename, sizeof(filename) - 1, "%s/friends/%s",
 955            get_irssi_dir(), tmp);
 956   silc_free(fingerprint);
 957
 958   if ((stat(filename, &st)) == -1) {
 959     /* Ask to accept save requested attributes */
 960     format = format_get_text("fe-common/silc", NULL, NULL, NULL,
 961                              SILCTXT_ATTR_SAVE);
 962     keyboard_entry_redirect((SIGNAL_FUNC)silc_query_attributes_accept,
 963                             format, 0, verify);
 964   } else {
 965     /* Save new data to existing directory */
 966     silc_query_attributes_accept("Y", verify);
 967   }
 968
 969   g_free(format);
 970 }
 971
 972 static void silc_query_attributes_accept(const char *line, void *context)
 973 {
 974   AttrVerify verify = context;
 975   SILC_SERVER_REC *server = verify->server;
 976   struct stat st;
 977   struct passwd *pw;
 978   unsigned char filename[256], filename2[256], *fingerprint = NULL, *tmp;
 979   SilcUInt32 len;
 980   int i;
 981
 982   if (line[0] == 'Y' || line[0] == 'y') {
 983     /* Save the attributes */
 984     memset(filename, 0, sizeof(filename));
 985     memset(filename2, 0, sizeof(filename2));
 986
 987     pw = getpwuid(getuid());
 988     if (!pw)
 989       goto out;
 990
 991     /* Replace all whitespaces with `_'. */
 992     fingerprint = silc_hash_fingerprint(sha1hash,
 993                                         verify->userpk.data,
 994                                         verify->userpk.data_len);
 995     for (i = 0; i < strlen(fingerprint); i++)
 996       if (fingerprint[i] == ' ')
 997         fingerprint[i] = '_';
 998
 999     /* Filename for dir */
1000     tmp = fingerprint + strlen(fingerprint) - 9;
1001     snprintf(filename, sizeof(filename) - 1, "%s/friends/%s",
1002              get_irssi_dir(), tmp);
1003
1004     /* Create dir if it doesn't exist */
1005     if ((stat(filename, &st)) == -1) {
1006       /* If dir doesn't exist */
1007       if (errno == ENOENT) {
1008         if (pw->pw_uid == geteuid()) {
1009           if ((mkdir(filename, 0755)) == -1) {
1010             silc_say_error("Couldn't create `%s' directory",
1011                            filename);
1012             goto out;
1013           }
1014         } else {
1015           silc_say_error("Couldn't create `%s' directory due to a "
1016                          "wrong uid!", filename);
1017           goto out;
1018         }
1019       } else {
1020         silc_say_error("%s", strerror(errno));
1021         goto out;
1022       }
1023     }
1024
1025     /* Save the stuff to the directory */
1026
1027     /* Save VCard */
1028     snprintf(filename2, sizeof(filename2) - 1, "%s/vcard", filename);
1029     if (verify->vcard.full_name) {
1030       tmp = silc_vcard_encode(&verify->vcard, &len);
1031       silc_file_writefile(filename2, tmp, len);
1032       silc_free(tmp);
1033     }
1034
1035     /* Save public key */
1036     if (verify->public_key) {
1037       memset(filename2, 0, sizeof(filename2));
1038       snprintf(filename2, sizeof(filename2) - 1, "%s/clientkey_%s.pub",
1039                filename, fingerprint);
1040       silc_pkcs_save_public_key(filename2, verify->public_key,
1041                                 SILC_PKCS_FILE_BASE64);
1042     }
1043
1044     /* Save extension data */
1045     if (verify->extension) {
1046       memset(filename2, 0, sizeof(filename2));
1047       snprintf(filename2, sizeof(filename2) - 1, "%s/extension.mime",
1048                filename);
1049       tmp = silc_mime_encode(verify->extension, &len);
1050       if (tmp)
1051         silc_file_writefile(filename2, tmp, len);
1052     }
1053
1054     /* Save MIME message data */
1055     if (verify->message) {
1056       memset(filename2, 0, sizeof(filename2));
1057       snprintf(filename2, sizeof(filename2) - 1, "%s/status_message.mime",
1058                filename);
1059       tmp = silc_mime_encode(verify->message, &len);
1060       if (tmp)
1061         silc_file_writefile(filename2, tmp, len);
1062     }
1063
1064     printformat_module("fe-common/silc", server, NULL,
1065                        MSGLEVEL_CRAP, SILCTXT_ATTR_SAVED, filename);
1066   }
1067
1068  out:
1069   silc_free(fingerprint);
1070   silc_free(verify->name);
1071   silc_vcard_free(&verify->vcard);
1072   silc_free(verify);
1073 }