44a7d3c3a58cb8bfd87c81310f1d5a5e7026dcb1
[platform/core/security/key-manager.git] / src / manager / main / socket-manager.cpp
1 /*
2  *  Copyright (c) 2000 - 2013 Samsung Electronics Co., Ltd All Rights Reserved
3  *
4  *  Contact: Bumjin Im <bj.im@samsung.com>
5  *
6  *  Licensed under the Apache License, Version 2.0 (the "License");
7  *  you may not use this file except in compliance with the License.
8  *  You may obtain a copy of the License at
9  *
10  *      http://www.apache.org/licenses/LICENSE-2.0
11  *
12  *  Unless required by applicable law or agreed to in writing, software
13  *  distributed under the License is distributed on an "AS IS" BASIS,
14  *  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
15  *  See the License for the specific language governing permissions and
16  *  limitations under the License
17  */
18 /*
19  * @file        socket-manager.cpp
20  * @author      Bartlomiej Grzelewski (b.grzelewski@samsung.com)
21  * @version     1.0
22  * @brief       Implementation of SocketManager.
23  */
24
25 #include <set>
26
27 #include <signal.h>
28 #include <sys/select.h>
29 #include <sys/signalfd.h>
30 #include <sys/types.h>
31 #include <sys/socket.h>
32 #include <sys/smack.h>
33 #include <sys/un.h>
34 #include <sys/stat.h>
35 #include <unistd.h>
36 #include <fcntl.h>
37 #include <signal.h>
38 #include <errno.h>
39 #include <time.h>
40
41 #include <systemd/sd-daemon.h>
42
43 #include <dpl/errno_string.h>
44 #include <dpl/log/log.h>
45 #include <dpl/assert.h>
46
47 #include <smack-check.h>
48 #include <socket-manager.h>
49
50 namespace {
51
52 const time_t SOCKET_TIMEOUT = 1000;
53
54 int getCredentialsFromSocket(int sock, CKM::Credentials &cred) {
55     std::vector<char> result(1);
56     socklen_t length = 1;
57     ucred peerCred;
58
59     if ((0 > getsockopt(sock, SOL_SOCKET, SO_PEERSEC, result.data(), &length))
60         && errno != ERANGE)
61     {
62         LogError("getsockopt failed");
63         return -1;
64     }
65
66     result.resize(length);
67
68     if (0 > getsockopt(sock, SOL_SOCKET, SO_PEERSEC, result.data(), &length)) {
69         LogError("getsockopt failed");
70         return -1;
71     }
72
73     length = sizeof(ucred);
74
75     if (0 > getsockopt(sock, SOL_SOCKET, SO_PEERCRED, &peerCred, &length)) {
76         LogError("getsockopt failed");
77         return -1;
78     }
79
80     result.push_back('\0');
81     cred = CKM::Credentials(peerCred.uid, result.data());
82     return 0;
83 }
84
85 } // namespace anonymous
86
87 namespace CKM {
88
89 struct DummyService : public GenericSocketService {
90     ServiceDescriptionVector GetServiceDescription() {
91         return ServiceDescriptionVector();
92     }
93
94     void Start() {}
95     void Stop() {}
96
97     void Event(const AcceptEvent &) {}
98     void Event(const WriteEvent &) {}
99     void Event(const ReadEvent &) {}
100     void Event(const CloseEvent &) {}
101 };
102
103 struct SignalService : public GenericSocketService {
104     int GetDescriptor() {
105         LogInfo("set up");
106         sigset_t mask;
107         sigemptyset(&mask);
108         sigaddset(&mask, SIGTERM);
109         if (-1 == pthread_sigmask(SIG_BLOCK, &mask, NULL))
110             return -1;
111         return signalfd(-1, &mask, 0);
112     }
113
114     ServiceDescriptionVector GetServiceDescription() {
115         return ServiceDescriptionVector();
116     }
117
118     void Start() {}
119     void Stop() {}
120
121     void Event(const AcceptEvent &) {} // not supported
122     void Event(const WriteEvent &) {}  // not supported
123     void Event(const CloseEvent &) {}  // not supported
124
125     void Event(const ReadEvent &event) {
126         LogDebug("Get signal information");
127
128         if(sizeof(struct signalfd_siginfo) != event.rawBuffer.size()) {
129             LogError("Wrong size of signalfd_siginfo struct. Expected: "
130                 << sizeof(signalfd_siginfo) << " Get: "
131                 << event.rawBuffer.size());
132             return;
133         }
134
135         signalfd_siginfo *siginfo = (signalfd_siginfo*)(&(event.rawBuffer[0]));
136
137         if (siginfo->ssi_signo == SIGTERM) {
138             LogInfo("Got signal: SIGTERM");
139             static_cast<SocketManager*>(m_serviceManager)->MainLoopStop();
140             return;
141         }
142
143         LogInfo("This should not happend. Got signal: " << siginfo->ssi_signo);
144     }
145 };
146
147 SocketManager::SocketDescription&
148 SocketManager::CreateDefaultReadSocketDescription(int sock, bool timeout)
149 {
150     if ((int)m_socketDescriptionVector.size() <= sock)
151         m_socketDescriptionVector.resize(sock+20);
152
153     auto &desc = m_socketDescriptionVector[sock];
154     desc.isListen = false;
155     desc.isOpen = true;
156     desc.interfaceID = 0;
157     desc.service = NULL;
158     desc.counter = ++m_counter;
159
160     if (timeout) {
161         desc.timeout = time(NULL) + SOCKET_TIMEOUT;
162         if (false == desc.isTimeout) {
163             Timeout tm;
164             tm.time = desc.timeout;
165             tm.sock = sock;
166             m_timeoutQueue.push(tm);
167         }
168     }
169
170     desc.isTimeout = timeout;
171
172     FD_SET(sock, &m_readSet);
173     m_maxDesc = sock > m_maxDesc ? sock : m_maxDesc;
174     return desc;
175 }
176
177 SocketManager::SocketManager()
178   : m_maxDesc(0)
179   , m_counter(0)
180 {
181     FD_ZERO(&m_readSet);
182     FD_ZERO(&m_writeSet);
183     if (-1 == pipe(m_notifyMe)) {
184         int err = errno;
185         ThrowMsg(Exception::InitFailed, "Error in pipe: " << GetErrnoString(err));
186     }
187     LogInfo("Pipe: Read desc: " << m_notifyMe[0] << " Write desc: " << m_notifyMe[1]);
188
189     auto &desc = CreateDefaultReadSocketDescription(m_notifyMe[0], false);
190     desc.service = new DummyService;
191
192     // std::thread bases on pthread so this should work fine
193     sigset_t set;
194     sigemptyset(&set);
195     sigaddset(&set, SIGPIPE);
196     pthread_sigmask(SIG_BLOCK, &set, NULL);
197
198     // add support for TERM signal (passed from systemd)
199     auto *signalService = new SignalService;
200     signalService->SetSocketManager(this);
201     int filefd = signalService->GetDescriptor();
202     if (-1 == filefd) {
203         LogError("Error in SignalService.GetDescriptor()");
204         delete signalService;
205     } else {
206         auto &desc2 = CreateDefaultReadSocketDescription(filefd, false);
207         desc2.service = signalService;
208         LogInfo("SignalService mounted on " << filefd << " descriptor");
209     }
210 }
211
212 SocketManager::~SocketManager() {
213     std::set<GenericSocketService*> serviceMap;
214
215     // Find all services. Set is used to remove duplicates.
216     // In this implementation, services are not able to react in any way.
217     for (size_t i=0; i < m_socketDescriptionVector.size(); ++i)
218         if (m_socketDescriptionVector[i].isOpen)
219             serviceMap.insert(m_socketDescriptionVector[i].service);
220
221     // Time to destroy all services.
222     for (auto service : serviceMap) {
223         LogDebug("delete " << (void*)(service));
224         service->Stop();
225         delete service;
226     }
227
228     for (size_t i = 0; i < m_socketDescriptionVector.size(); ++i)
229         if (m_socketDescriptionVector[i].isOpen)
230             close(i);
231
232     // All socket except one were closed. Now pipe input must be closed.
233     close(m_notifyMe[1]);
234 }
235
236 void SocketManager::ReadyForAccept(int sock) {
237     struct sockaddr_un clientAddr;
238     unsigned int clientLen = sizeof(clientAddr);
239     int client = accept4(sock, (struct sockaddr*) &clientAddr, &clientLen, SOCK_NONBLOCK);
240 //    LogInfo("Accept on sock: " << sock << " Socket opended: " << client);
241     if (-1 == client) {
242         int err = errno;
243         LogDebug("Error in accept: " << GetErrnoString(err));
244         return;
245     }
246
247     Credentials peerCred;
248     if (0 > getCredentialsFromSocket(client, peerCred)) {
249         LogDebug("Error in getCredentialsFromSocket. Socket closed.");
250         TEMP_FAILURE_RETRY(close(client));
251         return;
252     }
253
254     auto &desc = CreateDefaultReadSocketDescription(client, true);
255     desc.interfaceID = m_socketDescriptionVector[sock].interfaceID;
256     desc.service = m_socketDescriptionVector[sock].service;
257
258     GenericSocketService::AcceptEvent event;
259     event.connectionID.sock = client;
260     event.connectionID.counter = desc.counter;
261     event.interfaceID = desc.interfaceID;
262     event.credentials = peerCred;
263     desc.service->Event(event);
264 }
265
266 void SocketManager::ReadyForRead(int sock) {
267     if (m_socketDescriptionVector[sock].isListen) {
268         ReadyForAccept(sock);
269         return;
270     }
271
272     GenericSocketService::ReadEvent event;
273     event.connectionID.sock = sock;
274     event.connectionID.counter = m_socketDescriptionVector[sock].counter;
275     event.rawBuffer.resize(4096);
276
277     auto &desc = m_socketDescriptionVector[sock];
278     desc.timeout = time(NULL) + SOCKET_TIMEOUT;
279
280     ssize_t size = read(sock, &event.rawBuffer[0], 4096);
281
282     if (size == 0) {
283         CloseSocket(sock);
284     } else if (size >= 0) {
285         event.rawBuffer.resize(size);
286         desc.service->Event(event);
287     } else if (size == -1) {
288         int err = errno;
289         switch(err) {
290             case EAGAIN:
291             case EINTR:
292                 break;
293             default:
294                 LogDebug("Reading sock error: " << GetErrnoString(err));
295                 CloseSocket(sock);
296         }
297     }
298 }
299
300 void SocketManager::ReadyForWriteBuffer(int sock) {
301     auto &desc = m_socketDescriptionVector[sock];
302     size_t size = desc.rawBuffer.size();
303     ssize_t result = write(sock, &desc.rawBuffer[0], size);
304     if (result == -1) {
305         int err = errno;
306         switch(err) {
307         case EAGAIN:
308         case EINTR:
309             // select will trigger write once again, nothing to do
310             break;
311         case EPIPE:
312         default:
313             LogDebug("Error during write: " << GetErrnoString(err));
314             CloseSocket(sock);
315             break;
316         }
317         return; // We do not want to propagate error to next layer
318     }
319
320     desc.rawBuffer.erase(desc.rawBuffer.begin(), desc.rawBuffer.begin()+result);
321
322     desc.timeout = time(NULL) + SOCKET_TIMEOUT;
323
324     if (desc.rawBuffer.empty())
325         FD_CLR(sock, &m_writeSet);
326
327     GenericSocketService::WriteEvent event;
328     event.connectionID.sock = sock;
329     event.connectionID.counter = desc.counter;
330     event.size = result;
331     event.left = desc.rawBuffer.size();
332
333     desc.service->Event(event);
334 }
335
336 void SocketManager::ReadyForWrite(int sock) {
337         ReadyForWriteBuffer(sock);
338 }
339
340 void SocketManager::MainLoop() {
341     // remove evironment values passed by systemd
342     // uncomment it after removing old security-server code
343     // sd_listen_fds(1);
344
345     // Daemon is ready to work.
346     sd_notify(0, "READY=1");
347
348     m_working = true;
349     while(m_working) {
350         fd_set readSet = m_readSet;
351         fd_set writeSet = m_writeSet;
352
353         timeval localTempTimeout;
354         timeval *ptrTimeout = &localTempTimeout;
355
356         // I need to extract timeout from priority_queue.
357         // Timeout in priority_queue may be deprecated.
358         // I need to find some actual one.
359         while(!m_timeoutQueue.empty()) {
360             auto &top = m_timeoutQueue.top();
361             auto &desc = m_socketDescriptionVector[top.sock];
362
363             if (top.time == desc.timeout) {
364                 // This timeout matches timeout from socket.
365                 // It can be used.
366                 break;
367             } else {
368                 // This socket was used after timeout in priority queue was set up.
369                 // We need to update timeout and find some useable one.
370                 Timeout tm = { desc.timeout , top.sock};
371                 m_timeoutQueue.pop();
372                 m_timeoutQueue.push(tm);
373             }
374         }
375
376         if (m_timeoutQueue.empty()) {
377             LogDebug("No usaable timeout found.");
378             ptrTimeout = NULL; // select will wait without timeout
379         } else {
380             time_t currentTime = time(NULL);
381             auto &pqTimeout = m_timeoutQueue.top();
382
383             // 0 means that select won't block and socket will be closed ;-)
384             ptrTimeout->tv_sec =
385               currentTime < pqTimeout.time ? pqTimeout.time - currentTime : 0;
386             ptrTimeout->tv_usec = 0;
387 //            LogDebug("Set up timeout: " << (int)ptrTimeout->tv_sec
388 //                << " seconds. Socket: " << pqTimeout.sock);
389         }
390
391         int ret = select(m_maxDesc+1, &readSet, &writeSet, NULL, ptrTimeout);
392
393         if (0 == ret) { // timeout
394             Assert(!m_timeoutQueue.empty());
395
396             Timeout pqTimeout = m_timeoutQueue.top();
397             m_timeoutQueue.pop();
398
399             auto &desc = m_socketDescriptionVector[pqTimeout.sock];
400
401             if (!desc.isTimeout || !desc.isOpen) {
402                 // Connection was closed. Timeout is useless...
403                 desc.isTimeout = false;
404                 continue;
405             }
406
407             if (pqTimeout.time < desc.timeout) {
408                 // Is it possible?
409                 // This socket was used after timeout. We need to update timeout.
410                 pqTimeout.time = desc.timeout;
411                 m_timeoutQueue.push(pqTimeout);
412                 continue;
413             }
414
415             // timeout from m_timeoutQueue matches with socket.timeout
416             // and connection is open. Time to close it!
417             // Putting new timeout in queue here is pointless.
418             desc.isTimeout = false;
419             CloseSocket(pqTimeout.sock);
420
421             // All done. Now we should process next select ;-)
422             continue;
423         }
424
425         if (-1 == ret) {
426             switch(errno) {
427             case EINTR:
428                 LogDebug("EINTR in select");
429                 break;
430             default:
431                 int err = errno;
432                 LogError("Error in select: " << GetErrnoString(err));
433                 return;
434             }
435             continue;
436         }
437         for(int i = 0; i<m_maxDesc+1 && ret; ++i) {
438             if (FD_ISSET(i, &readSet)) {
439                 ReadyForRead(i);
440                 --ret;
441             }
442             if (FD_ISSET(i, &writeSet)) {
443                 ReadyForWrite(i);
444                 --ret;
445             }
446         }
447         ProcessQueue();
448     }
449 }
450
451 void SocketManager::MainLoopStop()
452 {
453     m_working = false;
454     NotifyMe();
455 }
456
457 int SocketManager::GetSocketFromSystemD(
458     const GenericSocketService::ServiceDescription &desc)
459 {
460     int fd;
461
462     // TODO optimalization - do it once in object constructor
463     //                       and remember all information path->sockfd
464     int n = sd_listen_fds(0);
465
466     LogInfo("sd_listen_fds returns: " << n);
467
468     if (n < 0) {
469         LogError("Error in sd_listend_fds");
470         ThrowMsg(Exception::InitFailed, "Error in sd_listend_fds");
471     }
472
473     for(fd = SD_LISTEN_FDS_START; fd < SD_LISTEN_FDS_START+n; ++fd) {
474         if (0 < sd_is_socket_unix(fd, SOCK_STREAM, 1,
475                                   desc.serviceHandlerPath.c_str(), 0))
476         {
477             LogInfo("Useable socket " << desc.serviceHandlerPath <<
478                 " was passed by SystemD under descriptor " << fd);
479             return fd;
480         }
481     }
482     LogError("No useable sockets were passed by systemd.");
483     return -1;
484 }
485
486 int SocketManager::CreateDomainSocketHelp(
487     const GenericSocketService::ServiceDescription &desc)
488 {
489     int sockfd;
490
491     if (-1 == (sockfd = socket(AF_UNIX, SOCK_STREAM, 0))) {
492         int err = errno;
493         LogError("Error in socket: " << GetErrnoString(err));
494         ThrowMsg(Exception::InitFailed, "Error in socket: " << GetErrnoString(err));
495     }
496
497     if (smack_check()) {
498         LogInfo("Set up smack label: " << desc.smackLabel);
499
500         if (0 != smack_fsetlabel(sockfd, desc.smackLabel.c_str(), SMACK_LABEL_IPIN)) {
501             LogError("Error in smack_fsetlabel");
502             ThrowMsg(Exception::InitFailed, "Error in smack_fsetlabel");
503         }
504     } else {
505         LogInfo("No smack on platform. Socket won't be securied with smack label!");
506     }
507
508     int flags;
509     if (-1 == (flags = fcntl(sockfd, F_GETFL, 0)))
510         flags = 0;
511
512     if (-1 == fcntl(sockfd, F_SETFL, flags | O_NONBLOCK)) {
513         int err = errno;
514         close(sockfd);
515         LogError("Error in fcntl: " << GetErrnoString(err));
516         ThrowMsg(Exception::InitFailed, "Error in fcntl: " << GetErrnoString(err));
517     }
518
519     sockaddr_un serverAddress;
520     memset(&serverAddress, 0, sizeof(serverAddress));
521     serverAddress.sun_family = AF_UNIX;
522     strcpy(serverAddress.sun_path, desc.serviceHandlerPath.c_str());
523     unlink(serverAddress.sun_path);
524
525     mode_t originalUmask;
526     originalUmask = umask(0);
527
528     if (-1 == bind(sockfd, (struct sockaddr*)&serverAddress, sizeof(serverAddress))) {
529         int err = errno;
530         close(sockfd);
531         LogError("Error in bind: " << GetErrnoString(err));
532         ThrowMsg(Exception::InitFailed, "Error in bind: " << GetErrnoString(err));
533     }
534
535     umask(originalUmask);
536
537     if (-1 == listen(sockfd, 5)) {
538         int err = errno;
539         close(sockfd);
540         LogError("Error in listen: " << GetErrnoString(err));
541         ThrowMsg(Exception::InitFailed, "Error in listen: " << GetErrnoString(err));
542     }
543
544     return sockfd;
545 }
546
547 void SocketManager::CreateDomainSocket(
548     GenericSocketService *service,
549     const GenericSocketService::ServiceDescription &desc)
550 {
551     int sockfd = GetSocketFromSystemD(desc);
552     if (-1 == sockfd)
553         sockfd = CreateDomainSocketHelp(desc);
554
555     auto &description = CreateDefaultReadSocketDescription(sockfd, false);
556
557     description.isListen = true;
558     description.interfaceID = desc.interfaceID;
559     description.service = service;
560
561     LogDebug("Listen on socket: " << sockfd <<
562         " Handler: " << desc.serviceHandlerPath.c_str());
563 }
564
565 void SocketManager::RegisterSocketService(GenericSocketService *service) {
566     service->SetSocketManager(this);
567     service->SetCommManager(&m_commMgr);
568     auto serviceVector = service->GetServiceDescription();
569     Try {
570         for (auto iter = serviceVector.begin(); iter != serviceVector.end(); ++iter)
571             CreateDomainSocket(service, *iter);
572     } Catch (Exception::Base) {
573         for (int i =0; i < (int)m_socketDescriptionVector.size(); ++i)
574         {
575             auto &desc = m_socketDescriptionVector[i];
576             if (desc.service == service && desc.isOpen) {
577                 close(i);
578                 desc.isOpen = false;
579             }
580         }
581         ReThrow(Exception::Base);
582     }
583 }
584
585 void SocketManager::Close(ConnectionID connectionID) {
586     {
587         std::lock_guard<std::mutex> ulock(m_eventQueueMutex);
588         m_closeQueue.push(connectionID);
589     }
590     NotifyMe();
591 }
592
593 void SocketManager::Write(ConnectionID connectionID, const RawBuffer &rawBuffer) {
594     WriteBuffer buffer;
595     buffer.connectionID = connectionID;
596     buffer.rawBuffer = rawBuffer;
597     {
598         std::lock_guard<std::mutex> ulock(m_eventQueueMutex);
599         m_writeBufferQueue.push(buffer);
600     }
601     NotifyMe();
602 }
603
604 void SocketManager::NotifyMe() {
605     TEMP_FAILURE_RETRY(write(m_notifyMe[1], "You have message ;-)", 1));
606 }
607
608 void SocketManager::ProcessQueue() {
609     WriteBuffer buffer;
610     {
611         std::lock_guard<std::mutex> ulock(m_eventQueueMutex);
612         while (!m_writeBufferQueue.empty()) {
613             buffer = m_writeBufferQueue.front();
614             m_writeBufferQueue.pop();
615
616             auto &desc = m_socketDescriptionVector[buffer.connectionID.sock];
617
618             if (!desc.isOpen) {
619                 LogDebug("Received packet for write but connection is closed. Packet ignored!");
620                 continue;
621             }
622
623             if (desc.counter != buffer.connectionID.counter)
624             {
625                 LogDebug("Received packet for write but counter is broken. Packet ignored!");
626                 continue;
627             }
628
629             std::copy(
630                 buffer.rawBuffer.begin(),
631                 buffer.rawBuffer.end(),
632                 std::back_inserter(desc.rawBuffer));
633
634             FD_SET(buffer.connectionID.sock, &m_writeSet);
635         }
636
637     }
638
639     while (1) {
640         ConnectionID connection;
641         {
642             std::lock_guard<std::mutex> ulock(m_eventQueueMutex);
643             if (m_closeQueue.empty())
644                 return;
645             connection = m_closeQueue.front();
646             m_closeQueue.pop();
647         }
648
649         if (!m_socketDescriptionVector[connection.sock].isOpen)
650             continue;
651
652         if (connection.counter != m_socketDescriptionVector[connection.sock].counter)
653             continue;
654
655         CloseSocket(connection.sock);
656     }
657 }
658
659 void SocketManager::CloseSocket(int sock) {
660 //    LogInfo("Closing socket: " << sock);
661     auto &desc = m_socketDescriptionVector[sock];
662
663     if (!(desc.isOpen)) {
664         // This may happend when some information was waiting for write to the
665         // socket and in the same time socket was closed by the client.
666         LogError("Socket " << sock << " is not open. Nothing to do!");
667         return;
668     }
669
670     GenericSocketService::CloseEvent event;
671     event.connectionID.sock = sock;
672     event.connectionID.counter = desc.counter;
673     auto service = desc.service;
674
675     desc.isOpen = false;
676     desc.service = NULL;
677     desc.interfaceID = -1;
678     desc.rawBuffer.clear();
679
680     if (service)
681         service->Event(event);
682     else
683         LogError("Critical! Service is NULL! This should never happend!");
684
685     TEMP_FAILURE_RETRY(close(sock));
686     FD_CLR(sock, &m_readSet);
687     FD_CLR(sock, &m_writeSet);
688 }
689
690 } // namespace CKM