]> git.netwichtig.de Git - user/henk/code/inspircd.git/blob - src/users.cpp
8e5d996da3d7333981a0e497e7f5b9e5654035b6
[user/henk/code/inspircd.git] / src / users.cpp
1 /*       +------------------------------------+
2  *       | Inspire Internet Relay Chat Daemon |
3  *       +------------------------------------+
4  *
5  *  Inspire is copyright (C) 2002-2004 ChatSpike-Dev.
6  *                       E-mail:
7  *                <brain@chatspike.net>
8  *                <Craig@chatspike.net>
9  *     
10  * Written by Craig Edwards, Craig McLure, and others.
11  * This program is free but copyrighted software; see
12  *            the file COPYING for details.
13  *
14  * ---------------------------------------------------
15  */
16
17 using namespace std;
18
19 #include "inspircd_config.h" 
20 #include "channels.h"
21 #include "connection.h"
22 #include "users.h"
23 #include "inspircd.h"
24 #include <stdio.h>
25 #ifdef THREADED_DNS
26 #include <pthread.h>
27 #include <signal.h>
28 #endif
29 #include "inspstring.h"
30 #include "commands.h"
31 #include "helperfuncs.h"
32 #include "typedefs.h"
33 #include "socketengine.h"
34 #include "hashcomp.h"
35 #include "message.h"
36 #include "wildcard.h"
37 #include "xline.h"
38
39 extern InspIRCd* ServerInstance;
40 extern int WHOWAS_STALE;
41 extern int WHOWAS_MAX;
42 extern std::vector<Module*> modules;
43 extern std::vector<ircd_module*> factory;
44 extern std::vector<InspSocket*> module_sockets;
45 extern int MODCOUNT;
46 extern InspSocket* socket_ref[65535];
47 extern time_t TIME;
48 extern SocketEngine* SE;
49 extern userrec* fd_ref_table[65536];
50 extern serverstats* stats;
51 extern ServerConfig *Config;
52 extern user_hash clientlist;
53 extern whowas_hash whowas;
54
55 std::vector<userrec*> all_opers;
56
57 template<typename T> inline string ConvToStr(const T &in)
58 {
59         stringstream tmp;
60         if (!(tmp << in)) return string();
61         return tmp.str();
62 }
63
64 userrec::userrec()
65 {
66         // the PROPER way to do it, AVOID bzero at *ALL* costs
67         strcpy(nick,"");
68         strcpy(ip,"127.0.0.1");
69         timeout = 0;
70         strcpy(ident,"");
71         strcpy(host,"");
72         strcpy(dhost,"");
73         strcpy(fullname,"");
74         strcpy(modes,"");
75         server = (char*)FindServerNamePtr(Config->ServerName);
76         strcpy(awaymsg,"");
77         strcpy(oper,"");
78         reset_due = TIME;
79         lines_in = 0;
80         fd = lastping = signon = idle_lastmsg = nping = registered = 0;
81         flood = port = bytes_in = bytes_out = cmds_in = cmds_out = 0;
82         haspassed = false;
83         dns_done = false;
84         recvq = "";
85         sendq = "";
86         chans.clear();
87         invites.clear();
88 }
89
90 userrec::~userrec()
91 {
92 }
93
94 void userrec::CloseSocket()
95 {
96         shutdown(this->fd,2);
97         close(this->fd);
98 }
99  
100 char* userrec::GetFullHost()
101 {
102         static char result[MAXBUF];
103         snprintf(result,MAXBUF,"%s!%s@%s",nick,ident,dhost);
104         return result;
105 }
106
107 int userrec::ReadData(void* buffer, size_t size)
108 {
109         if (this->fd > -1)
110         {
111                 return read(this->fd, buffer, size);
112         }
113         else return 0;
114 }
115
116
117 char* userrec::GetFullRealHost()
118 {
119         static char fresult[MAXBUF];
120         snprintf(fresult,MAXBUF,"%s!%s@%s",nick,ident,host);
121         return fresult;
122 }
123
124 bool userrec::IsInvited(irc::string &channel)
125 {
126         for (InvitedList::iterator i = invites.begin(); i != invites.end(); i++)
127         {
128                 irc::string compare = i->channel;
129                 if (compare == channel)
130                 {
131                         return true;
132                 }
133         }
134         return false;
135 }
136
137 InvitedList* userrec::GetInviteList()
138 {
139         return &invites;
140 }
141
142 void userrec::InviteTo(irc::string &channel)
143 {
144         Invited i;
145         i.channel = channel;
146         invites.push_back(i);
147 }
148
149 void userrec::RemoveInvite(irc::string &channel)
150 {
151         log(DEBUG,"Removing invites");
152         if (invites.size())
153         {
154                 for (InvitedList::iterator i = invites.begin(); i != invites.end(); i++)
155                 {
156                         irc::string compare = i->channel;
157                         if (compare == channel)
158                         {
159                                 invites.erase(i);
160                                 return;
161                         }
162                 }
163         }
164 }
165
166 bool userrec::HasPermission(std::string &command)
167 {
168         char TypeName[MAXBUF],Classes[MAXBUF],ClassName[MAXBUF],CommandList[MAXBUF];
169         char* mycmd;
170         char* savept;
171         char* savept2;
172         
173         // users on u-lined servers can completely bypass
174         // all permissions based checks.
175         //
176         // of course, if this is sent to a remote server and this
177         // server is not ulined there, then that other server
178         // silently drops the command.
179         if (is_uline(this->server))
180                 return true;
181         
182         // are they even an oper at all?
183         if (strchr(this->modes,'o'))
184         {
185                 for (int j =0; j < Config->ConfValueEnum("type",&Config->config_f); j++)
186                 {
187                         Config->ConfValue("type","name",j,TypeName,&Config->config_f);
188                         if (!strcmp(TypeName,this->oper))
189                         {
190                                 Config->ConfValue("type","classes",j,Classes,&Config->config_f);
191                                 char* myclass = strtok_r(Classes," ",&savept);
192                                 while (myclass)
193                                 {
194                                         for (int k =0; k < Config->ConfValueEnum("class",&Config->config_f); k++)
195                                         {
196                                                 Config->ConfValue("class","name",k,ClassName,&Config->config_f);
197                                                 if (!strcmp(ClassName,myclass))
198                                                 {
199                                                         Config->ConfValue("class","commands",k,CommandList,&Config->config_f);
200                                                         mycmd = strtok_r(CommandList," ",&savept2);
201                                                         while (mycmd)
202                                                         {
203                                                                 if ((!strcasecmp(mycmd,command.c_str())) || (*mycmd == '*'))
204                                                                 {
205                                                                         return true;
206                                                                 }
207                                                                 mycmd = strtok_r(NULL," ",&savept2);
208                                                         }
209                                                 }
210                                         }
211                                         myclass = strtok_r(NULL," ",&savept);
212                                 }
213                         }
214                 }
215         }
216         return false;
217 }
218
219
220 bool userrec::AddBuffer(std::string a)
221 {
222         std::string b = "";
223         for (unsigned int i = 0; i < a.length(); i++)
224                 if ((a[i] != '\r') && (a[i] != '\0') && (a[i] != 7))
225                         b = b + a[i];
226         std::stringstream stream(recvq);
227         stream << b;
228         recvq = stream.str();
229         unsigned int i = 0;
230         // count the size of the first line in the buffer.
231         while (i < recvq.length())
232         {
233                 if (recvq[i++] == '\n')
234                         break;
235         }
236         if (recvq.length() > (unsigned)this->recvqmax)
237         {
238                 this->SetWriteError("RecvQ exceeded");
239                 WriteOpers("*** User %s RecvQ of %d exceeds connect class maximum of %d",this->nick,recvq.length(),this->recvqmax);
240         }
241         // return false if we've had more than 600 characters WITHOUT
242         // a carriage return (this is BAD, drop the socket)
243         return (i < 600);
244 }
245
246 bool userrec::BufferIsReady()
247 {
248         for (unsigned int i = 0; i < recvq.length(); i++)
249                 if (recvq[i] == '\n')
250                         return true;
251         return false;
252 }
253
254 void userrec::ClearBuffer()
255 {
256         recvq = "";
257 }
258
259 std::string userrec::GetBuffer()
260 {
261         if (recvq == "")
262                 return "";
263         char* line = (char*)recvq.c_str();
264         std::string ret = "";
265         while ((*line != '\n') && (strlen(line)))
266         {
267                 ret = ret + *line;
268                 line++;
269         }
270         if ((*line == '\n') || (*line == '\r'))
271                 line++;
272         recvq = line;
273         return ret;
274 }
275
276 void userrec::AddWriteBuf(std::string data)
277 {
278         if (this->GetWriteError() != "")
279                 return;
280         if (sendq.length() + data.length() > (unsigned)this->sendqmax)
281         {
282                 WriteOpers("*** User %s SendQ of %d exceeds connect class maximum of %d",this->nick,sendq.length() + data.length(),this->sendqmax);
283                 this->SetWriteError("SendQ exceeded");
284                 return;
285         }
286         std::stringstream stream;
287         stream << sendq << data;
288         sendq = stream.str();
289 }
290
291 // send AS MUCH OF THE USERS SENDQ as we are able to (might not be all of it)
292 void userrec::FlushWriteBuf()
293 {
294         if (sendq.length())
295         {
296                 char* tb = (char*)this->sendq.c_str();
297                 int n_sent = write(this->fd,tb,this->sendq.length());
298                 if (n_sent == -1)
299                 {
300                         this->SetWriteError(strerror(errno));
301                 }
302                 else
303                 {
304                         // advance the queue
305                         tb += n_sent;
306                         this->sendq = tb;
307                         // update the user's stats counters
308                         this->bytes_out += n_sent;
309                         this->cmds_out++;
310                 }
311         }
312 }
313
314 void userrec::SetWriteError(std::string error)
315 {
316         log(DEBUG,"Setting error string for %s to '%s'",this->nick,error.c_str());
317         // don't try to set the error twice, its already set take the first string.
318         if (this->WriteError == "")
319                 this->WriteError = error;
320 }
321
322 std::string userrec::GetWriteError()
323 {
324         return this->WriteError;
325 }
326
327 void AddOper(userrec* user)
328 {
329         log(DEBUG,"Oper added to optimization list");
330         all_opers.push_back(user);
331 }
332
333 void DeleteOper(userrec* user)
334 {
335         for (std::vector<userrec*>::iterator a = all_opers.begin(); a < all_opers.end(); a++)
336         {
337                 if (*a == user)
338                 {
339                         log(DEBUG,"Oper removed from optimization list");
340                         all_opers.erase(a);
341                         return;
342                 }
343         }
344 }
345
346 void kill_link(userrec *user,const char* r)
347 {
348         user_hash::iterator iter = clientlist.find(user->nick);
349
350         char reason[MAXBUF];
351
352         strncpy(reason,r,MAXBUF);
353
354         if (strlen(reason)>MAXQUIT)
355         {
356                 reason[MAXQUIT-1] = '\0';
357         }
358
359         log(DEBUG,"kill_link: %s '%s'",user->nick,reason);
360         Write(user->fd,"ERROR :Closing link (%s@%s) [%s]",user->ident,user->host,reason);
361         log(DEBUG,"closing fd %lu",(unsigned long)user->fd);
362
363         if (user->registered == 7) {
364                 FOREACH_MOD OnUserQuit(user,reason);
365                 WriteCommonExcept(user,"QUIT :%s",reason);
366         }
367
368         user->FlushWriteBuf();
369
370         FOREACH_MOD OnUserDisconnect(user);
371
372         if (user->fd > -1)
373         {
374                 FOREACH_MOD OnRawSocketClose(user->fd);
375                 SE->DelFd(user->fd);
376                 user->CloseSocket();
377         }
378
379         // this must come before the WriteOpers so that it doesnt try to fill their buffer with anything
380         // if they were an oper with +s.
381         if (user->registered == 7) {
382                 purge_empty_chans(user);
383                 // fix by brain: only show local quits because we only show local connects (it just makes SENSE)
384                 if (user->fd > -1)
385                         WriteOpers("*** Client exiting: %s!%s@%s [%s]",user->nick,user->ident,user->host,reason);
386                 AddWhoWas(user);
387         }
388
389         if (iter != clientlist.end())
390         {
391                 log(DEBUG,"deleting user hash value %lu",(unsigned long)user);
392                 if (user->fd > -1)
393                         fd_ref_table[user->fd] = NULL;
394                 clientlist.erase(iter);
395         }
396         delete user;
397 }
398
399 void kill_link_silent(userrec *user,const char* r)
400 {
401         user_hash::iterator iter = clientlist.find(user->nick);
402
403         char reason[MAXBUF];
404
405         strncpy(reason,r,MAXBUF);
406
407         if (strlen(reason)>MAXQUIT)
408         {
409                 reason[MAXQUIT-1] = '\0';
410         }
411
412         log(DEBUG,"kill_link: %s '%s'",user->nick,reason);
413         Write(user->fd,"ERROR :Closing link (%s@%s) [%s]",user->ident,user->host,reason);
414         log(DEBUG,"closing fd %lu",(unsigned long)user->fd);
415
416         user->FlushWriteBuf();
417
418         if (user->registered == 7) {
419                 FOREACH_MOD OnUserQuit(user,reason);
420                 WriteCommonExcept(user,"QUIT :%s",reason);
421         }
422
423         FOREACH_MOD OnUserDisconnect(user);
424
425         if (user->fd > -1)
426         {
427                 FOREACH_MOD OnRawSocketClose(user->fd);
428                 SE->DelFd(user->fd);
429                 user->CloseSocket();
430         }
431
432         if (user->registered == 7) {
433                 purge_empty_chans(user);
434         }
435
436         if (iter != clientlist.end())
437         {
438                 log(DEBUG,"deleting user hash value %lu",(unsigned long)user);
439                 if (user->fd > -1)
440                         fd_ref_table[user->fd] = NULL;
441                 clientlist.erase(iter);
442         }
443         delete user;
444 }
445
446
447 /* adds or updates an entry in the whowas list */
448 void AddWhoWas(userrec* u)
449 {
450         whowas_hash::iterator iter = whowas.find(u->nick);
451         WhoWasUser *a = new WhoWasUser();
452         strlcpy(a->nick,u->nick,NICKMAX);
453         strlcpy(a->ident,u->ident,IDENTMAX);
454         strlcpy(a->dhost,u->dhost,160);
455         strlcpy(a->host,u->host,160);
456         strlcpy(a->fullname,u->fullname,MAXGECOS);
457         strlcpy(a->server,u->server,256);
458         a->signon = u->signon;
459
460         /* MAX_WHOWAS:   max number of /WHOWAS items
461          * WHOWAS_STALE: number of hours before a WHOWAS item is marked as stale and
462          *               can be replaced by a newer one
463          */
464
465         if (iter == whowas.end())
466         {
467                 if (whowas.size() >= (unsigned)WHOWAS_MAX)
468                 {
469                         for (whowas_hash::iterator i = whowas.begin(); i != whowas.end(); i++)
470                         {
471                                 // 3600 seconds in an hour ;)
472                                 if ((i->second->signon)<(TIME-(WHOWAS_STALE*3600)))
473                                 {
474                                         // delete the old one
475                                         if (i->second) delete i->second;
476                                         // replace with new one
477                                         i->second = a;
478                                         log(DEBUG,"added WHOWAS entry, purged an old record");
479                                         return;
480                                 }
481                         }
482                         // no space left and user doesnt exist. Don't leave ram in use!
483                         log(DEBUG,"Not able to update whowas (list at WHOWAS_MAX entries and trying to add new?), freeing excess ram");
484                         delete a;
485                 }
486                 else
487                 {
488                         log(DEBUG,"added fresh WHOWAS entry");
489                         whowas[a->nick] = a;
490                 }
491         }
492         else
493         {
494                 log(DEBUG,"updated WHOWAS entry");
495                 if (iter->second) delete iter->second;
496                 iter->second = a;
497         }
498 }
499
500 /* add a client connection to the sockets list */
501 void AddClient(int socket, char* host, int port, bool iscached, char* ip)
502 {
503         string tempnick;
504         char tn2[MAXBUF];
505         user_hash::iterator iter;
506
507         tempnick = ConvToStr(socket) + "-unknown";
508         sprintf(tn2,"%lu-unknown",(unsigned long)socket);
509
510         iter = clientlist.find(tempnick);
511
512         // fix by brain.
513         // as these nicknames are 'RFC impossible', we can be sure nobody is going to be
514         // using one as a registered connection. As theyre per fd, we can also safely assume
515         // that we wont have collisions. Therefore, if the nick exists in the list, its only
516         // used by a dead socket, erase the iterator so that the new client may reclaim it.
517         // this was probably the cause of 'server ignores me when i hammer it with reconnects'
518         // issue in earlier alphas/betas
519         if (iter != clientlist.end())
520         {
521                 userrec* goner = iter->second;
522                 delete goner;
523                 clientlist.erase(iter);
524         }
525
526         /*
527          * It is OK to access the value here this way since we know
528          * it exists, we just created it above.
529          *
530          * At NO other time should you access a value in a map or a
531          * hash_map this way.
532          */
533         clientlist[tempnick] = new userrec();
534
535         NonBlocking(socket);
536         log(DEBUG,"AddClient: %lu %s %d %s",(unsigned long)socket,host,port,ip);
537
538         clientlist[tempnick]->fd = socket;
539         strlcpy(clientlist[tempnick]->nick, tn2,NICKMAX);
540         strlcpy(clientlist[tempnick]->host, host,160);
541         strlcpy(clientlist[tempnick]->dhost, host,160);
542         clientlist[tempnick]->server = (char*)FindServerNamePtr(Config->ServerName);
543         strlcpy(clientlist[tempnick]->ident, "unknown",IDENTMAX);
544         clientlist[tempnick]->registered = 0;
545         clientlist[tempnick]->signon = TIME + Config->dns_timeout;
546         clientlist[tempnick]->lastping = 1;
547         clientlist[tempnick]->port = port;
548         strlcpy(clientlist[tempnick]->ip,ip,16);
549
550         // set the registration timeout for this user
551         unsigned long class_regtimeout = 90;
552         int class_flood = 0;
553         long class_threshold = 5;
554         long class_sqmax = 262144;      // 256kb
555         long class_rqmax = 4096;        // 4k
556
557         for (ClassVector::iterator i = Config->Classes.begin(); i != Config->Classes.end(); i++)
558         {
559                 if (match(clientlist[tempnick]->host,i->host) && (i->type == CC_ALLOW))
560                 {
561                         class_regtimeout = (unsigned long)i->registration_timeout;
562                         class_flood = i->flood;
563                         clientlist[tempnick]->pingmax = i->pingtime;
564                         class_threshold = i->threshold;
565                         class_sqmax = i->sendqmax;
566                         class_rqmax = i->recvqmax;
567                         break;
568                 }
569         }
570
571         clientlist[tempnick]->nping = TIME+clientlist[tempnick]->pingmax + Config->dns_timeout;
572         clientlist[tempnick]->timeout = TIME+class_regtimeout;
573         clientlist[tempnick]->flood = class_flood;
574         clientlist[tempnick]->threshold = class_threshold;
575         clientlist[tempnick]->sendqmax = class_sqmax;
576         clientlist[tempnick]->recvqmax = class_rqmax;
577
578         ucrec a;
579         a.channel = NULL;
580         a.uc_modes = 0;
581         for (int i = 0; i < MAXCHANS; i++)
582                 clientlist[tempnick]->chans.push_back(a);
583
584         if (clientlist.size() > Config->SoftLimit)
585         {
586                 kill_link(clientlist[tempnick],"No more connections allowed");
587                 return;
588         }
589
590         if (clientlist.size() >= MAXCLIENTS)
591         {
592                 kill_link(clientlist[tempnick],"No more connections allowed");
593                 return;
594         }
595
596         // this is done as a safety check to keep the file descriptors within range of fd_ref_table.
597         // its a pretty big but for the moment valid assumption:
598         // file descriptors are handed out starting at 0, and are recycled as theyre freed.
599         // therefore if there is ever an fd over 65535, 65536 clients must be connected to the
600         // irc server at once (or the irc server otherwise initiating this many connections, files etc)
601         // which for the time being is a physical impossibility (even the largest networks dont have more
602         // than about 10,000 users on ONE server!)
603         if ((unsigned)socket > 65534)
604         {
605                 kill_link(clientlist[tempnick],"Server is full");
606                 return;
607         }
608         char* e = matches_exception(ip);
609         if (!e)
610         {
611                 char* r = matches_zline(ip);
612                 if (r)
613                 {
614                         char reason[MAXBUF];
615                         snprintf(reason,MAXBUF,"Z-Lined: %s",r);
616                         kill_link(clientlist[tempnick],reason);
617                         return;
618                 }
619         }
620         fd_ref_table[socket] = clientlist[tempnick];
621         SE->AddFd(socket,true,X_ESTAB_CLIENT);
622 }
623
624 void FullConnectUser(userrec* user)
625 {
626         stats->statsConnects++;
627         user->idle_lastmsg = TIME;
628         log(DEBUG,"ConnectUser: %s",user->nick);
629
630         if ((strcmp(Passwd(user),"")) && (!user->haspassed))
631         {
632                 kill_link(user,"Invalid password");
633                 return;
634         }
635         if (IsDenied(user))
636         {
637                 kill_link(user,"Unauthorised connection");
638                 return;
639         }
640
641         char match_against[MAXBUF];
642         snprintf(match_against,MAXBUF,"%s@%s",user->ident,user->host);
643         char* e = matches_exception(match_against);
644         if (!e)
645         {
646                 char* r = matches_gline(match_against);
647                 if (r)
648                 {
649                         char reason[MAXBUF];
650                         snprintf(reason,MAXBUF,"G-Lined: %s",r);
651                         kill_link_silent(user,reason);
652                         return;
653                 }
654                 r = matches_kline(user->host);
655                 if (r)
656                 {
657                         char reason[MAXBUF];
658                         snprintf(reason,MAXBUF,"K-Lined: %s",r);
659                         kill_link_silent(user,reason);
660                         return;
661                 }
662         }
663
664
665         WriteServ(user->fd,"NOTICE Auth :Welcome to \002%s\002!",Config->Network);
666         WriteServ(user->fd,"001 %s :Welcome to the %s IRC Network %s!%s@%s",user->nick,Config->Network,user->nick,user->ident,user->host);
667         WriteServ(user->fd,"002 %s :Your host is %s, running version %s",user->nick,Config->ServerName,VERSION);
668         WriteServ(user->fd,"003 %s :This server was created %s %s",user->nick,__TIME__,__DATE__);
669         WriteServ(user->fd,"004 %s %s %s iowghraAsORVSxNCWqBzvdHtGI lvhopsmntikrRcaqOALQbSeKVfHGCuzN",user->nick,Config->ServerName,VERSION);
670         // the neatest way to construct the initial 005 numeric, considering the number of configure constants to go in it...
671         std::stringstream v;
672         v << "WALLCHOPS MODES=13 CHANTYPES=# PREFIX=(ohv)@%+ MAP SAFELIST MAXCHANNELS=" << MAXCHANS;
673         v << " MAXBANS=60 NICKLEN=" << NICKMAX;
674         v << " TOPICLEN=" << MAXTOPIC << " KICKLEN=" << MAXKICK << " MAXTARGETS=20 AWAYLEN=" << MAXAWAY << " CHANMODES=ohvb,k,l,psmnti NETWORK=";
675         v << Config->Network;
676         std::string data005 = v.str();
677         FOREACH_MOD On005Numeric(data005);
678         // anfl @ #ratbox, efnet reminded me that according to the RFC this cant contain more than 13 tokens per line...
679         // so i'd better split it :)
680         std::stringstream out(data005);
681         std::string token = "";
682         std::string line5 = "";
683         int token_counter = 0;
684         while (!out.eof())
685         {
686                 out >> token;
687                 line5 = line5 + token + " ";
688                 token_counter++;
689                 if ((token_counter >= 13) || (out.eof() == true))
690                 {
691                         WriteServ(user->fd,"005 %s %s:are supported by this server",user->nick,line5.c_str());
692                         line5 = "";
693                         token_counter = 0;
694                 }
695         }
696         ShowMOTD(user);
697
698         // fix 3 by brain, move registered = 7 below these so that spurious modes and host changes dont go out
699         // onto the network and produce 'fake direction'
700         FOREACH_MOD OnUserConnect(user);
701         FOREACH_MOD OnGlobalConnect(user);
702         user->registered = 7;
703         WriteOpers("*** Client connecting on port %lu: %s!%s@%s [%s]",(unsigned long)user->port,user->nick,user->ident,user->host,user->ip);
704 }
705
706
707 /* shows the message of the day, and any other on-logon stuff */
708 void ConnectUser(userrec *user)
709 {
710         // dns is already done, things are fast. no need to wait for dns to complete just pass them straight on
711         if ((user->dns_done) && (user->registered >= 3) && (AllModulesReportReady(user)))
712         {
713                 FullConnectUser(user);
714         }
715 }
716