4 * Copyright (C) 1995, 1996 by Paal-Kr. Engstad and Volker Lendecke
5 * Copyright (C) 1997 by Volker Lendecke
7 * Please add a note about your changes to smbfs in the ChangeLog file.
10 #include <linux/module.h>
11 #include <linux/time.h>
12 #include <linux/kernel.h>
14 #include <linux/string.h>
15 #include <linux/stat.h>
16 #include <linux/errno.h>
17 #include <linux/slab.h>
18 #include <linux/init.h>
19 #include <linux/file.h>
20 #include <linux/dcache.h>
21 #include <linux/smp_lock.h>
22 #include <linux/nls.h>
23 #include <linux/seq_file.h>
24 #include <linux/mount.h>
25 #include <linux/net.h>
26 #include <linux/vfs.h>
27 #include <linux/highuid.h>
28 #include <linux/smb_fs.h>
29 #include <linux/smbno.h>
30 #include <linux/smb_mount.h>
32 #include <asm/system.h>
33 #include <asm/uaccess.h>
35 #include "smb_debug.h"
39 /* Always pick a default string */
40 #ifdef CONFIG_SMB_NLS_REMOTE
41 #define SMB_NLS_REMOTE CONFIG_SMB_NLS_REMOTE
43 #define SMB_NLS_REMOTE ""
46 #define SMB_TTL_DEFAULT 1000
48 static void smb_delete_inode(struct inode
*);
49 static void smb_put_super(struct super_block
*);
50 static int smb_statfs(struct dentry
*, struct kstatfs
*);
51 static int smb_show_options(struct seq_file
*, struct vfsmount
*);
53 static struct kmem_cache
*smb_inode_cachep
;
55 static struct inode
*smb_alloc_inode(struct super_block
*sb
)
57 struct smb_inode_info
*ei
;
58 ei
= (struct smb_inode_info
*)kmem_cache_alloc(smb_inode_cachep
, GFP_KERNEL
);
61 return &ei
->vfs_inode
;
64 static void smb_destroy_inode(struct inode
*inode
)
66 kmem_cache_free(smb_inode_cachep
, SMB_I(inode
));
69 static void init_once(void * foo
, struct kmem_cache
* cachep
, unsigned long flags
)
71 struct smb_inode_info
*ei
= (struct smb_inode_info
*) foo
;
73 inode_init_once(&ei
->vfs_inode
);
76 static int init_inodecache(void)
78 smb_inode_cachep
= kmem_cache_create("smb_inode_cache",
79 sizeof(struct smb_inode_info
),
80 0, (SLAB_RECLAIM_ACCOUNT
|
83 if (smb_inode_cachep
== NULL
)
88 static void destroy_inodecache(void)
90 kmem_cache_destroy(smb_inode_cachep
);
93 static int smb_remount(struct super_block
*sb
, int *flags
, char *data
)
95 *flags
|= MS_NODIRATIME
;
99 static const struct super_operations smb_sops
=
101 .alloc_inode
= smb_alloc_inode
,
102 .destroy_inode
= smb_destroy_inode
,
103 .drop_inode
= generic_delete_inode
,
104 .delete_inode
= smb_delete_inode
,
105 .put_super
= smb_put_super
,
106 .statfs
= smb_statfs
,
107 .show_options
= smb_show_options
,
108 .remount_fs
= smb_remount
,
112 /* We are always generating a new inode here */
114 smb_iget(struct super_block
*sb
, struct smb_fattr
*fattr
)
116 struct smb_sb_info
*server
= SMB_SB(sb
);
117 struct inode
*result
;
119 DEBUG1("smb_iget: %p\n", fattr
);
121 result
= new_inode(sb
);
124 result
->i_ino
= fattr
->f_ino
;
125 SMB_I(result
)->open
= 0;
126 SMB_I(result
)->fileid
= 0;
127 SMB_I(result
)->access
= 0;
128 SMB_I(result
)->flags
= 0;
129 SMB_I(result
)->closed
= 0;
130 SMB_I(result
)->openers
= 0;
131 smb_set_inode_attr(result
, fattr
);
132 if (S_ISREG(result
->i_mode
)) {
133 result
->i_op
= &smb_file_inode_operations
;
134 result
->i_fop
= &smb_file_operations
;
135 result
->i_data
.a_ops
= &smb_file_aops
;
136 } else if (S_ISDIR(result
->i_mode
)) {
137 if (server
->opt
.capabilities
& SMB_CAP_UNIX
)
138 result
->i_op
= &smb_dir_inode_operations_unix
;
140 result
->i_op
= &smb_dir_inode_operations
;
141 result
->i_fop
= &smb_dir_operations
;
142 } else if (S_ISLNK(result
->i_mode
)) {
143 result
->i_op
= &smb_link_inode_operations
;
145 init_special_inode(result
, result
->i_mode
, fattr
->f_rdev
);
147 insert_inode_hash(result
);
152 * Copy the inode data to a smb_fattr structure.
155 smb_get_inode_attr(struct inode
*inode
, struct smb_fattr
*fattr
)
157 memset(fattr
, 0, sizeof(struct smb_fattr
));
158 fattr
->f_mode
= inode
->i_mode
;
159 fattr
->f_nlink
= inode
->i_nlink
;
160 fattr
->f_ino
= inode
->i_ino
;
161 fattr
->f_uid
= inode
->i_uid
;
162 fattr
->f_gid
= inode
->i_gid
;
163 fattr
->f_size
= inode
->i_size
;
164 fattr
->f_mtime
= inode
->i_mtime
;
165 fattr
->f_ctime
= inode
->i_ctime
;
166 fattr
->f_atime
= inode
->i_atime
;
167 fattr
->f_blocks
= inode
->i_blocks
;
169 fattr
->attr
= SMB_I(inode
)->attr
;
171 * Keep the attributes in sync with the inode permissions.
173 if (fattr
->f_mode
& S_IWUSR
)
174 fattr
->attr
&= ~aRONLY
;
176 fattr
->attr
|= aRONLY
;
180 * Update the inode, possibly causing it to invalidate its pages if mtime/size
181 * is different from last time.
184 smb_set_inode_attr(struct inode
*inode
, struct smb_fattr
*fattr
)
186 struct smb_inode_info
*ei
= SMB_I(inode
);
189 * A size change should have a different mtime, or same mtime
190 * but different size.
192 time_t last_time
= inode
->i_mtime
.tv_sec
;
193 loff_t last_sz
= inode
->i_size
;
195 inode
->i_mode
= fattr
->f_mode
;
196 inode
->i_nlink
= fattr
->f_nlink
;
197 inode
->i_uid
= fattr
->f_uid
;
198 inode
->i_gid
= fattr
->f_gid
;
199 inode
->i_ctime
= fattr
->f_ctime
;
200 inode
->i_blocks
= fattr
->f_blocks
;
201 inode
->i_size
= fattr
->f_size
;
202 inode
->i_mtime
= fattr
->f_mtime
;
203 inode
->i_atime
= fattr
->f_atime
;
204 ei
->attr
= fattr
->attr
;
207 * Update the "last time refreshed" field for revalidation.
209 ei
->oldmtime
= jiffies
;
211 if (inode
->i_mtime
.tv_sec
!= last_time
|| inode
->i_size
!= last_sz
) {
212 VERBOSE("%ld changed, old=%ld, new=%ld, oz=%ld, nz=%ld\n",
214 (long) last_time
, (long) inode
->i_mtime
.tv_sec
,
215 (long) last_sz
, (long) inode
->i_size
);
217 if (!S_ISDIR(inode
->i_mode
))
218 invalidate_remote_inode(inode
);
223 * This is called if the connection has gone bad ...
224 * try to kill off all the current inodes.
227 smb_invalidate_inodes(struct smb_sb_info
*server
)
230 shrink_dcache_sb(SB_of(server
));
231 invalidate_inodes(SB_of(server
));
235 * This is called to update the inode attributes after
236 * we've made changes to a file or directory.
239 smb_refresh_inode(struct dentry
*dentry
)
241 struct inode
*inode
= dentry
->d_inode
;
243 struct smb_fattr fattr
;
245 error
= smb_proc_getattr(dentry
, &fattr
);
247 smb_renew_times(dentry
);
249 * Check whether the type part of the mode changed,
250 * and don't update the attributes if it did.
252 * And don't dick with the root inode
254 if (inode
->i_ino
== 2)
256 if (S_ISLNK(inode
->i_mode
))
257 return error
; /* VFS will deal with it */
259 if ((inode
->i_mode
& S_IFMT
) == (fattr
.f_mode
& S_IFMT
)) {
260 smb_set_inode_attr(inode
, &fattr
);
263 * Big trouble! The inode has become a new object,
264 * so any operations attempted on it are invalid.
266 * To limit damage, mark the inode as bad so that
267 * subsequent lookup validations will fail.
269 PARANOIA("%s/%s changed mode, %07o to %07o\n",
271 inode
->i_mode
, fattr
.f_mode
);
273 fattr
.f_mode
= inode
->i_mode
; /* save mode */
274 make_bad_inode(inode
);
275 inode
->i_mode
= fattr
.f_mode
; /* restore mode */
277 * No need to worry about unhashing the dentry: the
278 * lookup validation will see that the inode is bad.
279 * But we do want to invalidate the caches ...
281 if (!S_ISDIR(inode
->i_mode
))
282 invalidate_remote_inode(inode
);
284 smb_invalid_dir_cache(inode
);
292 * This is called when we want to check whether the inode
293 * has changed on the server. If it has changed, we must
294 * invalidate our local caches.
297 smb_revalidate_inode(struct dentry
*dentry
)
299 struct smb_sb_info
*s
= server_from_dentry(dentry
);
300 struct inode
*inode
= dentry
->d_inode
;
303 DEBUG1("smb_revalidate_inode\n");
307 * Check whether we've recently refreshed the inode.
309 if (time_before(jiffies
, SMB_I(inode
)->oldmtime
+ SMB_MAX_AGE(s
))) {
310 VERBOSE("up-to-date, ino=%ld, jiffies=%lu, oldtime=%lu\n",
311 inode
->i_ino
, jiffies
, SMB_I(inode
)->oldmtime
);
315 error
= smb_refresh_inode(dentry
);
322 * This routine is called when i_nlink == 0 and i_count goes to 0.
323 * All blocking cleanup operations need to go here to avoid races.
326 smb_delete_inode(struct inode
*ino
)
328 DEBUG1("ino=%ld\n", ino
->i_ino
);
329 truncate_inode_pages(&ino
->i_data
, 0);
332 PARANOIA("could not close inode %ld\n", ino
->i_ino
);
337 static struct option opts
[] = {
338 { "version", 0, 'v' },
339 { "win95", SMB_MOUNT_WIN95
, 1 },
340 { "oldattr", SMB_MOUNT_OLDATTR
, 1 },
341 { "dirattr", SMB_MOUNT_DIRATTR
, 1 },
342 { "case", SMB_MOUNT_CASE
, 1 },
345 { "file_mode", 0, 'f' },
346 { "dir_mode", 0, 'd' },
347 { "iocharset", 0, 'i' },
348 { "codepage", 0, 'c' },
354 parse_options(struct smb_mount_data_kernel
*mnt
, char *options
)
363 while ( (c
= smb_getopt("smbfs", &options
, opts
,
364 &optopt
, &optarg
, &flags
, &value
)) > 0) {
366 VERBOSE("'%s' -> '%s'\n", optopt
, optarg
? optarg
: "<none>");
369 /* got a "flag" option */
372 if (value
!= SMB_MOUNT_VERSION
) {
373 printk ("smbfs: Bad mount version %ld, expected %d\n",
374 value
, SMB_MOUNT_VERSION
);
377 mnt
->version
= value
;
381 flags
|= SMB_MOUNT_UID
;
385 flags
|= SMB_MOUNT_GID
;
388 mnt
->file_mode
= (value
& S_IRWXUGO
) | S_IFREG
;
389 flags
|= SMB_MOUNT_FMODE
;
392 mnt
->dir_mode
= (value
& S_IRWXUGO
) | S_IFDIR
;
393 flags
|= SMB_MOUNT_DMODE
;
396 strlcpy(mnt
->codepage
.local_name
, optarg
,
400 strlcpy(mnt
->codepage
.remote_name
, optarg
,
407 printk ("smbfs: Unrecognized mount option %s\n",
417 * smb_show_options() is for displaying mount options in /proc/mounts.
418 * It tries to avoid showing settings that were not changed from their
422 smb_show_options(struct seq_file
*s
, struct vfsmount
*m
)
424 struct smb_mount_data_kernel
*mnt
= SMB_SB(m
->mnt_sb
)->mnt
;
427 for (i
= 0; opts
[i
].name
!= NULL
; i
++)
428 if (mnt
->flags
& opts
[i
].flag
)
429 seq_printf(s
, ",%s", opts
[i
].name
);
431 if (mnt
->flags
& SMB_MOUNT_UID
)
432 seq_printf(s
, ",uid=%d", mnt
->uid
);
433 if (mnt
->flags
& SMB_MOUNT_GID
)
434 seq_printf(s
, ",gid=%d", mnt
->gid
);
435 if (mnt
->mounted_uid
!= 0)
436 seq_printf(s
, ",mounted_uid=%d", mnt
->mounted_uid
);
439 * Defaults for file_mode and dir_mode are unknown to us; they
440 * depend on the current umask of the user doing the mount.
442 if (mnt
->flags
& SMB_MOUNT_FMODE
)
443 seq_printf(s
, ",file_mode=%04o", mnt
->file_mode
& S_IRWXUGO
);
444 if (mnt
->flags
& SMB_MOUNT_DMODE
)
445 seq_printf(s
, ",dir_mode=%04o", mnt
->dir_mode
& S_IRWXUGO
);
447 if (strcmp(mnt
->codepage
.local_name
, CONFIG_NLS_DEFAULT
))
448 seq_printf(s
, ",iocharset=%s", mnt
->codepage
.local_name
);
449 if (strcmp(mnt
->codepage
.remote_name
, SMB_NLS_REMOTE
))
450 seq_printf(s
, ",codepage=%s", mnt
->codepage
.remote_name
);
452 if (mnt
->ttl
!= SMB_TTL_DEFAULT
)
453 seq_printf(s
, ",ttl=%d", mnt
->ttl
);
459 smb_unload_nls(struct smb_sb_info
*server
)
461 if (server
->remote_nls
) {
462 unload_nls(server
->remote_nls
);
463 server
->remote_nls
= NULL
;
465 if (server
->local_nls
) {
466 unload_nls(server
->local_nls
);
467 server
->local_nls
= NULL
;
472 smb_put_super(struct super_block
*sb
)
474 struct smb_sb_info
*server
= SMB_SB(sb
);
476 smb_lock_server(server
);
477 server
->state
= CONN_INVALID
;
478 smbiod_unregister_server(server
);
480 smb_close_socket(server
);
482 if (server
->conn_pid
)
483 kill_pid(server
->conn_pid
, SIGTERM
, 1);
486 smb_unload_nls(server
);
487 sb
->s_fs_info
= NULL
;
488 smb_unlock_server(server
);
489 put_pid(server
->conn_pid
);
493 static int smb_fill_super(struct super_block
*sb
, void *raw_data
, int silent
)
495 struct smb_sb_info
*server
;
496 struct smb_mount_data_kernel
*mnt
;
497 struct smb_mount_data
*oldmnt
;
498 struct inode
*root_inode
;
499 struct smb_fattr root
;
506 oldmnt
= (struct smb_mount_data
*) raw_data
;
507 ver
= oldmnt
->version
;
508 if (ver
!= SMB_MOUNT_OLDVERSION
&& cpu_to_be32(ver
) != SMB_MOUNT_ASCII
)
511 sb
->s_flags
|= MS_NODIRATIME
;
512 sb
->s_blocksize
= 1024; /* Eh... Is this correct? */
513 sb
->s_blocksize_bits
= 10;
514 sb
->s_magic
= SMB_SUPER_MAGIC
;
515 sb
->s_op
= &smb_sops
;
516 sb
->s_time_gran
= 100;
518 server
= kzalloc(sizeof(struct smb_sb_info
), GFP_KERNEL
);
521 sb
->s_fs_info
= server
;
523 server
->super_block
= sb
;
525 server
->sock_file
= NULL
;
526 init_waitqueue_head(&server
->conn_wq
);
527 init_MUTEX(&server
->sem
);
528 INIT_LIST_HEAD(&server
->entry
);
529 INIT_LIST_HEAD(&server
->xmitq
);
530 INIT_LIST_HEAD(&server
->recvq
);
531 server
->conn_error
= 0;
532 server
->conn_pid
= NULL
;
533 server
->state
= CONN_INVALID
; /* no connection yet */
534 server
->generation
= 0;
536 /* Allocate the global temp buffer and some superblock helper structs */
537 /* FIXME: move these to the smb_sb_info struct */
538 VERBOSE("alloc chunk = %d\n", sizeof(struct smb_ops
) +
539 sizeof(struct smb_mount_data_kernel
));
540 mem
= kmalloc(sizeof(struct smb_ops
) +
541 sizeof(struct smb_mount_data_kernel
), GFP_KERNEL
);
546 smb_install_null_ops(server
->ops
);
547 server
->mnt
= mem
+ sizeof(struct smb_ops
);
549 /* Setup NLS stuff */
550 server
->remote_nls
= NULL
;
551 server
->local_nls
= NULL
;
555 memset(mnt
, 0, sizeof(struct smb_mount_data_kernel
));
556 strlcpy(mnt
->codepage
.local_name
, CONFIG_NLS_DEFAULT
,
558 strlcpy(mnt
->codepage
.remote_name
, SMB_NLS_REMOTE
,
561 mnt
->ttl
= SMB_TTL_DEFAULT
;
562 if (ver
== SMB_MOUNT_OLDVERSION
) {
563 mnt
->version
= oldmnt
->version
;
565 SET_UID(mnt
->uid
, oldmnt
->uid
);
566 SET_GID(mnt
->gid
, oldmnt
->gid
);
568 mnt
->file_mode
= (oldmnt
->file_mode
& S_IRWXUGO
) | S_IFREG
;
569 mnt
->dir_mode
= (oldmnt
->dir_mode
& S_IRWXUGO
) | S_IFDIR
;
571 mnt
->flags
= (oldmnt
->file_mode
>> 9) | SMB_MOUNT_UID
|
572 SMB_MOUNT_GID
| SMB_MOUNT_FMODE
| SMB_MOUNT_DMODE
;
574 mnt
->file_mode
= S_IRWXU
| S_IRGRP
| S_IXGRP
|
575 S_IROTH
| S_IXOTH
| S_IFREG
;
576 mnt
->dir_mode
= S_IRWXU
| S_IRGRP
| S_IXGRP
|
577 S_IROTH
| S_IXOTH
| S_IFDIR
;
578 if (parse_options(mnt
, raw_data
))
581 mnt
->mounted_uid
= current
->uid
;
582 smb_setcodepage(server
, &mnt
->codepage
);
585 * Display the enabled options
586 * Note: smb_proc_getattr uses these in 2.4 (but was changed in 2.2)
588 if (mnt
->flags
& SMB_MOUNT_OLDATTR
)
589 printk("SMBFS: Using core getattr (Win 95 speedup)\n");
590 else if (mnt
->flags
& SMB_MOUNT_DIRATTR
)
591 printk("SMBFS: Using dir ff getattr\n");
593 if (smbiod_register_server(server
) < 0) {
594 printk(KERN_ERR
"smbfs: failed to start smbiod\n");
599 * Keep the super block locked while we get the root inode.
601 smb_init_root_dirent(server
, &root
, sb
);
602 root_inode
= smb_iget(sb
, &root
);
606 sb
->s_root
= d_alloc_root(root_inode
);
610 smb_new_dentry(sb
->s_root
);
617 smb_unload_nls(server
);
622 printk(KERN_ERR
"smb_fill_super: allocation failure\n");
623 sb
->s_fs_info
= NULL
;
627 printk(KERN_ERR
"smbfs: mount_data version %d is not supported\n", ver
);
630 printk(KERN_ERR
"smb_fill_super: missing data argument\n");
634 printk(KERN_ERR
"smb_fill_super: cannot allocate struct smb_sb_info\n");
639 smb_statfs(struct dentry
*dentry
, struct kstatfs
*buf
)
645 result
= smb_proc_dskattr(dentry
, buf
);
649 buf
->f_type
= SMB_SUPER_MAGIC
;
650 buf
->f_namelen
= SMB_MAXPATHLEN
;
654 int smb_getattr(struct vfsmount
*mnt
, struct dentry
*dentry
, struct kstat
*stat
)
656 int err
= smb_revalidate_inode(dentry
);
658 generic_fillattr(dentry
->d_inode
, stat
);
663 smb_notify_change(struct dentry
*dentry
, struct iattr
*attr
)
665 struct inode
*inode
= dentry
->d_inode
;
666 struct smb_sb_info
*server
= server_from_dentry(dentry
);
667 unsigned int mask
= (S_IFREG
| S_IFDIR
| S_IRWXUGO
);
668 int error
, changed
, refresh
= 0;
669 struct smb_fattr fattr
;
673 error
= smb_revalidate_inode(dentry
);
677 if ((error
= inode_change_ok(inode
, attr
)) < 0)
681 if ((attr
->ia_valid
& ATTR_UID
) && (attr
->ia_uid
!= server
->mnt
->uid
))
684 if ((attr
->ia_valid
& ATTR_GID
) && (attr
->ia_uid
!= server
->mnt
->gid
))
687 if ((attr
->ia_valid
& ATTR_MODE
) && (attr
->ia_mode
& ~mask
))
690 if ((attr
->ia_valid
& ATTR_SIZE
) != 0) {
691 VERBOSE("changing %s/%s, old size=%ld, new size=%ld\n",
693 (long) inode
->i_size
, (long) attr
->ia_size
);
695 filemap_write_and_wait(inode
->i_mapping
);
697 error
= smb_open(dentry
, O_WRONLY
);
700 error
= server
->ops
->truncate(inode
, attr
->ia_size
);
703 error
= vmtruncate(inode
, attr
->ia_size
);
709 if (server
->opt
.capabilities
& SMB_CAP_UNIX
) {
710 /* For now we don't want to set the size with setattr_unix */
711 attr
->ia_valid
&= ~ATTR_SIZE
;
712 /* FIXME: only call if we actually want to set something? */
713 error
= smb_proc_setattr_unix(dentry
, attr
, 0, 0);
721 * Initialize the fattr and check for changed fields.
722 * Note: CTIME under SMB is creation time rather than
723 * change time, so we don't attempt to change it.
725 smb_get_inode_attr(inode
, &fattr
);
728 if ((attr
->ia_valid
& ATTR_MTIME
) != 0) {
729 fattr
.f_mtime
= attr
->ia_mtime
;
732 if ((attr
->ia_valid
& ATTR_ATIME
) != 0) {
733 fattr
.f_atime
= attr
->ia_atime
;
734 /* Earlier protocols don't have an access time */
735 if (server
->opt
.protocol
>= SMB_PROTOCOL_LANMAN2
)
739 error
= smb_proc_settime(dentry
, &fattr
);
746 * Check for mode changes ... we're extremely limited in
747 * what can be set for SMB servers: just the read-only bit.
749 if ((attr
->ia_valid
& ATTR_MODE
) != 0) {
750 VERBOSE("%s/%s mode change, old=%x, new=%x\n",
751 DENTRY_PATH(dentry
), fattr
.f_mode
, attr
->ia_mode
);
753 if (attr
->ia_mode
& S_IWUSR
) {
754 if (fattr
.attr
& aRONLY
) {
755 fattr
.attr
&= ~aRONLY
;
759 if (!(fattr
.attr
& aRONLY
)) {
760 fattr
.attr
|= aRONLY
;
765 error
= smb_proc_setattr(dentry
, &fattr
);
775 smb_refresh_inode(dentry
);
780 static int smb_get_sb(struct file_system_type
*fs_type
,
781 int flags
, const char *dev_name
, void *data
, struct vfsmount
*mnt
)
783 return get_sb_nodev(fs_type
, flags
, data
, smb_fill_super
, mnt
);
786 static struct file_system_type smb_fs_type
= {
787 .owner
= THIS_MODULE
,
789 .get_sb
= smb_get_sb
,
790 .kill_sb
= kill_anon_super
,
791 .fs_flags
= FS_BINARY_MOUNTDATA
,
794 static int __init
init_smb_fs(void)
797 DEBUG1("registering ...\n");
799 err
= init_inodecache();
802 err
= smb_init_request_cache();
805 err
= register_filesystem(&smb_fs_type
);
810 smb_destroy_request_cache();
812 destroy_inodecache();
817 static void __exit
exit_smb_fs(void)
819 DEBUG1("unregistering ...\n");
820 unregister_filesystem(&smb_fs_type
);
821 smb_destroy_request_cache();
822 destroy_inodecache();
825 module_init(init_smb_fs
)
826 module_exit(exit_smb_fs
)
827 MODULE_LICENSE("GPL");