]> git.proxmox.com Git - mirror_ubuntu-zesty-kernel.git/blob - net/ceph/ceph_common.c
ASoC: rt5645: Adds push button support for rt5650
[mirror_ubuntu-zesty-kernel.git] / net / ceph / ceph_common.c
1
2 #include <linux/ceph/ceph_debug.h>
3 #include <linux/backing-dev.h>
4 #include <linux/ctype.h>
5 #include <linux/fs.h>
6 #include <linux/inet.h>
7 #include <linux/in6.h>
8 #include <linux/key.h>
9 #include <keys/ceph-type.h>
10 #include <linux/module.h>
11 #include <linux/mount.h>
12 #include <linux/parser.h>
13 #include <linux/sched.h>
14 #include <linux/seq_file.h>
15 #include <linux/slab.h>
16 #include <linux/statfs.h>
17 #include <linux/string.h>
18 #include <linux/vmalloc.h>
19 #include <linux/nsproxy.h>
20 #include <net/net_namespace.h>
21
22
23 #include <linux/ceph/ceph_features.h>
24 #include <linux/ceph/libceph.h>
25 #include <linux/ceph/debugfs.h>
26 #include <linux/ceph/decode.h>
27 #include <linux/ceph/mon_client.h>
28 #include <linux/ceph/auth.h>
29 #include "crypto.h"
30
31
32 /*
33 * Module compatibility interface. For now it doesn't do anything,
34 * but its existence signals a certain level of functionality.
35 *
36 * The data buffer is used to pass information both to and from
37 * libceph. The return value indicates whether libceph determines
38 * it is compatible with the caller (from another kernel module),
39 * given the provided data.
40 *
41 * The data pointer can be null.
42 */
43 bool libceph_compatible(void *data)
44 {
45 return true;
46 }
47 EXPORT_SYMBOL(libceph_compatible);
48
49 /*
50 * find filename portion of a path (/foo/bar/baz -> baz)
51 */
52 const char *ceph_file_part(const char *s, int len)
53 {
54 const char *e = s + len;
55
56 while (e != s && *(e-1) != '/')
57 e--;
58 return e;
59 }
60 EXPORT_SYMBOL(ceph_file_part);
61
62 const char *ceph_msg_type_name(int type)
63 {
64 switch (type) {
65 case CEPH_MSG_SHUTDOWN: return "shutdown";
66 case CEPH_MSG_PING: return "ping";
67 case CEPH_MSG_AUTH: return "auth";
68 case CEPH_MSG_AUTH_REPLY: return "auth_reply";
69 case CEPH_MSG_MON_MAP: return "mon_map";
70 case CEPH_MSG_MON_GET_MAP: return "mon_get_map";
71 case CEPH_MSG_MON_SUBSCRIBE: return "mon_subscribe";
72 case CEPH_MSG_MON_SUBSCRIBE_ACK: return "mon_subscribe_ack";
73 case CEPH_MSG_STATFS: return "statfs";
74 case CEPH_MSG_STATFS_REPLY: return "statfs_reply";
75 case CEPH_MSG_MON_GET_VERSION: return "mon_get_version";
76 case CEPH_MSG_MON_GET_VERSION_REPLY: return "mon_get_version_reply";
77 case CEPH_MSG_MDS_MAP: return "mds_map";
78 case CEPH_MSG_CLIENT_SESSION: return "client_session";
79 case CEPH_MSG_CLIENT_RECONNECT: return "client_reconnect";
80 case CEPH_MSG_CLIENT_REQUEST: return "client_request";
81 case CEPH_MSG_CLIENT_REQUEST_FORWARD: return "client_request_forward";
82 case CEPH_MSG_CLIENT_REPLY: return "client_reply";
83 case CEPH_MSG_CLIENT_CAPS: return "client_caps";
84 case CEPH_MSG_CLIENT_CAPRELEASE: return "client_cap_release";
85 case CEPH_MSG_CLIENT_SNAP: return "client_snap";
86 case CEPH_MSG_CLIENT_LEASE: return "client_lease";
87 case CEPH_MSG_OSD_MAP: return "osd_map";
88 case CEPH_MSG_OSD_OP: return "osd_op";
89 case CEPH_MSG_OSD_OPREPLY: return "osd_opreply";
90 case CEPH_MSG_WATCH_NOTIFY: return "watch_notify";
91 default: return "unknown";
92 }
93 }
94 EXPORT_SYMBOL(ceph_msg_type_name);
95
96 /*
97 * Initially learn our fsid, or verify an fsid matches.
98 */
99 int ceph_check_fsid(struct ceph_client *client, struct ceph_fsid *fsid)
100 {
101 if (client->have_fsid) {
102 if (ceph_fsid_compare(&client->fsid, fsid)) {
103 pr_err("bad fsid, had %pU got %pU",
104 &client->fsid, fsid);
105 return -1;
106 }
107 } else {
108 memcpy(&client->fsid, fsid, sizeof(*fsid));
109 }
110 return 0;
111 }
112 EXPORT_SYMBOL(ceph_check_fsid);
113
114 static int strcmp_null(const char *s1, const char *s2)
115 {
116 if (!s1 && !s2)
117 return 0;
118 if (s1 && !s2)
119 return -1;
120 if (!s1 && s2)
121 return 1;
122 return strcmp(s1, s2);
123 }
124
125 int ceph_compare_options(struct ceph_options *new_opt,
126 struct ceph_client *client)
127 {
128 struct ceph_options *opt1 = new_opt;
129 struct ceph_options *opt2 = client->options;
130 int ofs = offsetof(struct ceph_options, mon_addr);
131 int i;
132 int ret;
133
134 ret = memcmp(opt1, opt2, ofs);
135 if (ret)
136 return ret;
137
138 ret = strcmp_null(opt1->name, opt2->name);
139 if (ret)
140 return ret;
141
142 if (opt1->key && !opt2->key)
143 return -1;
144 if (!opt1->key && opt2->key)
145 return 1;
146 if (opt1->key && opt2->key) {
147 if (opt1->key->type != opt2->key->type)
148 return -1;
149 if (opt1->key->created.tv_sec != opt2->key->created.tv_sec)
150 return -1;
151 if (opt1->key->created.tv_nsec != opt2->key->created.tv_nsec)
152 return -1;
153 if (opt1->key->len != opt2->key->len)
154 return -1;
155 if (opt1->key->key && !opt2->key->key)
156 return -1;
157 if (!opt1->key->key && opt2->key->key)
158 return 1;
159 if (opt1->key->key && opt2->key->key) {
160 ret = memcmp(opt1->key->key, opt2->key->key, opt1->key->len);
161 if (ret)
162 return ret;
163 }
164 }
165
166 /* any matching mon ip implies a match */
167 for (i = 0; i < opt1->num_mon; i++) {
168 if (ceph_monmap_contains(client->monc.monmap,
169 &opt1->mon_addr[i]))
170 return 0;
171 }
172 return -1;
173 }
174 EXPORT_SYMBOL(ceph_compare_options);
175
176 void *ceph_kvmalloc(size_t size, gfp_t flags)
177 {
178 if (size <= (PAGE_SIZE << PAGE_ALLOC_COSTLY_ORDER)) {
179 void *ptr = kmalloc(size, flags | __GFP_NOWARN);
180 if (ptr)
181 return ptr;
182 }
183
184 return __vmalloc(size, flags | __GFP_HIGHMEM, PAGE_KERNEL);
185 }
186
187
188 static int parse_fsid(const char *str, struct ceph_fsid *fsid)
189 {
190 int i = 0;
191 char tmp[3];
192 int err = -EINVAL;
193 int d;
194
195 dout("parse_fsid '%s'\n", str);
196 tmp[2] = 0;
197 while (*str && i < 16) {
198 if (ispunct(*str)) {
199 str++;
200 continue;
201 }
202 if (!isxdigit(str[0]) || !isxdigit(str[1]))
203 break;
204 tmp[0] = str[0];
205 tmp[1] = str[1];
206 if (sscanf(tmp, "%x", &d) < 1)
207 break;
208 fsid->fsid[i] = d & 0xff;
209 i++;
210 str += 2;
211 }
212
213 if (i == 16)
214 err = 0;
215 dout("parse_fsid ret %d got fsid %pU", err, fsid);
216 return err;
217 }
218
219 /*
220 * ceph options
221 */
222 enum {
223 Opt_osdtimeout,
224 Opt_osdkeepalivetimeout,
225 Opt_mount_timeout,
226 Opt_osd_idle_ttl,
227 Opt_last_int,
228 /* int args above */
229 Opt_fsid,
230 Opt_name,
231 Opt_secret,
232 Opt_key,
233 Opt_ip,
234 Opt_last_string,
235 /* string args above */
236 Opt_share,
237 Opt_noshare,
238 Opt_crc,
239 Opt_nocrc,
240 Opt_cephx_require_signatures,
241 Opt_nocephx_require_signatures,
242 Opt_tcp_nodelay,
243 Opt_notcp_nodelay,
244 };
245
246 static match_table_t opt_tokens = {
247 {Opt_osdtimeout, "osdtimeout=%d"},
248 {Opt_osdkeepalivetimeout, "osdkeepalive=%d"},
249 {Opt_mount_timeout, "mount_timeout=%d"},
250 {Opt_osd_idle_ttl, "osd_idle_ttl=%d"},
251 /* int args above */
252 {Opt_fsid, "fsid=%s"},
253 {Opt_name, "name=%s"},
254 {Opt_secret, "secret=%s"},
255 {Opt_key, "key=%s"},
256 {Opt_ip, "ip=%s"},
257 /* string args above */
258 {Opt_share, "share"},
259 {Opt_noshare, "noshare"},
260 {Opt_crc, "crc"},
261 {Opt_nocrc, "nocrc"},
262 {Opt_cephx_require_signatures, "cephx_require_signatures"},
263 {Opt_nocephx_require_signatures, "nocephx_require_signatures"},
264 {Opt_tcp_nodelay, "tcp_nodelay"},
265 {Opt_notcp_nodelay, "notcp_nodelay"},
266 {-1, NULL}
267 };
268
269 void ceph_destroy_options(struct ceph_options *opt)
270 {
271 dout("destroy_options %p\n", opt);
272 kfree(opt->name);
273 if (opt->key) {
274 ceph_crypto_key_destroy(opt->key);
275 kfree(opt->key);
276 }
277 kfree(opt->mon_addr);
278 kfree(opt);
279 }
280 EXPORT_SYMBOL(ceph_destroy_options);
281
282 /* get secret from key store */
283 static int get_secret(struct ceph_crypto_key *dst, const char *name) {
284 struct key *ukey;
285 int key_err;
286 int err = 0;
287 struct ceph_crypto_key *ckey;
288
289 ukey = request_key(&key_type_ceph, name, NULL);
290 if (!ukey || IS_ERR(ukey)) {
291 /* request_key errors don't map nicely to mount(2)
292 errors; don't even try, but still printk */
293 key_err = PTR_ERR(ukey);
294 switch (key_err) {
295 case -ENOKEY:
296 pr_warn("ceph: Mount failed due to key not found: %s\n",
297 name);
298 break;
299 case -EKEYEXPIRED:
300 pr_warn("ceph: Mount failed due to expired key: %s\n",
301 name);
302 break;
303 case -EKEYREVOKED:
304 pr_warn("ceph: Mount failed due to revoked key: %s\n",
305 name);
306 break;
307 default:
308 pr_warn("ceph: Mount failed due to unknown key error %d: %s\n",
309 key_err, name);
310 }
311 err = -EPERM;
312 goto out;
313 }
314
315 ckey = ukey->payload.data;
316 err = ceph_crypto_key_clone(dst, ckey);
317 if (err)
318 goto out_key;
319 /* pass through, err is 0 */
320
321 out_key:
322 key_put(ukey);
323 out:
324 return err;
325 }
326
327 struct ceph_options *
328 ceph_parse_options(char *options, const char *dev_name,
329 const char *dev_name_end,
330 int (*parse_extra_token)(char *c, void *private),
331 void *private)
332 {
333 struct ceph_options *opt;
334 const char *c;
335 int err = -ENOMEM;
336 substring_t argstr[MAX_OPT_ARGS];
337
338 if (current->nsproxy->net_ns != &init_net)
339 return ERR_PTR(-EINVAL);
340
341 opt = kzalloc(sizeof(*opt), GFP_KERNEL);
342 if (!opt)
343 return ERR_PTR(-ENOMEM);
344 opt->mon_addr = kcalloc(CEPH_MAX_MON, sizeof(*opt->mon_addr),
345 GFP_KERNEL);
346 if (!opt->mon_addr)
347 goto out;
348
349 dout("parse_options %p options '%s' dev_name '%s'\n", opt, options,
350 dev_name);
351
352 /* start with defaults */
353 opt->flags = CEPH_OPT_DEFAULT;
354 opt->osd_keepalive_timeout = CEPH_OSD_KEEPALIVE_DEFAULT;
355 opt->mount_timeout = CEPH_MOUNT_TIMEOUT_DEFAULT; /* seconds */
356 opt->osd_idle_ttl = CEPH_OSD_IDLE_TTL_DEFAULT; /* seconds */
357
358 /* get mon ip(s) */
359 /* ip1[:port1][,ip2[:port2]...] */
360 err = ceph_parse_ips(dev_name, dev_name_end, opt->mon_addr,
361 CEPH_MAX_MON, &opt->num_mon);
362 if (err < 0)
363 goto out;
364
365 /* parse mount options */
366 while ((c = strsep(&options, ",")) != NULL) {
367 int token, intval, ret;
368 if (!*c)
369 continue;
370 err = -EINVAL;
371 token = match_token((char *)c, opt_tokens, argstr);
372 if (token < 0 && parse_extra_token) {
373 /* extra? */
374 err = parse_extra_token((char *)c, private);
375 if (err < 0) {
376 pr_err("bad option at '%s'\n", c);
377 goto out;
378 }
379 continue;
380 }
381 if (token < Opt_last_int) {
382 ret = match_int(&argstr[0], &intval);
383 if (ret < 0) {
384 pr_err("bad mount option arg (not int) "
385 "at '%s'\n", c);
386 continue;
387 }
388 dout("got int token %d val %d\n", token, intval);
389 } else if (token > Opt_last_int && token < Opt_last_string) {
390 dout("got string token %d val %s\n", token,
391 argstr[0].from);
392 } else {
393 dout("got token %d\n", token);
394 }
395 switch (token) {
396 case Opt_ip:
397 err = ceph_parse_ips(argstr[0].from,
398 argstr[0].to,
399 &opt->my_addr,
400 1, NULL);
401 if (err < 0)
402 goto out;
403 opt->flags |= CEPH_OPT_MYIP;
404 break;
405
406 case Opt_fsid:
407 err = parse_fsid(argstr[0].from, &opt->fsid);
408 if (err == 0)
409 opt->flags |= CEPH_OPT_FSID;
410 break;
411 case Opt_name:
412 opt->name = kstrndup(argstr[0].from,
413 argstr[0].to-argstr[0].from,
414 GFP_KERNEL);
415 break;
416 case Opt_secret:
417 opt->key = kzalloc(sizeof(*opt->key), GFP_KERNEL);
418 if (!opt->key) {
419 err = -ENOMEM;
420 goto out;
421 }
422 err = ceph_crypto_key_unarmor(opt->key, argstr[0].from);
423 if (err < 0)
424 goto out;
425 break;
426 case Opt_key:
427 opt->key = kzalloc(sizeof(*opt->key), GFP_KERNEL);
428 if (!opt->key) {
429 err = -ENOMEM;
430 goto out;
431 }
432 err = get_secret(opt->key, argstr[0].from);
433 if (err < 0)
434 goto out;
435 break;
436
437 /* misc */
438 case Opt_osdtimeout:
439 pr_warn("ignoring deprecated osdtimeout option\n");
440 break;
441 case Opt_osdkeepalivetimeout:
442 opt->osd_keepalive_timeout = intval;
443 break;
444 case Opt_osd_idle_ttl:
445 opt->osd_idle_ttl = intval;
446 break;
447 case Opt_mount_timeout:
448 opt->mount_timeout = intval;
449 break;
450
451 case Opt_share:
452 opt->flags &= ~CEPH_OPT_NOSHARE;
453 break;
454 case Opt_noshare:
455 opt->flags |= CEPH_OPT_NOSHARE;
456 break;
457
458 case Opt_crc:
459 opt->flags &= ~CEPH_OPT_NOCRC;
460 break;
461 case Opt_nocrc:
462 opt->flags |= CEPH_OPT_NOCRC;
463 break;
464
465 case Opt_cephx_require_signatures:
466 opt->flags &= ~CEPH_OPT_NOMSGAUTH;
467 break;
468 case Opt_nocephx_require_signatures:
469 opt->flags |= CEPH_OPT_NOMSGAUTH;
470 break;
471
472 case Opt_tcp_nodelay:
473 opt->flags |= CEPH_OPT_TCP_NODELAY;
474 break;
475 case Opt_notcp_nodelay:
476 opt->flags &= ~CEPH_OPT_TCP_NODELAY;
477 break;
478
479 default:
480 BUG_ON(token);
481 }
482 }
483
484 /* success */
485 return opt;
486
487 out:
488 ceph_destroy_options(opt);
489 return ERR_PTR(err);
490 }
491 EXPORT_SYMBOL(ceph_parse_options);
492
493 int ceph_print_client_options(struct seq_file *m, struct ceph_client *client)
494 {
495 struct ceph_options *opt = client->options;
496 size_t pos = m->count;
497
498 if (opt->name)
499 seq_printf(m, "name=%s,", opt->name);
500 if (opt->key)
501 seq_puts(m, "secret=<hidden>,");
502
503 if (opt->flags & CEPH_OPT_FSID)
504 seq_printf(m, "fsid=%pU,", &opt->fsid);
505 if (opt->flags & CEPH_OPT_NOSHARE)
506 seq_puts(m, "noshare,");
507 if (opt->flags & CEPH_OPT_NOCRC)
508 seq_puts(m, "nocrc,");
509 if (opt->flags & CEPH_OPT_NOMSGAUTH)
510 seq_puts(m, "nocephx_require_signatures,");
511 if ((opt->flags & CEPH_OPT_TCP_NODELAY) == 0)
512 seq_puts(m, "notcp_nodelay,");
513
514 if (opt->mount_timeout != CEPH_MOUNT_TIMEOUT_DEFAULT)
515 seq_printf(m, "mount_timeout=%d,", opt->mount_timeout);
516 if (opt->osd_idle_ttl != CEPH_OSD_IDLE_TTL_DEFAULT)
517 seq_printf(m, "osd_idle_ttl=%d,", opt->osd_idle_ttl);
518 if (opt->osd_keepalive_timeout != CEPH_OSD_KEEPALIVE_DEFAULT)
519 seq_printf(m, "osdkeepalivetimeout=%d,",
520 opt->osd_keepalive_timeout);
521
522 /* drop redundant comma */
523 if (m->count != pos)
524 m->count--;
525
526 return 0;
527 }
528 EXPORT_SYMBOL(ceph_print_client_options);
529
530 u64 ceph_client_id(struct ceph_client *client)
531 {
532 return client->monc.auth->global_id;
533 }
534 EXPORT_SYMBOL(ceph_client_id);
535
536 /*
537 * create a fresh client instance
538 */
539 struct ceph_client *ceph_create_client(struct ceph_options *opt, void *private,
540 u64 supported_features,
541 u64 required_features)
542 {
543 struct ceph_client *client;
544 struct ceph_entity_addr *myaddr = NULL;
545 int err = -ENOMEM;
546
547 client = kzalloc(sizeof(*client), GFP_KERNEL);
548 if (client == NULL)
549 return ERR_PTR(-ENOMEM);
550
551 client->private = private;
552 client->options = opt;
553
554 mutex_init(&client->mount_mutex);
555 init_waitqueue_head(&client->auth_wq);
556 client->auth_err = 0;
557
558 if (!ceph_test_opt(client, NOMSGAUTH))
559 required_features |= CEPH_FEATURE_MSG_AUTH;
560
561 client->extra_mon_dispatch = NULL;
562 client->supported_features = CEPH_FEATURES_SUPPORTED_DEFAULT |
563 supported_features;
564 client->required_features = CEPH_FEATURES_REQUIRED_DEFAULT |
565 required_features;
566
567 /* msgr */
568 if (ceph_test_opt(client, MYIP))
569 myaddr = &client->options->my_addr;
570
571 ceph_messenger_init(&client->msgr, myaddr,
572 client->supported_features,
573 client->required_features,
574 ceph_test_opt(client, NOCRC),
575 ceph_test_opt(client, TCP_NODELAY));
576
577 /* subsystems */
578 err = ceph_monc_init(&client->monc, client);
579 if (err < 0)
580 goto fail;
581 err = ceph_osdc_init(&client->osdc, client);
582 if (err < 0)
583 goto fail_monc;
584
585 return client;
586
587 fail_monc:
588 ceph_monc_stop(&client->monc);
589 fail:
590 kfree(client);
591 return ERR_PTR(err);
592 }
593 EXPORT_SYMBOL(ceph_create_client);
594
595 void ceph_destroy_client(struct ceph_client *client)
596 {
597 dout("destroy_client %p\n", client);
598
599 atomic_set(&client->msgr.stopping, 1);
600
601 /* unmount */
602 ceph_osdc_stop(&client->osdc);
603
604 ceph_monc_stop(&client->monc);
605
606 ceph_debugfs_client_cleanup(client);
607
608 ceph_destroy_options(client->options);
609
610 kfree(client);
611 dout("destroy_client %p done\n", client);
612 }
613 EXPORT_SYMBOL(ceph_destroy_client);
614
615 /*
616 * true if we have the mon map (and have thus joined the cluster)
617 */
618 static int have_mon_and_osd_map(struct ceph_client *client)
619 {
620 return client->monc.monmap && client->monc.monmap->epoch &&
621 client->osdc.osdmap && client->osdc.osdmap->epoch;
622 }
623
624 /*
625 * mount: join the ceph cluster, and open root directory.
626 */
627 int __ceph_open_session(struct ceph_client *client, unsigned long started)
628 {
629 int err;
630 unsigned long timeout = client->options->mount_timeout * HZ;
631
632 /* open session, and wait for mon and osd maps */
633 err = ceph_monc_open_session(&client->monc);
634 if (err < 0)
635 return err;
636
637 while (!have_mon_and_osd_map(client)) {
638 err = -EIO;
639 if (timeout && time_after_eq(jiffies, started + timeout))
640 return err;
641
642 /* wait */
643 dout("mount waiting for mon_map\n");
644 err = wait_event_interruptible_timeout(client->auth_wq,
645 have_mon_and_osd_map(client) || (client->auth_err < 0),
646 timeout);
647 if (err == -EINTR || err == -ERESTARTSYS)
648 return err;
649 if (client->auth_err < 0)
650 return client->auth_err;
651 }
652
653 return 0;
654 }
655 EXPORT_SYMBOL(__ceph_open_session);
656
657
658 int ceph_open_session(struct ceph_client *client)
659 {
660 int ret;
661 unsigned long started = jiffies; /* note the start time */
662
663 dout("open_session start\n");
664 mutex_lock(&client->mount_mutex);
665
666 ret = __ceph_open_session(client, started);
667
668 mutex_unlock(&client->mount_mutex);
669 return ret;
670 }
671 EXPORT_SYMBOL(ceph_open_session);
672
673
674 static int __init init_ceph_lib(void)
675 {
676 int ret = 0;
677
678 ret = ceph_debugfs_init();
679 if (ret < 0)
680 goto out;
681
682 ret = ceph_crypto_init();
683 if (ret < 0)
684 goto out_debugfs;
685
686 ret = ceph_msgr_init();
687 if (ret < 0)
688 goto out_crypto;
689
690 ret = ceph_osdc_setup();
691 if (ret < 0)
692 goto out_msgr;
693
694 pr_info("loaded (mon/osd proto %d/%d)\n",
695 CEPH_MONC_PROTOCOL, CEPH_OSDC_PROTOCOL);
696
697 return 0;
698
699 out_msgr:
700 ceph_msgr_exit();
701 out_crypto:
702 ceph_crypto_shutdown();
703 out_debugfs:
704 ceph_debugfs_cleanup();
705 out:
706 return ret;
707 }
708
709 static void __exit exit_ceph_lib(void)
710 {
711 dout("exit_ceph_lib\n");
712 ceph_osdc_cleanup();
713 ceph_msgr_exit();
714 ceph_crypto_shutdown();
715 ceph_debugfs_cleanup();
716 }
717
718 module_init(init_ceph_lib);
719 module_exit(exit_ceph_lib);
720
721 MODULE_AUTHOR("Sage Weil <sage@newdream.net>");
722 MODULE_AUTHOR("Yehuda Sadeh <yehuda@hq.newdream.net>");
723 MODULE_AUTHOR("Patience Warnick <patience@newdream.net>");
724 MODULE_DESCRIPTION("Ceph filesystem for Linux");
725 MODULE_LICENSE("GPL");