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 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   SilcAttributeObjMime 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(&mime, 0, sizeof(mime));
 259   memset(&geo, 0, sizeof(geo));
 260   memset(&dev, 0, sizeof(dev));
 261   memset(&pk, 0, sizeof(pk));
 262   memset(&vcard, 0, sizeof(vcard));
 263
 264   allowed = settings_get_bool("attr_allow");
 265   if (!allowed) {
 266     silc_client_attribute_del(silc_client, conn,
 267                               SILC_ATTRIBUTE_USER_INFO, NULL);
 268     silc_client_attribute_del(silc_client, conn,
 269                               SILC_ATTRIBUTE_SERVICE, NULL);
 270     silc_client_attribute_del(silc_client, conn,
 271                               SILC_ATTRIBUTE_STATUS_MOOD, NULL);
 272     silc_client_attribute_del(silc_client, conn,
 273                               SILC_ATTRIBUTE_STATUS_FREETEXT, NULL);
 274     silc_client_attribute_del(silc_client, conn,
 275                               SILC_ATTRIBUTE_STATUS_MESSAGE, NULL);
 276     silc_client_attribute_del(silc_client, conn,
 277                               SILC_ATTRIBUTE_PREFERRED_LANGUAGE, NULL);
 278     silc_client_attribute_del(silc_client, conn,
 279                               SILC_ATTRIBUTE_PREFERRED_CONTACT, NULL);
 280     silc_client_attribute_del(silc_client, conn,
 281                               SILC_ATTRIBUTE_TIMEZONE, NULL);
 282     silc_client_attribute_del(silc_client, conn,
 283                               SILC_ATTRIBUTE_GEOLOCATION, NULL);
 284     silc_client_attribute_del(silc_client, conn,
 285                               SILC_ATTRIBUTE_DEVICE_INFO, NULL);
 286     silc_client_attribute_del(silc_client, conn,
 287                               SILC_ATTRIBUTE_USER_PUBLIC_KEY, NULL);
 288     return;
 289   }
 290
 291   sv = settings_get_str("attr_vcard");
 292   if (sv && *sv) {
 293     /* Put USER_INFO */
 294     silc_client_attribute_del(silc_client, conn,
 295                               SILC_ATTRIBUTE_USER_INFO, NULL);
 296     tmp = silc_file_readfile(sv, &tmp_len);
 297     if (tmp) {
 298       tmp[tmp_len] = 0;
 299       if (silc_vcard_decode(tmp, tmp_len, &vcard))
 300         silc_client_attribute_add(silc_client, conn,
 301                                   SILC_ATTRIBUTE_USER_INFO, (void *)&vcard,
 302                                   sizeof(vcard));
 303     }
 304     silc_vcard_free(&vcard);
 305     silc_free(tmp);
 306   }
 307
 308   sv = settings_get_str("attr_services");
 309   if (sv && *sv) {
 310     /* Put SERVICE */
 311     silc_client_attribute_del(silc_client, conn,
 312                               SILC_ATTRIBUTE_SERVICE, NULL);
 313     list = g_strsplit(sv, " ", -1);
 314     for (entry = list; *entry != NULL; entry++) {
 315       if (!strchr(*entry, ':'))
 316         continue;
 317       tmp = strchr(*entry, ':') + 1;
 318       if (!tmp || !(*tmp))
 319         continue;
 320       memset(&service, 0, sizeof(service));
 321       service.port = atoi(tmp);
 322       *strchr(*entry, ':') = '\0';
 323       silc_strncat(service.address, sizeof(service.address), *entry,
 324                    strlen(*entry));
 325       service.status = TRUE;
 326       service.idle = 0;
 327       silc_client_attribute_add(silc_client, conn,
 328                                 SILC_ATTRIBUTE_SERVICE, &service,
 329                                 sizeof(service));
 330     }
 331     g_strfreev(list);
 332   }
 333
 334   sv = settings_get_str("attr_status_mood");
 335   if (sv && *sv) {
 336     /* Put STATUS_MOOD */
 337     silc_client_attribute_del(silc_client, conn,
 338                               SILC_ATTRIBUTE_STATUS_MOOD, NULL);
 339     mask = 0;
 340     list = g_strsplit(sv, " ", -1);
 341     for (entry = list; *entry != NULL; entry++) {
 342       if (!strcasecmp(*entry, "NORMAL"))
 343         mask |= SILC_ATTRIBUTE_MOOD_NORMAL;
 344       if (!strcasecmp(*entry, "HAPPY"))
 345         mask |= SILC_ATTRIBUTE_MOOD_HAPPY;
 346       if (!strcasecmp(*entry, "SAD"))
 347         mask |= SILC_ATTRIBUTE_MOOD_SAD;
 348       if (!strcasecmp(*entry, "ANGRY"))
 349         mask |= SILC_ATTRIBUTE_MOOD_ANGRY;
 350       if (!strcasecmp(*entry, "JEALOUS"))
 351         mask |= SILC_ATTRIBUTE_MOOD_JEALOUS;
 352       if (!strcasecmp(*entry, "ASHAMED"))
 353         mask |= SILC_ATTRIBUTE_MOOD_ASHAMED;
 354       if (!strcasecmp(*entry, "INVINCIBLE"))
 355         mask |= SILC_ATTRIBUTE_MOOD_INVINCIBLE;
 356       if (!strcasecmp(*entry, "INLOVE"))
 357         mask |= SILC_ATTRIBUTE_MOOD_INLOVE;
 358       if (!strcasecmp(*entry, "SLEEPY"))
 359         mask |= SILC_ATTRIBUTE_MOOD_SLEEPY;
 360       if (!strcasecmp(*entry, "BORED"))
 361         mask |= SILC_ATTRIBUTE_MOOD_BORED;
 362       if (!strcasecmp(*entry, "EXCITED"))
 363         mask |= SILC_ATTRIBUTE_MOOD_EXCITED;
 364       if (!strcasecmp(*entry, "ANXIOUS"))
 365         mask |= SILC_ATTRIBUTE_MOOD_ANXIOUS;
 366     }
 367     silc_client_attribute_add(silc_client, conn,
 368                               SILC_ATTRIBUTE_STATUS_MOOD, (void *)mask,
 369                               sizeof(SilcUInt32));
 370     g_strfreev(list);
 371   }
 372
 373   sv = settings_get_str("attr_status_text");
 374   if (sv && *sv) {
 375     /* Put STATUS_TEXT */
 376     silc_client_attribute_del(silc_client, conn,
 377                               SILC_ATTRIBUTE_STATUS_FREETEXT, NULL);
 378     silc_client_attribute_add(silc_client, conn,
 379                               SILC_ATTRIBUTE_STATUS_FREETEXT, (void *)sv,
 380                               strlen(sv));
 381   }
 382
 383   sv = settings_get_str("attr_status_message");
 384   if (sv && *sv) {
 385     /* Put STATUS_MESSAGE */
 386     silc_client_attribute_del(silc_client, conn,
 387                               SILC_ATTRIBUTE_STATUS_MESSAGE, NULL);
 388     tmp = silc_file_readfile(sv, &tmp_len);
 389     if (tmp) {
 390       tmp[tmp_len] = 0;
 391       mime.mime = (const unsigned char *)tmp;
 392       mime.mime_len = tmp_len;
 393       silc_client_attribute_add(silc_client, conn,
 394                                 SILC_ATTRIBUTE_STATUS_MESSAGE, &mime,
 395                                 sizeof(mime));
 396     }
 397     silc_free(tmp);
 398   }
 399
 400   sv = settings_get_str("attr_preferred_language");
 401   if (sv && *sv) {
 402     /* Put PREFERRED_LANGUAGE */
 403     silc_client_attribute_del(silc_client, conn,
 404                               SILC_ATTRIBUTE_PREFERRED_LANGUAGE, NULL);
 405     list = g_strsplit(sv, " ", -1);
 406     for (entry = list; *entry != NULL; entry++) {
 407       silc_client_attribute_add(silc_client, conn,
 408                                 SILC_ATTRIBUTE_PREFERRED_LANGUAGE, *entry,
 409                                 strlen(*entry));
 410     }
 411     g_strfreev(list);
 412   }
 413
 414   sv = settings_get_str("attr_preferred_contact");
 415   if (sv && *sv) {
 416     /* Put PREFERRED_CONTACT */
 417     silc_client_attribute_del(silc_client, conn,
 418                               SILC_ATTRIBUTE_PREFERRED_CONTACT, NULL);
 419     mask = 0;
 420     list = g_strsplit(sv, " ", -1);
 421     for (entry = list; *entry != NULL; entry++) {
 422       if (!strcasecmp(*entry, "NONE"))
 423         mask = 0;
 424       if (!strcasecmp(*entry, "EMAIL"))
 425         mask |= SILC_ATTRIBUTE_CONTACT_EMAIL;
 426       if (!strcasecmp(*entry, "CALL"))
 427         mask |= SILC_ATTRIBUTE_CONTACT_CALL;
 428       if (!strcasecmp(*entry, "PAGE"))
 429         mask |= SILC_ATTRIBUTE_CONTACT_PAGE;
 430       if (!strcasecmp(*entry, "SMS"))
 431         mask |= SILC_ATTRIBUTE_CONTACT_SMS;
 432       if (!strcasecmp(*entry, "MMS"))
 433         mask |= SILC_ATTRIBUTE_CONTACT_MMS;
 434       if (!strcasecmp(*entry, "CHAT"))
 435         mask |= SILC_ATTRIBUTE_CONTACT_CHAT;
 436       if (!strcasecmp(*entry, "VIDEO"))
 437         mask |= SILC_ATTRIBUTE_CONTACT_VIDEO;
 438     }
 439     silc_client_attribute_add(silc_client, conn,
 440                               SILC_ATTRIBUTE_PREFERRED_CONTACT, (void *)mask,
 441                               sizeof(SilcUInt32));
 442     g_strfreev(list);
 443   }
 444
 445   /* Put TIMEZONE */
 446   allowed = settings_get_bool("attr_timezone");
 447   silc_client_attribute_del(silc_client, conn,
 448                             SILC_ATTRIBUTE_TIMEZONE, NULL);
 449   if (allowed)
 450     silc_client_attribute_add(silc_client, conn,
 451                               SILC_ATTRIBUTE_TIMEZONE, "foo", 3);
 452
 453   sv = settings_get_str("attr_geolocation");
 454   if (sv && *sv) {
 455     /* Put GEOLOCATION */
 456     silc_client_attribute_del(silc_client, conn,
 457                               SILC_ATTRIBUTE_GEOLOCATION, NULL);
 458     list = g_strsplit(sv, ":", -1);
 459     for (entry = list; *entry != NULL; entry++) {
 460       if (!geo.longitude) {
 461         geo.longitude = *entry;
 462         continue;
 463       }
 464       if (!geo.latitude) {
 465         geo.latitude = *entry;
 466         continue;
 467       }
 468       if (!geo.altitude) {
 469         geo.altitude = *entry;
 470         continue;
 471       }
 472       if (!geo.accuracy) {
 473         geo.accuracy = *entry;
 474         continue;
 475       }
 476     }
 477     silc_client_attribute_add(silc_client, conn,
 478                               SILC_ATTRIBUTE_GEOLOCATION, &geo,
 479                               sizeof(geo));
 480     g_strfreev(list);
 481   }
 482
 483   sv = settings_get_str("attr_device_info");
 484   if (sv && *sv) {
 485     /* Put DEVICE_INFO */
 486     silc_client_attribute_del(silc_client, conn,
 487                               SILC_ATTRIBUTE_DEVICE_INFO, NULL);
 488     allowed = FALSE;
 489     list = g_strsplit(sv, ":", -1);
 490     for (entry = list; *entry != NULL; entry++) {
 491       if (!allowed) {
 492         allowed = TRUE;
 493         if (!strcasecmp(*entry, "COMPUTER"))
 494           dev.type = SILC_ATTRIBUTE_DEVICE_COMPUTER;
 495         if (!strcasecmp(*entry, "MOBILE_PHONE"))
 496           dev.type = SILC_ATTRIBUTE_DEVICE_MOBILE_PHONE;
 497         if (!strcasecmp(sv, "PDA"))
 498           dev.type = SILC_ATTRIBUTE_DEVICE_PDA;
 499         if (!strcasecmp(sv, "TERMINAL"))
 500           dev.type = SILC_ATTRIBUTE_DEVICE_TERMINAL;
 501         continue;
 502       }
 503       if (!dev.manufacturer) {
 504         dev.manufacturer = *entry;
 505         continue;
 506       }
 507       if (!dev.version) {
 508         dev.version = *entry;
 509         continue;
 510       }
 511       if (!dev.model) {
 512         dev.model = *entry;
 513         continue;
 514       }
 515       if (!dev.language) {
 516         dev.language = *entry;
 517         continue;
 518       }
 519     }
 520     silc_client_attribute_add(silc_client, conn,
 521                               SILC_ATTRIBUTE_DEVICE_INFO, &dev,
 522                               sizeof(dev));
 523     g_strfreev(list);
 524   }
 525
 526   sv = settings_get_str("attr_public_keys");
 527   if (sv && *sv) {
 528     /* Put USER_PUBLIC_KEY */
 529     silc_client_attribute_del(silc_client, conn,
 530                               SILC_ATTRIBUTE_USER_PUBLIC_KEY, NULL);
 531     list = g_strsplit(sv, " ", -1);
 532     for (entry = list; *entry != NULL; entry++) {
 533       if (!strncasecmp(*entry, "silc-rsa:", 8)) {
 534         tmp = silc_file_readfile((*entry) + 8, &tmp_len);
 535         if (tmp) {
 536           tmp[tmp_len] = 0;
 537           pk.type = "silc-rsa";
 538           pk.data = tmp;
 539           pk.data_len = tmp_len;
 540           silc_client_attribute_add(silc_client, conn,
 541                                     SILC_ATTRIBUTE_USER_PUBLIC_KEY, &pk,
 542                                     sizeof(pk));
 543         }
 544         silc_free(tmp);
 545       } else {
 546         silc_say_error("Unsupported public key type '%s'", *entry);
 547       }
 548     }
 549     g_strfreev(list);
 550   }
 551 }
 552
 553 typedef struct {
 554   SilcClient client;
 555   SILC_SERVER_REC *server;
 556   char *name;
 557   SilcAttributeObjPk userpk;
 558   SilcVCardStruct vcard;
 559   SilcAttributeObjMime message;
 560   SilcAttributeObjMime extension;
 561   bool nopk;
 562 } *AttrVerify;
 563
 564 void silc_query_attributes_print(SILC_SERVER_REC *server,
 565                                  SilcClient client,
 566                                  SilcClientConnection conn,
 567                                  SilcDList attrs,
 568                                  SilcClientEntry client_entry)
 569 {
 570   SilcAttributePayload attr;
 571   SilcAttribute attribute;
 572   char tmp[512];
 573   SilcAttributeObjPk serverpk, usersign, serversign;
 574   AttrVerify verify;
 575
 576   printformat_module("fe-common/silc", server, NULL,
 577                      MSGLEVEL_CRAP, SILCTXT_ATTR_HEADER);
 578
 579   memset(&serverpk, 0, sizeof(serverpk));
 580   memset(&usersign, 0, sizeof(usersign));
 581   memset(&serversign, 0, sizeof(serversign));
 582
 583   verify = silc_calloc(1, sizeof(*verify));
 584   if (!verify)
 585     return;
 586   verify->client = client;
 587   verify->server = server;
 588   verify->name = strdup(client_entry->nickname);
 589
 590   silc_dlist_start(attrs);
 591   while ((attr = silc_dlist_get(attrs)) != SILC_LIST_END) {
 592     attribute = silc_attribute_get_attribute(attr);
 593     memset(tmp, 0, sizeof(tmp));
 594
 595     switch (attribute) {
 596
 597     case SILC_ATTRIBUTE_USER_INFO:
 598       {
 599         if (!silc_attribute_get_object(attr, (void *)&verify->vcard,
 600                                        sizeof(verify->vcard)))
 601           continue;
 602         printformat_module("fe-common/silc", server, NULL,
 603                            MSGLEVEL_CRAP, SILCTXT_ATTR_VCARD_FILE,
 604                            "present");
 605       }
 606       break;
 607
 608     case SILC_ATTRIBUTE_SERVICE:
 609       {
 610         SilcAttributeObjService service;
 611         memset(&service, 0, sizeof(service));
 612         if (!silc_attribute_get_object(attr, (void *)&service,
 613                                        sizeof(service)))
 614           continue;
 615         snprintf(tmp, sizeof(tmp) - 1, "%s:%d (logged %s) idle %d seconds",
 616                  service.address, (unsigned int)service.port,
 617                  service.status ? "in" : "out",
 618                  (unsigned int)service.idle);
 619         printformat_module("fe-common/silc", server, NULL,
 620                            MSGLEVEL_CRAP, SILCTXT_ATTR_SERVICES, tmp);
 621       }
 622       break;
 623
 624     case SILC_ATTRIBUTE_STATUS_MOOD:
 625       {
 626         SilcUInt32 mask;
 627         if (!silc_attribute_get_object(attr, (void *)&mask, sizeof(mask)))
 628           continue;
 629         if (!mask)
 630           silc_strncat(tmp, sizeof(tmp), "NORMAL ", strlen(" NORMAL"));
 631         if (mask & SILC_ATTRIBUTE_MOOD_HAPPY)
 632           silc_strncat(tmp, sizeof(tmp), "HAPPY ", strlen(" HAPPY"));
 633         if (mask & SILC_ATTRIBUTE_MOOD_SAD)
 634           silc_strncat(tmp, sizeof(tmp), "SAD ", strlen(" SAD"));
 635         if (mask & SILC_ATTRIBUTE_MOOD_ANGRY)
 636           silc_strncat(tmp, sizeof(tmp), "ANGRY ", strlen(" ANGRY"));
 637         if (mask & SILC_ATTRIBUTE_MOOD_JEALOUS)
 638           silc_strncat(tmp, sizeof(tmp), "JEALOUS ", strlen(" JEALOUS"));
 639         if (mask & SILC_ATTRIBUTE_MOOD_ASHAMED)
 640           silc_strncat(tmp, sizeof(tmp), "ASHAMED ", strlen(" ASHAMED"));
 641         if (mask & SILC_ATTRIBUTE_MOOD_INVINCIBLE)
 642           silc_strncat(tmp, sizeof(tmp), "INVINCIBLE ", strlen(" INVINCIBLE"));
 643         if (mask & SILC_ATTRIBUTE_MOOD_INLOVE)
 644           silc_strncat(tmp, sizeof(tmp), "INLOVE ", strlen(" INLOVE"));
 645         if (mask & SILC_ATTRIBUTE_MOOD_SLEEPY)
 646           silc_strncat(tmp, sizeof(tmp), "SLEEPY ", strlen(" SLEEPY"));
 647         if (mask & SILC_ATTRIBUTE_MOOD_BORED)
 648           silc_strncat(tmp, sizeof(tmp), "BORED ", strlen(" BORED"));
 649         if (mask & SILC_ATTRIBUTE_MOOD_EXCITED)
 650           silc_strncat(tmp, sizeof(tmp), "EXCITED ", strlen(" EXCITED"));
 651         if (mask & SILC_ATTRIBUTE_MOOD_ANXIOUS)
 652           silc_strncat(tmp, sizeof(tmp), "ANXIOUS ", strlen(" ANXIOUS"));
 653         printformat_module("fe-common/silc", server, NULL,
 654                            MSGLEVEL_CRAP, SILCTXT_ATTR_STATUS_MOOD, tmp);
 655       }
 656       break;
 657
 658     case SILC_ATTRIBUTE_STATUS_FREETEXT:
 659       {
 660         if (!silc_attribute_get_object(attr, (void *)&tmp, sizeof(tmp) - 1))
 661           continue;
 662         printformat_module("fe-common/silc", server, NULL,
 663                            MSGLEVEL_CRAP, SILCTXT_ATTR_STATUS_TEXT, tmp);
 664       }
 665       break;
 666
 667     case SILC_ATTRIBUTE_STATUS_MESSAGE:
 668       {
 669         if (!silc_attribute_get_object(attr, (void *)&verify->message,
 670                                        sizeof(verify->message)))
 671           continue;
 672         printformat_module("fe-common/silc", server, NULL,
 673                            MSGLEVEL_CRAP, SILCTXT_ATTR_STATUS_MESSAGE,
 674                            "present");
 675       }
 676       break;
 677
 678     case SILC_ATTRIBUTE_PREFERRED_LANGUAGE:
 679       {
 680         if (!silc_attribute_get_object(attr, (void *)&tmp, sizeof(tmp) - 1))
 681           continue;
 682         printformat_module("fe-common/silc", server, NULL,
 683                            MSGLEVEL_CRAP, SILCTXT_ATTR_PREFERRED_LANGUAGE,
 684                            tmp);
 685       }
 686       break;
 687
 688     case SILC_ATTRIBUTE_PREFERRED_CONTACT:
 689       {
 690         SilcUInt32 mask;
 691         if (!silc_attribute_get_object(attr, (void *)&mask, sizeof(mask)))
 692           continue;
 693         if (!mask)
 694           silc_strncat(tmp, sizeof(tmp), "NONE ", strlen(" NONE"));
 695         if (mask & SILC_ATTRIBUTE_CONTACT_CHAT)
 696           silc_strncat(tmp, sizeof(tmp), "CHAT ", strlen(" CHAT"));
 697         if (mask & SILC_ATTRIBUTE_CONTACT_EMAIL)
 698           silc_strncat(tmp, sizeof(tmp), "EMAIL ", strlen(" EMAIL"));
 699         if (mask & SILC_ATTRIBUTE_CONTACT_CALL)
 700           silc_strncat(tmp, sizeof(tmp), "CALL ", strlen(" CALL"));
 701         if (mask & SILC_ATTRIBUTE_CONTACT_PAGE)
 702           silc_strncat(tmp, sizeof(tmp), "PAGE ", strlen(" PAGE"));
 703         if (mask & SILC_ATTRIBUTE_CONTACT_SMS)
 704           silc_strncat(tmp, sizeof(tmp), "SMS ", strlen(" SMS"));
 705         if (mask & SILC_ATTRIBUTE_CONTACT_MMS)
 706           silc_strncat(tmp, sizeof(tmp), "MMS ", strlen(" MMS"));
 707         if (mask & SILC_ATTRIBUTE_CONTACT_VIDEO)
 708           silc_strncat(tmp, sizeof(tmp), "VIDEO ", strlen(" VIDEO"));
 709         printformat_module("fe-common/silc", server, NULL,
 710                            MSGLEVEL_CRAP, SILCTXT_ATTR_PREFERRED_CONTACT, tmp);
 711       }
 712       break;
 713
 714     case SILC_ATTRIBUTE_TIMEZONE:
 715       {
 716         if (!silc_attribute_get_object(attr, (void *)&tmp, sizeof(tmp) - 1))
 717           continue;
 718         printformat_module("fe-common/silc", server, NULL,
 719                            MSGLEVEL_CRAP, SILCTXT_ATTR_TIMEZONE, tmp);
 720       }
 721       break;
 722
 723     case SILC_ATTRIBUTE_EXTENSION:
 724       {
 725         if (!silc_attribute_get_object(attr, (void *)&verify->extension,
 726                                        sizeof(verify->extension)))
 727           continue;
 728         printformat_module("fe-common/silc", server, NULL,
 729                            MSGLEVEL_CRAP, SILCTXT_ATTR_EXTENSION,
 730                            "present");
 731       }
 732       break;
 733
 734     case SILC_ATTRIBUTE_GEOLOCATION:
 735       {
 736         SilcAttributeObjGeo geo;
 737         memset(&geo, 0, sizeof(geo));
 738         if (!silc_attribute_get_object(attr, (void *)&geo, sizeof(geo)))
 739           continue;
 740         snprintf(tmp, sizeof(tmp) - 1, "%s:%s:%s:%s",
 741                  geo.longitude ? geo.longitude : "",
 742                  geo.latitude ? geo.latitude : "",
 743                  geo.altitude ? geo.altitude : "",
 744                  geo.accuracy ? geo.accuracy : "");
 745         printformat_module("fe-common/silc", server, NULL,
 746                            MSGLEVEL_CRAP, SILCTXT_ATTR_GEOLOCATION, tmp);
 747       }
 748       break;
 749
 750     case SILC_ATTRIBUTE_DEVICE_INFO:
 751       {
 752         SilcAttributeObjDevice dev;
 753         memset(&dev, 0, sizeof(dev));
 754         if (!silc_attribute_get_object(attr, (void *)&dev, sizeof(dev)))
 755           continue;
 756         snprintf(tmp, sizeof(tmp) - 1, "%s:%s:%s:%s:%s",
 757                  (dev.type == SILC_ATTRIBUTE_DEVICE_COMPUTER ? "COMPUTER" :
 758                   dev.type == SILC_ATTRIBUTE_DEVICE_PDA ? "PDA" :
 759                   dev.type == SILC_ATTRIBUTE_DEVICE_MOBILE_PHONE ?
 760                   "MOBILE PHONE" :
 761                   dev.type == SILC_ATTRIBUTE_DEVICE_TERMINAL ? "TERMINAL" :
 762                   ""),
 763                  dev.manufacturer ? dev.manufacturer : "",
 764                  dev.version ? dev.version : "",
 765                  dev.model ? dev.model: "",
 766                  dev.language ? dev.language : "");
 767         printformat_module("fe-common/silc", server, NULL,
 768                            MSGLEVEL_CRAP, SILCTXT_ATTR_DEVICE_INFO, tmp);
 769       }
 770       break;
 771
 772     case SILC_ATTRIBUTE_USER_PUBLIC_KEY:
 773       {
 774         if (verify->userpk.type)
 775           continue;
 776         if (!silc_attribute_get_object(attr, (void *)&verify->userpk,
 777                                        sizeof(verify->userpk)))
 778           continue;
 779       }
 780       break;
 781
 782     case SILC_ATTRIBUTE_SERVER_PUBLIC_KEY:
 783       {
 784         if (serverpk.type)
 785           continue;
 786         if (!silc_attribute_get_object(attr, (void *)&serverpk,
 787                                        sizeof(serverpk)))
 788           continue;
 789       }
 790       break;
 791
 792     case SILC_ATTRIBUTE_USER_DIGITAL_SIGNATURE:
 793       {
 794         if (usersign.data)
 795           continue;
 796         if (!silc_attribute_get_object(attr, (void *)&usersign,
 797                                        sizeof(usersign)))
 798           continue;
 799       }
 800       break;
 801
 802     case SILC_ATTRIBUTE_SERVER_DIGITAL_SIGNATURE:
 803       {
 804         if (serversign.data)
 805           continue;
 806         if (!silc_attribute_get_object(attr, (void *)&serversign,
 807                                        sizeof(serversign)))
 808           continue;
 809       }
 810       break;
 811
 812     default:
 813       break;
 814     }
 815   }
 816
 817   /* Handle the signature verifications and public key verifying here */
 818
 819   if (usersign.data && !strcmp(verify->userpk.type, "silc-rsa")) {
 820     /* Verify the signature now */
 821     SilcPublicKey public_key;
 822     SilcPKCS pkcs;
 823     unsigned char *verifyd;
 824     SilcUInt32 verify_len;
 825
 826     if (silc_pkcs_public_key_decode(verify->userpk.data,
 827                                     verify->userpk.data_len,
 828                                     &public_key)) {
 829       silc_pkcs_alloc("rsa", &pkcs);
 830       verifyd = silc_attribute_get_verify_data(attrs, FALSE, &verify_len);
 831       if (verifyd && silc_pkcs_public_key_set(pkcs, public_key)){
 832         if (silc_pkcs_verify_with_hash(pkcs, client->sha1hash,
 833                                        usersign.data,
 834                                        usersign.data_len,
 835                                        verifyd, verify_len)) {
 836           printformat_module("fe-common/silc", server, NULL,
 837                              MSGLEVEL_CRAP, SILCTXT_ATTR_USER_SIGN_VERIFIED);
 838         } else {
 839           printformat_module("fe-common/silc", server, NULL,
 840                              MSGLEVEL_CRAP, SILCTXT_ATTR_USER_SIGN_FAILED);
 841         }
 842       }
 843
 844       silc_pkcs_public_key_free(public_key);
 845       silc_free(verifyd);
 846     }
 847   } else {
 848     printformat_module("fe-common/silc", server, NULL,
 849                        MSGLEVEL_CRAP, SILCTXT_ATTR_USER_SIGN_NOT_PRESENT);
 850   }
 851
 852   if (serversign.data && !strcmp(serverpk.type, "silc-rsa")) {
 853     /* Verify the signature now */
 854     SilcPublicKey public_key;
 855     SilcPKCS pkcs;
 856     unsigned char *verifyd;
 857     SilcUInt32 verify_len;
 858
 859     if (silc_pkcs_public_key_decode(serverpk.data, serverpk.data_len,
 860                                     &public_key)) {
 861       silc_pkcs_alloc("rsa", &pkcs);
 862       verifyd = silc_attribute_get_verify_data(attrs, TRUE, &verify_len);
 863       if (verifyd && silc_pkcs_public_key_set(pkcs, public_key)) {
 864         if (silc_pkcs_verify_with_hash(pkcs, client->sha1hash,
 865                                        serversign.data,
 866                                        serversign.data_len,
 867                                        verifyd, verify_len)) {
 868           printformat_module("fe-common/silc", server, NULL,
 869                              MSGLEVEL_CRAP, SILCTXT_ATTR_SERVER_SIGN_VERIFIED);
 870         } else {
 871           printformat_module("fe-common/silc", server, NULL,
 872                              MSGLEVEL_CRAP, SILCTXT_ATTR_SERVER_SIGN_FAILED);
 873         }
 874       }
 875
 876       silc_pkcs_public_key_free(public_key);
 877       silc_free(verifyd);
 878     }
 879   }
 880
 881   if (verify->userpk.data) {
 882     silc_verify_public_key(client, conn, SILC_SOCKET_TYPE_CLIENT,
 883                            verify->userpk.data, verify->userpk.data_len,
 884                            SILC_SKE_PK_TYPE_SILC,
 885                            silc_query_attributes_print_final, verify);
 886   } else {
 887     verify->nopk = TRUE;
 888     silc_query_attributes_print_final(FALSE, verify);
 889   }
 890 }
 891
 892 static void silc_query_attributes_print_final(bool success, void *context)
 893 {
 894   AttrVerify verify = context;
 895   SilcClient client = verify->client;
 896   SILC_SERVER_REC *server = verify->server;
 897   char *format = NULL;
 898   unsigned char filename[256], *fingerprint = NULL, *tmp;
 899   struct stat st;
 900   int i;
 901
 902   if (!verify->nopk) {
 903     if (success) {
 904       printformat_module("fe-common/silc", NULL, NULL,
 905                          MSGLEVEL_CRAP, SILCTXT_PUBKEY_VERIFIED, "user",
 906                          verify->name);
 907     } else {
 908       printformat_module("fe-common/silc", NULL, NULL,
 909                          MSGLEVEL_CRAP, SILCTXT_PUBKEY_NOTVERIFIED, "user",
 910                          verify->name);
 911     }
 912   }
 913
 914   printformat_module("fe-common/silc", server, NULL,
 915                      MSGLEVEL_CRAP, SILCTXT_ATTR_FOOTER);
 916
 917   /* Replace all whitespaces with `_'. */
 918   fingerprint = silc_hash_fingerprint(client->sha1hash,
 919                                       verify->userpk.data,
 920                                       verify->userpk.data_len);
 921   for (i = 0; i < strlen(fingerprint); i++)
 922     if (fingerprint[i] == ' ')
 923       fingerprint[i] = '_';
 924
 925   /* Filename for dir */
 926   tmp = fingerprint + strlen(fingerprint) - 9;
 927   snprintf(filename, sizeof(filename) - 1, "%s/friends/%s",
 928            get_irssi_dir(), tmp);
 929   silc_free(fingerprint);
 930
 931   if ((stat(filename, &st)) == -1) {
 932     /* Ask to accept save requested attributes */
 933     format = format_get_text("fe-common/silc", NULL, NULL, NULL,
 934                              SILCTXT_ATTR_SAVE);
 935     keyboard_entry_redirect((SIGNAL_FUNC)silc_query_attributes_accept,
 936                             format, 0, verify);
 937   } else {
 938     /* Save new data to existing directory */
 939     silc_query_attributes_accept("Y", verify);
 940   }
 941
 942   g_free(format);
 943 }
 944
 945 static void silc_query_attributes_accept(const char *line, void *context)
 946 {
 947   AttrVerify verify = context;
 948   SilcClient client = verify->client;
 949   SILC_SERVER_REC *server = verify->server;
 950   struct stat st;
 951   struct passwd *pw;
 952   unsigned char filename[256], filename2[256], *fingerprint = NULL, *tmp;
 953   SilcUInt32 len;
 954   int i;
 955
 956   if (line[0] == 'Y' || line[0] == 'y') {
 957     /* Save the attributes */
 958     memset(filename, 0, sizeof(filename));
 959     memset(filename2, 0, sizeof(filename2));
 960
 961     pw = getpwuid(getuid());
 962     if (!pw)
 963       goto out;
 964
 965     /* Replace all whitespaces with `_'. */
 966     fingerprint = silc_hash_fingerprint(client->sha1hash,
 967                                         verify->userpk.data,
 968                                         verify->userpk.data_len);
 969     for (i = 0; i < strlen(fingerprint); i++)
 970       if (fingerprint[i] == ' ')
 971         fingerprint[i] = '_';
 972
 973     /* Filename for dir */
 974     tmp = fingerprint + strlen(fingerprint) - 9;
 975     snprintf(filename, sizeof(filename) - 1, "%s/friends/%s",
 976              get_irssi_dir(), tmp);
 977
 978     /* Create dir if it doesn't exist */
 979     if ((stat(filename, &st)) == -1) {
 980       /* If dir doesn't exist */
 981       if (errno == ENOENT) {
 982         if (pw->pw_uid == geteuid()) {
 983           if ((mkdir(filename, 0755)) == -1) {
 984             silc_say_error("Couldn't create `%s' directory",
 985                            filename);
 986             goto out;
 987           }
 988         } else {
 989           silc_say_error("Couldn't create `%s' directory due to a "
 990                          "wrong uid!", filename);
 991           goto out;
 992         }
 993       } else {
 994         silc_say_error("%s", strerror(errno));
 995         goto out;
 996       }
 997     }
 998
 999     /* Save the stuff to the directory */
1000
1001     /* Save VCard */
1002     snprintf(filename2, sizeof(filename2) - 1, "%s/vcard", filename);
1003     if (verify->vcard.full_name) {
1004       tmp = silc_vcard_encode(&verify->vcard, &len);
1005       silc_file_writefile(filename2, tmp, len);
1006       silc_free(tmp);
1007     }
1008
1009     /* Save public key */
1010     memset(filename2, 0, sizeof(filename2));
1011     snprintf(filename2, sizeof(filename2) - 1, "%s/clientkey_%s.pub",
1012              filename, fingerprint);
1013     silc_pkcs_save_public_key_data(filename2, verify->userpk.data,
1014                                    verify->userpk.data_len,
1015                                    SILC_PKCS_FILE_PEM);
1016
1017     /* Save extension data */
1018     if (verify->extension.mime) {
1019       memset(filename2, 0, sizeof(filename2));
1020       snprintf(filename2, sizeof(filename2) - 1, "%s/extension.mime",
1021                filename);
1022       silc_file_writefile(filename2, verify->extension.mime,
1023                           verify->extension.mime_len);
1024     }
1025
1026     /* Save MIME message data */
1027     if (verify->message.mime) {
1028       memset(filename2, 0, sizeof(filename2));
1029       snprintf(filename2, sizeof(filename2) - 1, "%s/status_message.mime",
1030                filename);
1031       silc_file_writefile(filename2, verify->message.mime,
1032                           verify->message.mime_len);
1033     }
1034
1035     printformat_module("fe-common/silc", server, NULL,
1036                        MSGLEVEL_CRAP, SILCTXT_ATTR_SAVED, filename);
1037   }
1038
1039  out:
1040   silc_free(fingerprint);
1041   silc_free(verify->name);
1042   silc_vcard_free(&verify->vcard);
1043   silc_free(verify);
1044 }