]> git.stg.codes - stg.git/blob - projects/stargazer/plugins/other/rscript/rscript.cpp
d1768ee610d85d4c7bd828e44d18019840ad90f4
[stg.git] / projects / stargazer / plugins / other / rscript / rscript.cpp
1 /*
2  *    This program is free software; you can redistribute it and/or modify
3  *    it under the terms of the GNU General Public License as published by
4  *    the Free Software Foundation; either version 2 of the License, or
5  *    (at your option) any later version.
6  *
7  *    This program is distributed in the hope that it will be useful,
8  *    but WITHOUT ANY WARRANTY; without even the implied warranty of
9  *    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
10  *    GNU General Public License for more details.
11  *
12  *    You should have received a copy of the GNU General Public License
13  *    along with this program; if not, write to the Free Software
14  *    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
15  */
16
17 /*
18  *    Author : Boris Mikhailenko <stg34@stargazer.dp.ua>
19  *    Author : Maxim Mamontov <faust@stargazer.dp.ua>
20  */
21
22 /*
23  $Revision: 1.33 $
24  $Date: 2010/04/16 12:30:37 $
25  $Author: faust $
26 */
27
28 #include <sys/time.h>
29
30 #include <csignal>
31 #include <cassert>
32 #include <cstdlib>
33 #include <algorithm>
34
35 #include "stg/common.h"
36 #include "stg/locker.h"
37 #include "stg/user_property.h"
38 #include "stg/plugin_creator.h"
39 #include "rscript.h"
40 #include "ur_functor.h"
41 #include "send_functor.h"
42
43 extern volatile const time_t stgTime;
44
45 #define RS_MAX_ROUTERS  (100)
46
47 //-----------------------------------------------------------------------------
48 //-----------------------------------------------------------------------------
49 //-----------------------------------------------------------------------------
50 PLUGIN_CREATOR<REMOTE_SCRIPT> rsc;
51 //-----------------------------------------------------------------------------
52 //-----------------------------------------------------------------------------
53 //-----------------------------------------------------------------------------
54 PLUGIN * GetPlugin()
55 {
56 return rsc.GetPlugin();
57 }
58 //-----------------------------------------------------------------------------
59 //-----------------------------------------------------------------------------
60 //-----------------------------------------------------------------------------
61 RS_USER::RS_USER()
62     : lastSentTime(0),
63       user(NULL),
64       shortPacketsCount(0)
65 {
66 }
67 //-----------------------------------------------------------------------------
68 RS_USER::RS_USER(const std::vector<uint32_t> & r, USER_PTR it)
69     : lastSentTime(0),
70       user(it),
71       routers(r),
72       shortPacketsCount(0)
73 {
74 }
75 //-----------------------------------------------------------------------------
76 RS_SETTINGS::RS_SETTINGS()
77     : sendPeriod(0),
78       port(0)
79 {
80 }
81 //-----------------------------------------------------------------------------
82 int RS_SETTINGS::ParseSettings(const MODULE_SETTINGS & s)
83 {
84 int p;
85 PARAM_VALUE pv;
86 vector<PARAM_VALUE>::const_iterator pvi;
87 netRouters.clear();
88 ///////////////////////////
89 pv.param = "Port";
90 pvi = find(s.moduleParams.begin(), s.moduleParams.end(), pv);
91 if (pvi == s.moduleParams.end())
92     {
93     errorStr = "Parameter \'Port\' not found.";
94     printfd(__FILE__, "Parameter 'Port' not found\n");
95     return -1;
96     }
97 if (ParseIntInRange(pvi->value[0], 2, 65535, &p))
98     {
99     errorStr = "Cannot parse parameter \'Port\': " + errorStr;
100     printfd(__FILE__, "Cannot parse parameter 'Port'\n");
101     return -1;
102     }
103 port = p;
104 ///////////////////////////
105 pv.param = "SendPeriod";
106 pvi = find(s.moduleParams.begin(), s.moduleParams.end(), pv);
107 if (pvi == s.moduleParams.end())
108     {
109     errorStr = "Parameter \'SendPeriod\' not found.";
110     printfd(__FILE__, "Parameter 'SendPeriod' not found\n");
111     return -1;
112     }
113
114 if (ParseIntInRange(pvi->value[0], 5, 600, &sendPeriod))
115     {
116     errorStr = "Cannot parse parameter \'SendPeriod\': " + errorStr;
117     printfd(__FILE__, "Cannot parse parameter 'SendPeriod'\n");
118     return -1;
119     }
120 ///////////////////////////
121 pv.param = "UserParams";
122 pvi = find(s.moduleParams.begin(), s.moduleParams.end(), pv);
123 if (pvi == s.moduleParams.end())
124     {
125     errorStr = "Parameter \'UserParams\' not found.";
126     printfd(__FILE__, "Parameter 'UserParams' not found\n");
127     return -1;
128     }
129 userParams = pvi->value;
130 ///////////////////////////
131 pv.param = "Password";
132 pvi = find(s.moduleParams.begin(), s.moduleParams.end(), pv);
133 if (pvi == s.moduleParams.end())
134     {
135     errorStr = "Parameter \'Password\' not found.";
136     printfd(__FILE__, "Parameter 'Password' not found\n");
137     return -1;
138     }
139 password = pvi->value[0];
140 ///////////////////////////
141 pv.param = "SubnetFile";
142 pvi = find(s.moduleParams.begin(), s.moduleParams.end(), pv);
143 if (pvi == s.moduleParams.end())
144     {
145     errorStr = "Parameter \'SubnetFile\' not found.";
146     printfd(__FILE__, "Parameter 'SubnetFile' not found\n");
147     return -1;
148     }
149 subnetFile = pvi->value[0];
150
151 NRMapParser nrMapParser;
152
153 if (nrMapParser.ReadFile(subnetFile))
154     {
155     errorStr = nrMapParser.GetErrorStr();
156     return -1;
157     }
158
159 netRouters = nrMapParser.GetMap();
160
161 if (netRouters.empty())
162     {
163     errorStr = "Parameter(s) \'Subnet*\' not found.";
164     printfd(__FILE__, "Parameter(s) 'Subnet*' not found\n");
165     return -1;
166     }
167
168 return 0;
169 }
170 //-----------------------------------------------------------------------------
171 //-----------------------------------------------------------------------------
172 //-----------------------------------------------------------------------------
173 REMOTE_SCRIPT::REMOTE_SCRIPT()
174     : sendPeriod(15),
175       halfPeriod(8),
176       nonstop(false),
177       isRunning(false),
178       users(NULL),
179       sock(0),
180       onAddUserNotifier(*this),
181       onDelUserNotifier(*this)
182 {
183 pthread_mutex_init(&mutex, NULL);
184 }
185 //-----------------------------------------------------------------------------
186 REMOTE_SCRIPT::~REMOTE_SCRIPT()
187 {
188 pthread_mutex_destroy(&mutex);
189 }
190 //-----------------------------------------------------------------------------
191 void * REMOTE_SCRIPT::Run(void * d)
192 {
193 REMOTE_SCRIPT * rs = static_cast<REMOTE_SCRIPT *>(d);
194
195 rs->isRunning = true;
196
197 while (rs->nonstop)
198     {
199     rs->PeriodicSend();
200     sleep(2);
201     }
202
203 rs->isRunning = false;
204 return NULL;
205 }
206 //-----------------------------------------------------------------------------
207 int REMOTE_SCRIPT::ParseSettings()
208 {
209 int ret = rsSettings.ParseSettings(settings);
210 if (ret)
211     errorStr = rsSettings.GetStrError();
212
213 sendPeriod = rsSettings.GetSendPeriod();
214 halfPeriod = sendPeriod / 2;
215
216 return ret;
217 }
218 //-----------------------------------------------------------------------------
219 int REMOTE_SCRIPT::Start()
220 {
221 netRouters = rsSettings.GetSubnetsMap();
222
223 InitEncrypt(&ctx, rsSettings.GetPassword());
224
225 //onAddUserNotifier.SetRemoteScript(this);
226 //onDelUserNotifier.SetRemoteScript(this);
227
228 users->AddNotifierUserAdd(&onAddUserNotifier);
229 users->AddNotifierUserDel(&onDelUserNotifier);
230
231 nonstop = true;
232
233 if (GetUsers())
234     {
235     return -1;
236     }
237
238 if (PrepareNet())
239     {
240     return -1;
241     }
242
243 if (!isRunning)
244     {
245     if (pthread_create(&thread, NULL, Run, this))
246         {
247         errorStr = "Cannot create thread.";
248         printfd(__FILE__, "Cannot create thread\n");
249         return -1;
250         }
251     }
252
253 errorStr = "";
254 return 0;
255 }
256 //-----------------------------------------------------------------------------
257 int REMOTE_SCRIPT::Stop()
258 {
259 if (!IsRunning())
260     return 0;
261
262 nonstop = false;
263
264 std::for_each(
265         authorizedUsers.begin(),
266         authorizedUsers.end(),
267         DisconnectUser(*this)
268         );
269
270 FinalizeNet();
271
272 if (isRunning)
273     {
274     //5 seconds to thread stops itself
275     for (int i = 0; i < 25 && isRunning; i++)
276         {
277         usleep(200000);
278         }
279
280     //after 5 seconds waiting thread still running. now killing it
281     if (isRunning)
282         {
283         if (pthread_kill(thread, SIGINT))
284             {
285             errorStr = "Cannot kill thread.";
286             printfd(__FILE__, "Cannot kill thread\n");
287             return -1;
288             }
289         printfd(__FILE__, "REMOTE_SCRIPT killed Run\n");
290         }
291     }
292
293 users->DelNotifierUserDel(&onDelUserNotifier);
294 users->DelNotifierUserAdd(&onAddUserNotifier);
295
296 return 0;
297 }
298 //-----------------------------------------------------------------------------
299 int REMOTE_SCRIPT::Reload()
300 {
301 NRMapParser nrMapParser;
302
303 if (nrMapParser.ReadFile(rsSettings.GetMapFileName()))
304     {
305     errorStr = nrMapParser.GetErrorStr();
306     return -1;
307     }
308
309     {
310     STG_LOCKER lock(&mutex, __FILE__, __LINE__);
311
312     printfd(__FILE__, "REMOTE_SCRIPT::Reload()\n");
313
314     netRouters = nrMapParser.GetMap();
315     }
316
317 std::for_each(authorizedUsers.begin(),
318               authorizedUsers.end(),
319               UpdateRouter(*this));
320
321 return 0;
322 }
323 //-----------------------------------------------------------------------------
324 bool REMOTE_SCRIPT::PrepareNet()
325 {
326 sock = socket(AF_INET, SOCK_DGRAM, 0);
327
328 if (sock < 0)
329     {
330     errorStr = "Cannot create socket.";
331     printfd(__FILE__, "Cannot create socket\n");
332     return true;
333     }
334
335 return false;
336 }
337 //-----------------------------------------------------------------------------
338 bool REMOTE_SCRIPT::FinalizeNet()
339 {
340 close(sock);
341 return false;
342 }
343 //-----------------------------------------------------------------------------
344 void REMOTE_SCRIPT::PeriodicSend()
345 {
346 STG_LOCKER lock(&mutex, __FILE__, __LINE__);
347
348 map<uint32_t, RS_USER>::iterator it(authorizedUsers.begin());
349 while (it != authorizedUsers.end())
350     {
351     if (difftime(stgTime, it->second.lastSentTime) - (rand() % halfPeriod) > sendPeriod)
352     //if (stgTime - it->second.lastSentTime > sendPeriod)
353         {
354         Send(it->first, it->second);
355         }
356     ++it;
357     }
358 }
359 //-----------------------------------------------------------------------------
360 #ifdef NDEBUG
361 bool REMOTE_SCRIPT::PreparePacket(char * buf, size_t, uint32_t ip, RS_USER & rsu, bool forceDisconnect) const
362 #else
363 bool REMOTE_SCRIPT::PreparePacket(char * buf, size_t bufSize, uint32_t ip, RS_USER & rsu, bool forceDisconnect) const
364 #endif
365 {
366 RS_PACKET_HEADER packetHead;
367
368 memset(packetHead.padding, 0, sizeof(packetHead.padding));
369 strcpy((char*)packetHead.magic, RS_ID);
370 packetHead.protoVer[0] = '0';
371 packetHead.protoVer[1] = '2';
372 if (forceDisconnect)
373     {
374     packetHead.packetType = RS_DISCONNECT_PACKET;
375     }
376 else
377     {
378     if (rsu.shortPacketsCount % MAX_SHORT_PCKT == 0)
379         {
380         //SendLong
381         packetHead.packetType = rsu.user->IsInetable() ? RS_CONNECT_PACKET : RS_DISCONNECT_PACKET;
382         }
383     else
384         {
385         //SendShort
386         packetHead.packetType = rsu.user->IsInetable() ? RS_ALIVE_PACKET : RS_DISCONNECT_PACKET;
387         }
388     }
389 rsu.shortPacketsCount++;
390 rsu.lastSentTime = stgTime;
391
392 packetHead.ip = htonl(ip);
393 packetHead.id = htonl(rsu.user->GetID());
394 strncpy((char*)packetHead.login, rsu.user->GetLogin().c_str(), RS_LOGIN_LEN);
395 packetHead.login[RS_LOGIN_LEN - 1] = 0;
396
397 memcpy(buf, &packetHead, sizeof(packetHead));
398
399 if (packetHead.packetType == RS_ALIVE_PACKET)
400     {
401     return false;
402     }
403
404 RS_PACKET_TAIL packetTail;
405
406 memset(packetTail.padding, 0, sizeof(packetTail.padding));
407 strcpy((char*)packetTail.magic, RS_ID);
408 vector<string>::const_iterator it;
409 std::string params;
410 for(it = rsSettings.GetUserParams().begin();
411     it != rsSettings.GetUserParams().end();
412     ++it)
413     {
414     std::string parameter(GetUserParam(rsu.user, *it));
415     if (params.length() + parameter.length() > RS_PARAMS_LEN - 1)
416         break;
417     params += parameter + " ";
418     }
419 strncpy((char *)packetTail.params, params.c_str(), RS_PARAMS_LEN);
420 packetTail.params[RS_PARAMS_LEN - 1] = 0;
421
422 assert(sizeof(packetHead) + sizeof(packetTail) <= bufSize && "Insufficient buffer space");
423
424 Encrypt(&ctx, buf + sizeof(packetHead), (char *)&packetTail, sizeof(packetTail) / 8);
425
426 return false;
427 }
428 //-----------------------------------------------------------------------------
429 bool REMOTE_SCRIPT::Send(uint32_t ip, RS_USER & rsu, bool forceDisconnect) const
430 {
431 char buffer[RS_MAX_PACKET_LEN];
432
433 memset(buffer, 0, sizeof(buffer));
434
435 if (PreparePacket(buffer, sizeof(buffer), ip, rsu, forceDisconnect))
436     {
437     printfd(__FILE__, "REMOTE_SCRIPT::Send() - Invalid packet length!\n");
438     return true;
439     }
440
441 std::for_each(
442         rsu.routers.begin(),
443         rsu.routers.end(),
444         PacketSender(sock, buffer, sizeof(buffer), htons(rsSettings.GetPort()))
445         );
446
447 return false;
448 }
449 //-----------------------------------------------------------------------------
450 bool REMOTE_SCRIPT::SendDirect(uint32_t ip, RS_USER & rsu, uint32_t routerIP, bool forceDisconnect) const
451 {
452 char buffer[RS_MAX_PACKET_LEN];
453
454 if (PreparePacket(buffer, sizeof(buffer), ip, rsu, forceDisconnect))
455     {
456     printfd(__FILE__, "REMOTE_SCRIPT::SendDirect() - Invalid packet length!\n");
457     return true;
458     }
459
460 struct sockaddr_in sendAddr;
461
462 sendAddr.sin_family = AF_INET;
463 sendAddr.sin_port = htons(rsSettings.GetPort());
464 sendAddr.sin_addr.s_addr = routerIP;
465
466 int res = sendto(sock, buffer, sizeof(buffer), 0, (struct sockaddr *)&sendAddr, sizeof(sendAddr));
467
468 return (res != sizeof(buffer));
469 }
470 //-----------------------------------------------------------------------------
471 bool REMOTE_SCRIPT::GetUsers()
472 {
473 USER_PTR u;
474
475 int h = users->OpenSearch();
476 if (!h)
477     {
478     errorStr = "users->OpenSearch() error.";
479     printfd(__FILE__, "OpenSearch() error\n");
480     return true;
481     }
482
483 while (!users->SearchNext(h, &u))
484     {
485     SetUserNotifier(u);
486     }
487
488 users->CloseSearch(h);
489 return false;
490 }
491 //-----------------------------------------------------------------------------
492 void REMOTE_SCRIPT::ChangedIP(USER_PTR u, uint32_t oldIP, uint32_t newIP)
493 {
494 /*
495  * When ip changes process looks like:
496  * old => 0, 0 => new
497  *
498  */
499 if (newIP)
500     {
501     RS_USER rsu(IP2Routers(newIP), u);
502     Send(newIP, rsu);
503
504     STG_LOCKER lock(&mutex, __FILE__, __LINE__);
505     authorizedUsers[newIP] = rsu;
506     }
507 else
508     {
509     STG_LOCKER lock(&mutex, __FILE__, __LINE__);
510     const map<uint32_t, RS_USER>::iterator it(
511             authorizedUsers.find(oldIP)
512             );
513     if (it != authorizedUsers.end())
514         {
515         Send(oldIP, it->second, true);
516         authorizedUsers.erase(it);
517         }
518     }
519 }
520 //-----------------------------------------------------------------------------
521 std::vector<uint32_t> REMOTE_SCRIPT::IP2Routers(uint32_t ip)
522 {
523 STG_LOCKER lock(&mutex, __FILE__, __LINE__);
524 for (size_t i = 0; i < netRouters.size(); ++i)
525     {
526     if ((ip & netRouters[i].subnetMask) == (netRouters[i].subnetIP & netRouters[i].subnetMask))
527         {
528         return netRouters[i].routers;
529         }
530     }
531 return std::vector<uint32_t>();
532 }
533 //-----------------------------------------------------------------------------
534 string REMOTE_SCRIPT::GetUserParam(USER_PTR u, const string & paramName) const
535 {
536 string value = "";
537 if (strcasecmp(paramName.c_str(), "cash") == 0)
538     strprintf(&value, "%f", u->GetProperty().cash.Get());
539 else
540 if (strcasecmp(paramName.c_str(), "freeMb") == 0)
541     strprintf(&value, "%f", u->GetProperty().freeMb.Get());
542 else
543 if (strcasecmp(paramName.c_str(), "passive") == 0)
544     strprintf(&value, "%d", u->GetProperty().passive.Get());
545 else
546 if (strcasecmp(paramName.c_str(), "disabled") == 0)
547     strprintf(&value, "%d", u->GetProperty().disabled.Get());
548 else
549 if (strcasecmp(paramName.c_str(), "alwaysOnline") == 0)
550     strprintf(&value, "%d", u->GetProperty().alwaysOnline.Get());
551 else
552 if (strcasecmp(paramName.c_str(), "tariffName") == 0 ||
553     strcasecmp(paramName.c_str(), "tariff") == 0)
554     value = "\"" + u->GetProperty().tariffName.Get() + "\"";
555 else
556 if (strcasecmp(paramName.c_str(), "nextTariff") == 0)
557     value = "\"" + u->GetProperty().nextTariff.Get() + "\"";
558 else
559 if (strcasecmp(paramName.c_str(), "address") == 0)
560     value = "\"" + u->GetProperty().address.Get() + "\"";
561 else
562 if (strcasecmp(paramName.c_str(), "note") == 0)
563     value = "\"" + u->GetProperty().note.Get() + "\"";
564 else
565 if (strcasecmp(paramName.c_str(), "group") == 0)
566     value = "\"" + u->GetProperty().group.Get() + "\"";
567 else
568 if (strcasecmp(paramName.c_str(), "email") == 0)
569     value = "\"" + u->GetProperty().email.Get() + "\"";
570 else
571 if (strcasecmp(paramName.c_str(), "realName") == 0)
572     value = "\"" + u->GetProperty().realName.Get() + "\"";
573 else
574 if (strcasecmp(paramName.c_str(), "credit") == 0)
575     strprintf(&value, "%f", u->GetProperty().credit.Get());
576 else
577 if (strcasecmp(paramName.c_str(), "userdata0") == 0)
578     value = "\"" + u->GetProperty().userdata0.Get() + "\"";
579 else
580 if (strcasecmp(paramName.c_str(), "userdata1") == 0)
581     value = "\"" + u->GetProperty().userdata1.Get() + "\"";
582 else
583 if (strcasecmp(paramName.c_str(), "userdata2") == 0)
584     value = "\"" + u->GetProperty().userdata2.Get() + "\"";
585 else
586 if (strcasecmp(paramName.c_str(), "userdata3") == 0)
587     value = "\"" + u->GetProperty().userdata3.Get() + "\"";
588 else
589 if (strcasecmp(paramName.c_str(), "userdata4") == 0)
590     value = "\"" + u->GetProperty().userdata4.Get() + "\"";
591 else
592 if (strcasecmp(paramName.c_str(), "userdata5") == 0)
593     value = "\"" + u->GetProperty().userdata5.Get() + "\"";
594 else
595 if (strcasecmp(paramName.c_str(), "userdata6") == 0)
596     value = "\"" + u->GetProperty().userdata6.Get() + "\"";
597 else
598 if (strcasecmp(paramName.c_str(), "userdata7") == 0)
599     value = "\"" + u->GetProperty().userdata7.Get() + "\"";
600 else
601 if (strcasecmp(paramName.c_str(), "userdata8") == 0)
602     value = "\"" + u->GetProperty().userdata8.Get() + "\"";
603 else
604 if (strcasecmp(paramName.c_str(), "userdata9") == 0)
605     value = "\"" + u->GetProperty().userdata9.Get() + "\"";
606 else
607 if (strcasecmp(paramName.c_str(), "enabledDirs") == 0)
608     value = u->GetEnabledDirs();
609 else
610     printfd(__FILE__, "Unknown value name: %s\n", paramName.c_str());
611 return value;
612 }
613 //-----------------------------------------------------------------------------
614 void REMOTE_SCRIPT::SetUserNotifier(USER_PTR u)
615 {
616 RS_CHG_AFTER_NOTIFIER<uint32_t> afterChgIPNotifier(*this, u);
617
618 afterChgIPNotifierList.push_front(afterChgIPNotifier);
619
620 u->AddCurrIPAfterNotifier(&(*afterChgIPNotifierList.begin()));
621 }
622 //-----------------------------------------------------------------------------
623 void REMOTE_SCRIPT::UnSetUserNotifier(USER_PTR u)
624 {
625 list<RS_CHG_AFTER_NOTIFIER<uint32_t> >::iterator  ipAIter;
626 std::list<list<RS_CHG_AFTER_NOTIFIER<uint32_t> >::iterator> toErase;
627
628 for (ipAIter = afterChgIPNotifierList.begin(); ipAIter != afterChgIPNotifierList.end(); ++ipAIter)
629     {
630     if (ipAIter->GetUser() == u)
631         {
632         u->DelCurrIPAfterNotifier(&(*ipAIter));
633         toErase.push_back(ipAIter);
634         }
635     }
636
637 std::list<list<RS_CHG_AFTER_NOTIFIER<uint32_t> >::iterator>::iterator eIter;
638
639 for (eIter = toErase.begin(); eIter != toErase.end(); ++eIter)
640     {
641     afterChgIPNotifierList.erase(*eIter);
642     }
643 }
644 //-----------------------------------------------------------------------------
645 template <typename varParamType>
646 void RS_CHG_AFTER_NOTIFIER<varParamType>::Notify(const varParamType & oldValue, const varParamType & newValue)
647 {
648 rs.ChangedIP(user, oldValue, newValue);
649 }
650 //-----------------------------------------------------------------------------
651 void REMOTE_SCRIPT::InitEncrypt(BLOWFISH_CTX * ctx, const string & password) const
652 {
653 unsigned char keyL[PASSWD_LEN];  // Пароль для шифровки
654 memset(keyL, 0, PASSWD_LEN);
655 strncpy((char *)keyL, password.c_str(), PASSWD_LEN);
656 Blowfish_Init(ctx, keyL, PASSWD_LEN);
657 }
658 //-----------------------------------------------------------------------------
659 void REMOTE_SCRIPT::Encrypt(BLOWFISH_CTX * ctx, char * dst, const char * src, size_t len8) const
660 {
661 if (dst != src)
662     memcpy(dst, src, len8 * 8);
663 for (size_t i = 0; i < len8; ++i)
664     Blowfish_Encrypt(ctx, (uint32_t *)(dst + i * 8), (uint32_t *)(dst + i * 8 + 4));
665 }
666 //-----------------------------------------------------------------------------