Added multiple files enqueues

diff --git a/NGL fserv/changelog.txt b/NGL fserv/changelog.txt
index 5cd5301582f6311897c7588f2a15cc0866a1c07e..9bef1039a3e3367b8ec3c48a32a2bcee566d0b78 100644 (file)
--- a/NGL fserv/changelog.txt
+++ b/NGL fserv/changelog.txt
@@ -1,3 +1,6 @@
+[Noldor, 07 February 2007]\r
+- Added multiple files enqueues\r
+\r
 [Noldor, 06 February 2007]\r
 - First step to script localization: there are problems on .mo compilation on win.. Hope we fix it soon ;)... Anyway, now all string support $tr();\r
 - Working on the "new" gui: applly, cancel and ok button will appear very soon: need to manage some internal tab coding (tab channel and trigger).\r

diff --git a/NGL fserv/install.kvs b/NGL fserv/install.kvs
index 158d2884ba132211d6445b7714e6ec3f016960ac..e72e1b90927794fcbf0d85b9fcf36cfa4355f4db 100644 (file)
--- a/NGL fserv/install.kvs
+++ b/NGL fserv/install.kvs
@@ -271,27 +271,30 @@ defpopup(NGLfserv_nick)
 \r
        item($tr("Enqueue file","NGLfserv"),257) ($(%Send->$count()>0))\r
        {\r
-               dialog.file(open,%NGLlogo,,,$0) {\r
+               dialog.file(openm,%NGLlogo,%G_dir,,$0) {\r
                        if ($0) {\r
-                               %fl_send = $new(object)\r
-                               %fl_send->%completepath = $0\r
-                               %fl_send->%size = $file.size(%fl_send->%completepath)\r
-                               %fl_send->%file = $file.extractfilename(%fl_send->%completepath)\r
-                               %fl_send->%retries = 0\r
-                               %fl_send->%nick = $1\r
-                               %fl_send->%initialNick = %fl_send->%nick\r
-                               %fl_send->%nickStatus = "op"\r
-                               %fl_send->%ircContext = $context()\r
-                               %fl_send->%console = $console(%fl_send->%ircContext)\r
-                               %fl_send->%serverName = $server()\r
-\r
-                               %Queues->$append(%fl_send)\r
-                               if(!%Nick_nr_queues{%fl_send->%nick}) %Nick_nr_queues{%fl_send->%nick}=0\r
-                               %Nick_nr_queues{%fl_send->%nick}++\r
-                               if($objects.exists(%NGLmonitor)) {\r
-                                       %NGLmonitor->$showQueues()\r
+                               %G_dir=$file.extractpath($0)\r
+                               %files[]=$0\r
+                               foreach(%file,%files[]){\r
+                                       %fl_send = $new(object)\r
+                                       %fl_send->%completepath = %file\r
+                                       %fl_send->%size = $file.size(%fl_send->%completepath)\r
+                                       %fl_send->%file = $file.extractfilename(%fl_send->%completepath)\r
+                                       %fl_send->%retries = 0\r
+                                       %fl_send->%nick = $1\r
+                                       %fl_send->%initialNick = %fl_send->%nick\r
+                                       %fl_send->%nickStatus = "op"\r
+                                       %fl_send->%ircContext = $context()\r
+                                       %fl_send->%console = $console(%fl_send->%ircContext)\r
+                                       %fl_send->%serverName = $server()\r
+                                       %Queues->$append(%fl_send)\r
+                                       if(!%Nick_nr_queues{%fl_send->%nick}) %Nick_nr_queues{%fl_send->%nick}=0\r
+                                       %Nick_nr_queues{%fl_send->%nick}++\r
+                                       if($objects.exists(%NGLmonitor)) {\r
+                                               %NGLmonitor->$showQueues()\r
+                                       }\r
                                }\r
-                               NGLfserv::config::saveSendAndQueues\r
+                                       NGLfserv::config::saveSendAndQueues\r
                        }\r
                }\r
        }\r