Fixed a memory leak in the trpipe fitting.
[doldaconnect.git] / daemon / transfer.c
1 /*
2  *  Dolda Connect - Modular multiuser Direct Connect-style client
3  *  Copyright (C) 2004 Fredrik Tolf <fredrik@dolda2000.com>
4  *  
5  *  This program is free software; you can redistribute it and/or modify
6  *  it under the terms of the GNU General Public License as published by
7  *  the Free Software Foundation; either version 2 of the License, or
8  *  (at your option) any later version.
9  *  
10  *  This program is distributed in the hope that it will be useful,
11  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
12  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13  *  GNU General Public License for more details.
14  *  
15  *  You should have received a copy of the GNU General Public License
16  *  along with this program; if not, write to the Free Software
17  *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
18 */
19 #include <stdlib.h>
20 #include <string.h>
21 #include <time.h>
22 #include <unistd.h>
23 #include <fcntl.h>
24 #include <signal.h>
25 #include <pwd.h>
26 #include <grp.h>
27 #include <errno.h>
28 #include <sys/wait.h>
29 #include <stdint.h>
30
31 #ifdef HAVE_CONFIG_H
32 #include <config.h>
33 #endif
34 #include "log.h"
35 #include "utils.h"
36 #include "sysevents.h"
37 #include "auth.h"
38 #include "transfer.h"
39 #include "module.h"
40 #include "client.h"
41
42 static void killfilter(struct transfer *transfer);
43
44 unsigned long long bytesupload = 0;
45 unsigned long long bytesdownload = 0;
46 struct transfer *transfers = NULL;
47 int numtransfers = 0;
48 GCBCHAIN(newtransfercb, struct transfer *);
49
50 void freetransfer(struct transfer *transfer)
51 {
52     if(transfer == transfers)
53         transfers = transfer->next;
54     if(transfer->next != NULL)
55         transfer->next->prev = transfer->prev;
56     if(transfer->prev != NULL)
57         transfer->prev->next = transfer->next;
58     CBCHAINDOCB(transfer, trans_destroy, transfer);
59     CBCHAINFREE(transfer, trans_ac);
60     CBCHAINFREE(transfer, trans_act);
61     CBCHAINFREE(transfer, trans_p);
62     CBCHAINFREE(transfer, trans_destroy);
63     CBCHAINFREE(transfer, trans_filterout);
64     while(transfer->args != NULL)
65         freewcspair(transfer->args, &transfer->args);
66     if(transfer->filter != -1)
67         killfilter(transfer);
68     if(transfer->etimer != NULL)
69         canceltimer(transfer->etimer);
70     if(transfer->auth != NULL)
71         authputhandle(transfer->auth);
72     if(transfer->peerid != NULL)
73         free(transfer->peerid);
74     if(transfer->peernick != NULL)
75         free(transfer->peernick);
76     if(transfer->path != NULL)
77         free(transfer->path);
78     if(transfer->actdesc != NULL)
79         free(transfer->actdesc);
80     if(transfer->filterbuf != NULL)
81         free(transfer->filterbuf);
82     if(transfer->hash != NULL)
83         freehash(transfer->hash);
84     if(transfer->exitstatus != NULL)
85         free(transfer->exitstatus);
86     if(transfer->localend != NULL)
87     {
88         transfer->localend->readcb = NULL;
89         transfer->localend->writecb = NULL;
90         transfer->localend->errcb = NULL;
91         putsock(transfer->localend);
92     }
93     if(transfer->filterout != NULL)
94     {
95         transfer->filterout->readcb = NULL;
96         transfer->filterout->writecb = NULL;
97         transfer->filterout->errcb = NULL;
98         putsock(transfer->filterout);
99     }
100     if(transfer->fn != NULL)
101         putfnetnode(transfer->fn);
102     free(transfer);
103     numtransfers--;
104 }
105
106 struct transfer *newtransfer(void)
107 {
108     struct transfer *new;
109     static int curid = 0;
110     
111     new = smalloc(sizeof(*new));
112     memset(new, 0, sizeof(*new));
113     new->id = curid++;
114     new->size = -1;
115     new->endpos = -1;
116     new->filter = -1;
117     CBCHAININIT(new, trans_ac);
118     CBCHAININIT(new, trans_act);
119     CBCHAININIT(new, trans_p);
120     CBCHAININIT(new, trans_destroy);
121     CBCHAININIT(new, trans_filterout);
122     new->next = NULL;
123     new->prev = NULL;
124     time(&new->activity);
125     numtransfers++;
126     return(new);
127 }
128
129 static void localread(struct socket *sk, struct transfer *transfer)
130 {
131     void *buf;
132     size_t blen;
133     
134     if((transfer->datapipe != NULL) && (sockqueueleft(transfer->datapipe) > 0)) {
135         buf = sockgetinbuf(sk, &blen);
136         sockqueue(transfer->datapipe, buf, blen);
137         free(buf);
138         time(&transfer->activity);
139         transfer->curpos += blen;
140         bytesupload += blen;
141         CBCHAINDOCB(transfer, trans_p, transfer);
142     }
143 }
144
145 static void dataread(struct socket *sk, struct transfer *transfer)
146 {
147     void *buf;
148     size_t blen;
149     
150     if((transfer->localend != NULL) && (sockqueueleft(transfer->localend) > 0)) {
151         buf = sockgetinbuf(sk, &blen);
152         sockqueue(transfer->localend, buf, blen);
153         free(buf);
154         transfer->curpos += blen;
155         bytesdownload += blen;
156         CBCHAINDOCB(transfer, trans_p, transfer);
157     }
158 }
159
160 static void localwrite(struct socket *sk, struct transfer *transfer)
161 {
162     if(transfer->datapipe != NULL)
163         dataread(transfer->datapipe, transfer);
164 }
165
166 static void datawrite(struct socket *sk, struct transfer *transfer)
167 {
168     if(transfer->localend != NULL)
169         localread(transfer->localend, transfer);
170 }
171
172 static void localerr(struct socket *sk, int errno, struct transfer *transfer)
173 {
174     if(transfer->datapipe != NULL)
175         closesock(transfer->datapipe);
176 }
177
178 static void dataerr(struct socket *sk, int errno, struct transfer *transfer)
179 {
180     if(transfer->curpos >= transfer->size) {
181         transfersetstate(transfer, TRNS_DONE);
182         closesock(transfer->localend);
183         quitsock(transfer->localend);
184         transfer->localend = NULL;
185     } else {
186         resettransfer(transfer);
187     }
188 }
189
190 void transferattach(struct transfer *transfer, struct socket *dpipe)
191 {
192     transferdetach(transfer);
193     getsock(transfer->datapipe = dpipe);
194     dpipe->readcb = (void (*)(struct socket *, void *))dataread;
195     dpipe->writecb = (void (*)(struct socket *, void *))datawrite;
196     dpipe->errcb = (void (*)(struct socket *, int, void *))dataerr;
197     dpipe->data = transfer;
198 }
199
200 void transferdetach(struct transfer *transfer)
201 {
202     if(transfer->datapipe != NULL) {
203         closesock(transfer->datapipe);
204         quitsock(transfer->datapipe);
205     }
206     transfer->datapipe = NULL;
207 }
208
209 struct transfer *finddownload(wchar_t *peerid)
210 {
211     struct transfer *transfer;
212
213     for(transfer = transfers; transfer != NULL; transfer = transfer->next)
214     {
215         if((transfer->dir == TRNSD_DOWN) && (transfer->datapipe == NULL) && !wcscmp(peerid, transfer->peerid))
216             break;
217     }
218     return(transfer);
219 }
220
221 struct transfer *hasupload(struct fnet *fnet, wchar_t *peerid)
222 {
223     struct transfer *transfer;
224     
225     for(transfer = transfers; transfer != NULL; transfer = transfer->next)
226     {
227         if((transfer->dir == TRNSD_UP) && (transfer->fnet == fnet) && !wcscmp(transfer->peerid, peerid))
228             break;
229     }
230     return(transfer);
231 }
232
233 struct transfer *newupload(struct fnetnode *fn, struct fnet *fnet, wchar_t *nickid, struct socket *dpipe)
234 {
235     struct transfer *transfer;
236     
237     transfer = newtransfer();
238     if(fnet != NULL)
239         transfer->fnet = fnet;
240     else
241         transfer->fnet = fn->fnet;
242     transfer->peerid = swcsdup(nickid);
243     transfer->state = TRNS_HS;
244     transfer->dir = TRNSD_UP;
245     if(fn != NULL)
246         getfnetnode(transfer->fn = fn);
247     transferattach(transfer, dpipe);
248     linktransfer(transfer);
249     bumptransfer(transfer);
250     return(transfer);
251 }
252
253 void linktransfer(struct transfer *transfer)
254 {
255     transfer->next = transfers;
256     transfer->prev = NULL;
257     if(transfers != NULL)
258         transfers->prev = transfer;
259     transfers = transfer;
260     GCBCHAINDOCB(newtransfercb, transfer);
261 }
262
263 void resettransfer(struct transfer *transfer)
264 {
265     if(transfer->dir == TRNSD_DOWN)
266     {
267         transferdetach(transfer);
268         killfilter(transfer);
269         transfersetstate(transfer, TRNS_WAITING);
270         transfersetactivity(transfer, L"reset");
271         return;
272     }
273 }
274
275 struct transfer *findtransfer(int id)
276 {
277     struct transfer *transfer;
278     
279     for(transfer = transfers; transfer != NULL; transfer = transfer->next)
280     {
281         if(transfer->id == id)
282             break;
283     }
284     return(transfer);
285 }
286
287 static void transexpire(int cancelled, struct transfer *transfer)
288 {
289     transfer->etimer = NULL;
290     if(!cancelled)
291         bumptransfer(transfer);
292     else
293         transfer->timeout = 0;
294 }
295
296 void transferprepul(struct transfer *transfer, off_t size, off_t start, off_t end, struct socket *lesk)
297 {
298     transfersetsize(transfer, size);
299     transfer->curpos = start;
300     transfer->endpos = end;
301     transfersetlocalend(transfer, lesk);
302 }
303
304 void transferstartdl(struct transfer *transfer, struct socket *sk)
305 {
306     transfersetstate(transfer, TRNS_MAIN);
307     socksettos(sk, confgetint("transfer", "dltos"));
308 }
309
310 void transferstartul(struct transfer *transfer, struct socket *sk)
311 {
312     transfersetstate(transfer, TRNS_MAIN);
313     socksettos(sk, confgetint("transfer", "ultos"));
314     if(transfer->localend != NULL)
315         localread(transfer->localend, transfer);
316 }
317
318 void transfersetlocalend(struct transfer *transfer, struct socket *sk)
319 {
320     if(transfer->localend != NULL)
321         putsock(transfer->localend);
322     getsock(transfer->localend = sk);
323     sk->data = transfer;
324     sk->readcb = (void (*)(struct socket *, void *))localread;
325     sk->writecb = (void (*)(struct socket *, void *))localwrite;
326     sk->errcb = (void (*)(struct socket *, int, void *))localerr;
327 }
328
329 static int tryreq(struct transfer *transfer)
330 {
331     struct fnetnode *fn;
332     struct fnetpeer *peer;
333     
334     if((fn = transfer->fn) != NULL)
335     {
336         if(fn->state != FNN_EST)
337         {
338             transfer->close = 1;
339             return(1);
340         }
341         peer = fnetfindpeer(fn, transfer->peerid);
342     } else {
343         peer = NULL;
344         for(fn = fnetnodes; fn != NULL; fn = fn->next)
345         {
346             if((fn->state == FNN_EST) && (fn->fnet == transfer->fnet) && ((peer = fnetfindpeer(fn, transfer->peerid)) != NULL))
347                 break;
348         }
349     }
350     if(peer != NULL)
351     {
352         time(&transfer->lastreq);
353         return(fn->fnet->reqconn(peer));
354     }
355     return(1);
356 }
357
358 void trytransferbypeer(struct fnet *fnet, wchar_t *peerid)
359 {
360     struct transfer *transfer;
361     
362     for(transfer = transfers; transfer != NULL; transfer = transfer->next)
363     {
364         if((transfer->dir == TRNSD_DOWN) && (transfer->state == TRNS_WAITING))
365         {
366             if((transfer->fnet == fnet) && !wcscmp(transfer->peerid, peerid))
367             {
368                 if(!tryreq(transfer))
369                     return;
370             }
371         }
372     }
373 }
374
375 void bumptransfer(struct transfer *transfer)
376 {
377     time_t now;
378     
379     if((now = time(NULL)) < transfer->timeout)
380     {
381
382         if(transfer->etimer == NULL)
383             transfer->etimer = timercallback(transfer->timeout, (void (*)(int, void *))transexpire, transfer);
384         return;
385     }
386     if(transfer->etimer != NULL)
387         canceltimer(transfer->etimer);
388     switch(transfer->state)
389     {
390     case TRNS_WAITING:
391         transfer->etimer = timercallback(transfer->timeout = (time(NULL) + 30), (void (*)(int, void *))transexpire, transfer);
392         if(now - transfer->lastreq > 30)
393             tryreq(transfer);
394         break;
395     case TRNS_HS:
396         if(transfer->dir == TRNSD_UP)
397         {
398             if(now - transfer->activity < 60)
399                 transfer->etimer = timercallback(transfer->timeout = (time(NULL) + 60), (void (*)(int, void *))transexpire, transfer);
400             else
401                 transfer->close = 1;
402         } else if(transfer->dir == TRNSD_DOWN) {
403             if(now - transfer->activity < 60)
404                 transfer->etimer = timercallback(transfer->timeout = (time(NULL) + 60), (void (*)(int, void *))transexpire, transfer);
405             else
406                 resettransfer(transfer);
407         }
408         break;
409     case TRNS_MAIN:
410         if(transfer->dir == TRNSD_UP)
411         {
412             if(now - transfer->activity < 300)
413                 transfer->etimer = timercallback(transfer->timeout = (time(NULL) + 300), (void (*)(int, void *))transexpire, transfer);
414             else
415                 transfer->close = 1;
416         }
417         break;
418     }
419 }
420
421 void transfersetactivity(struct transfer *transfer, wchar_t *desc)
422 {
423     time(&transfer->activity);
424     if(desc != NULL)
425     {
426         if(transfer->actdesc != NULL)
427             free(transfer->actdesc);
428         transfer->actdesc = swcsdup(desc);
429     }
430     bumptransfer(transfer);
431     CBCHAINDOCB(transfer, trans_act, transfer);
432 }
433
434 void transfersetstate(struct transfer *transfer, int newstate)
435 {
436     transfer->state = newstate;
437     if(transfer->etimer != NULL)
438         canceltimer(transfer->etimer);
439     transfersetactivity(transfer, NULL);
440     CBCHAINDOCB(transfer, trans_ac, transfer, L"state");
441 }
442
443 void transfersetnick(struct transfer *transfer, wchar_t *newnick)
444 {
445     if(transfer->peernick != NULL)
446         free(transfer->peernick);
447     transfer->peernick = swcsdup(newnick);
448     CBCHAINDOCB(transfer, trans_ac, transfer, L"nick");
449 }
450
451 void transfersetsize(struct transfer *transfer, off_t newsize)
452 {
453     transfer->size = newsize;
454     CBCHAINDOCB(transfer, trans_ac, transfer, L"size");
455 }
456
457 void transferseterror(struct transfer *transfer, int error)
458 {
459     transfer->error = error;
460     CBCHAINDOCB(transfer, trans_ac, transfer, L"error");
461 }
462
463 void transfersetpath(struct transfer *transfer, wchar_t *path)
464 {
465     if(transfer->path != NULL)
466         free(transfer->path);
467     transfer->path = swcsdup(path);
468     CBCHAINDOCB(transfer, trans_ac, transfer, L"path");
469 }
470
471 void transfersethash(struct transfer *transfer, struct hash *hash)
472 {
473     if(transfer->hash != NULL)
474         freehash(transfer->hash);
475     transfer->hash = hash;
476     CBCHAINDOCB(transfer, trans_ac, transfer, L"hash");
477 }
478
479 int slotsleft(void)
480 {
481     struct transfer *transfer;
482     int slots;
483     
484     slots = confgetint("transfer", "slots");
485     for(transfer = transfers; (transfer != NULL) && (slots > 0); transfer = transfer->next)
486     {
487         if((transfer->dir == TRNSD_UP) && (transfer->state == TRNS_MAIN) && !transfer->flags.b.minislot)
488             slots--;
489     }
490     return(slots);
491 }
492
493 static void killfilter(struct transfer *transfer)
494 {
495     if(transfer->filter != -1)
496     {
497         kill(-transfer->filter, SIGHUP);
498         transfer->filter = -1;
499     }
500     if(transfer->localend)
501     {
502         transfer->localend->readcb = NULL;
503         transfer->localend->writecb = NULL;
504         transfer->localend->errcb = NULL;
505         putsock(transfer->localend);
506         transfer->localend = NULL;
507     }
508     if(transfer->filterout)
509     {
510         transfer->filterout->readcb = NULL;
511         putsock(transfer->filterout);
512         transfer->filterout = NULL;
513     }
514     if(transfer->filterbuf)
515     {
516         free(transfer->filterbuf);
517         transfer->filterbuf = NULL;
518     }
519     transfer->filterbufsize = transfer->filterbufdata = 0;
520 }
521
522 static void handletranscmd(struct transfer *transfer, wchar_t *cmd, wchar_t *arg)
523 {
524     if(!wcscmp(cmd, L"status")) {
525         if(arg == NULL)
526             arg = L"";
527         if(transfer->exitstatus != NULL)
528             free(transfer->exitstatus);
529         transfer->exitstatus = swcsdup(arg);
530     }
531 }
532
533 static void filterread(struct socket *sk, struct transfer *transfer)
534 {
535     char *buf, *p, *p2;
536     size_t bufsize;
537     wchar_t *cmd, *arg;
538     
539     if((buf = sockgetinbuf(sk, &bufsize)) == NULL)
540         return;
541     bufcat(transfer->filterbuf, buf, bufsize);
542     free(buf);
543     while((p = memchr(transfer->filterbuf, '\n', transfer->filterbufdata)) != NULL)
544     {
545         *(p++) = 0;
546         if((p2 = strchr(transfer->filterbuf, ' ')) != NULL)
547             *(p2++) = 0;
548         if((cmd = icmbstowcs(transfer->filterbuf, NULL)) != NULL)
549         {
550             arg = NULL;
551             if(p2 != NULL)
552             {
553                 if((arg = icmbstowcs(p2, NULL)) == NULL)
554                     flog(LOG_WARNING, "filter sent a string which could not be converted into the local charset: %s: %s", p2, strerror(errno));
555             }
556             handletranscmd(transfer, cmd, arg);
557             CBCHAINDOCB(transfer, trans_filterout, transfer, cmd, arg);
558             if(arg != NULL)
559                 free(arg);
560             free(cmd);
561         } else {
562             flog(LOG_WARNING, "filter sent a string which could not be converted into the local charset: %s: %s", transfer->filterbuf, strerror(errno));
563         }
564         memmove(transfer->filterbuf, p, transfer->filterbufdata -= (p - transfer->filterbuf));
565     }
566 }
567
568 static void filterexit(pid_t pid, int status, void *data)
569 {
570     struct transfer *transfer;
571     struct fnet *fnet;
572     wchar_t *peerid;
573     
574     for(transfer = transfers; transfer != NULL; transfer = transfer->next)
575     {
576         if(transfer->filter == pid)
577         {
578             transfer->filter = -1;
579             killfilter(transfer);
580             fnet = transfer->fnet;
581             peerid = swcsdup(transfer->peerid);
582             if(WEXITSTATUS(status))
583                 resettransfer(transfer);
584             else
585                 freetransfer(transfer);
586             trytransferbypeer(fnet, peerid);
587             free(peerid);
588             break;
589         }
590     }
591 }
592
593 int forkfilter(struct transfer *transfer)
594 {
595     char *filtername, *filename, *peerid, *buf, *p;
596     wchar_t *wfilename;
597     struct passwd *pwent;
598     pid_t pid;
599     int inpipe, outpipe;
600     char **argv;
601     size_t argvsize, argvdata;
602     struct socket *insock, *outsock;
603     struct wcspair *ta;
604     char *rec, *val;
605
606     wfilename = fnfilebasename(transfer->path);
607     if(transfer->auth == NULL)
608     {
609         flog(LOG_WARNING, "tried to fork filter for transfer with NULL authhandle (tranfer %i)", transfer->id);
610         errno = EACCES;
611         return(-1);
612     }
613     if((pwent = getpwuid(transfer->owner)) == NULL)
614     {
615         flog(LOG_WARNING, "no passwd entry for uid %i (found in transfer %i)", transfer->owner, transfer->id);
616         errno = EACCES;
617         return(-1);
618     }
619     filtername = findfile("dc-filter", pwent->pw_dir, 0);
620     if(filtername == NULL)
621         filtername = findfile(icswcstombs(confgetstr("transfer", "filter"), NULL, NULL), NULL, 0);
622     if(filtername == NULL)
623     {
624         flog(LOG_WARNING, "could not find filter for user %s", pwent->pw_name);
625         errno = ENOENT;
626         return(-1);
627     }
628     if((filename = icwcstombs(wfilename, NULL)) == NULL)
629     {
630         if((buf = icwcstombs(wfilename, "UTF-8")) == NULL)
631         {
632             flog(LOG_WARNING, "could convert transfer filename to neither local charset nor UTF-8: %s", strerror(errno));
633             return(-1);
634         }
635         filename = sprintf2("utf8-%s", buf);
636         free(buf);
637     }
638     if((peerid = icwcstombs(transfer->peerid, NULL)) == NULL)
639     {
640         if((buf = icwcstombs(transfer->peerid, "UTF-8")) == NULL)
641         {
642             flog(LOG_WARNING, "could convert transfer peerid to neither local charset nor UTF-8: %s", strerror(errno));
643             free(filename);
644             return(-1);
645         }
646         peerid = sprintf2("utf8-%s", buf);
647         free(buf);
648     }
649     for(p = filename; *p; p++) {
650         if(*p == '/')
651             *p = '_';
652         else if((p == filename) && (*p == '.'))
653             *p = '_';
654     }
655     if((pid = forksess(transfer->owner, transfer->auth, filterexit, NULL, FD_PIPE, 0, O_WRONLY, &inpipe, FD_PIPE, 1, O_RDONLY, &outpipe, FD_FILE, 2, O_RDWR, "/dev/null", FD_END)) < 0)
656     {
657         flog(LOG_WARNING, "could not fork session for filter for transfer %i: %s", transfer->id, strerror(errno));
658         return(-1);
659     }
660     if(pid == 0)
661     {
662         argv = NULL;
663         argvsize = argvdata = 0;
664         buf = sprintf2("%ji", (intmax_t)transfer->size);
665         addtobuf(argv, filtername);
666         addtobuf(argv, filename);
667         addtobuf(argv, buf);
668         addtobuf(argv, peerid);
669         if(transfer->hash)
670         {
671             if((buf = icwcstombs(unparsehash(transfer->hash), NULL)) != NULL)
672             {
673                 /* XXX: I am very doubtful of this, but it can just as
674                  * well be argued that all data should be presented as
675                  * key-value pairs. */
676                 addtobuf(argv, "hash");
677                 addtobuf(argv, buf);
678             } else {
679                 flog(LOG_WARNING, "could not convert hash to local charset");
680             }
681         }
682         for(ta = transfer->args; ta != NULL; ta = ta->next)
683         {
684             if((rec = icwcstombs(ta->key, NULL)) == NULL)
685                 continue;
686             if((val = icwcstombs(ta->val, NULL)) == NULL)
687                 continue;
688             addtobuf(argv, rec);
689             addtobuf(argv, val);
690         }
691         addtobuf(argv, NULL);
692         execv(filtername, argv);
693         flog(LOG_WARNING, "could not exec filter %s: %s", filtername, strerror(errno));
694         exit(127);
695     }
696     insock = wrapsock(inpipe);
697     outsock = wrapsock(outpipe);
698     /* Really, really strange thing here - sometimes the kernel would
699      * return POLLIN on insock, even though it's a write-side
700      * pipe. The corresponding read on the pipe naturally returns
701      * EBADF, causing doldacond to think there's something wrong with
702      * the fd, and thus it closes it. Until I can find out whyever the
703      * kernel gives a POLLIN on the fd (if I can at all...), I'll just
704      * set ignread on insock for now. */
705 /*     sockblock(insock, 1); */
706     transfer->filter = pid;
707     transfersetlocalend(transfer, insock);
708     getsock(transfer->filterout = outsock);
709     outsock->data = transfer;
710     outsock->readcb = (void (*)(struct socket *, void *))filterread;
711     putsock(insock);
712     putsock(outsock);
713     free(filtername);
714     free(filename);
715     free(peerid);
716     return(0);
717 }
718
719 static int run(void)
720 {
721     struct transfer *transfer, *next;
722     
723     /*
724     for(transfer = transfers; transfer != NULL; transfer = transfer->next)
725     {
726         if((transfer->endpos >= 0) && (transfer->state == TRNS_MAIN) && (transfer->localend != NULL) && (transfer->localend->state == SOCK_EST) && (transfer->curpos >= transfer->endpos))
727         {
728             if((transfer->iface != NULL) && (transfer->iface->endofdata != NULL))
729                 transfer->iface->endofdata(transfer, transfer->ifacedata);
730             closesock(transfer->localend);
731         }
732     }
733     */
734     for(transfer = transfers; transfer != NULL; transfer = next)
735     {
736         next = transfer->next;
737         if(transfer->close)
738         {
739             transferdetach(transfer);
740             freetransfer(transfer);
741             continue;
742         }
743     }
744     return(0);
745 }
746
747 static struct configvar myvars[] =
748 {
749     /** The maximum number of simultaneously permitted uploads. A
750      * common hub rule is that you will need at least as many slots as
751      * the number of hubs to which you are connected. */
752     {CONF_VAR_INT, "slots", {.num = 3}},
753     /** The TOS value to use for upload connections (see the TOS
754      * VALUES section). */
755     {CONF_VAR_INT, "ultos", {.num = SOCK_TOS_MAXTP}},
756     /** The TOS value to use for download connections (see the TOS
757      * VALUES section). */
758     {CONF_VAR_INT, "dltos", {.num = SOCK_TOS_MAXTP}},
759     /** The name of the filter script (see the FILES section for
760      * lookup information). */
761     {CONF_VAR_STRING, "filter", {.str = L"dc-filter"}},
762     /** If true, only one upload is allowed per remote peer. This
763      * option is still experimental, so it is recommended to leave it
764      * off. */
765     {CONF_VAR_BOOL, "ulquota", {.num = 0}},
766     {CONF_VAR_END}
767 };
768
769 static struct module me =
770 {
771     .conf =
772     {
773         .vars = myvars
774     },
775     .name = "transfer",
776     .run = run
777 };
778
779 MODULE(me);