- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- Anonymous
- kek

1. #!/usr/bin/perl
2. ########################################
3. ### Хранит функции работы с системой ###
4. ########################################
5. package System;
6. use strict;
7. use warnings;
8. use Conf;
9. use File::Path qw(make_path);
10. use File::Copy;
11. use File::Read;
12. use DBI;
14. ##################################
15. ### Функции для работы с linux ###
16. ##################################
18. # возвращает аптайм
19. sub linux_get_uptime
20. {
21. my @uptime = split(/,/, `/usr/bin/uptime 2>/dev/null`, 3);
22. $uptime[0] =~ s/^[\s]+//;
23. chomp $uptime[2];
24. return $uptime[0] . "," . $uptime[2];
25. }
27. # возвращает версию ядра
28. sub linux_get_kernel_version
29. {
30. my $tmp = `/bin/uname -r -m`;
31. chomp $tmp;
32. return $tmp;
33. }
35. # возвращает hostname
36. sub linux_get_hostname
37. {
38. my $tmp = `/bin/hostname -f 2>/dev/null`;
39. chomp $tmp;
40. return $tmp;
41. }
43. # возвращает информацию о свободном месте на примонтированых ext234 файловых системах
44. sub linux_get_spaceinfo
45. {
46. my @tmp = `/bin/df 2>/dev/null -h -l -t ext4 -t ext3 -t ext2 | tail -n +2`;
47. my $result = '';
48. foreach (@tmp) {
49. my @line = split /\s+/;
50. $result .= $line[5] . ': ' . $line[3] . ', ';
51. }
52. $result =~ s/^(.*),/$1/i;
53. return $result;
54. }
56. # возвращает информацию о памяти
57. sub linux_get_usage
58. {
59. my @meminfo = `cat /proc/meminfo 2>/dev/null |egrep -i "memtotal|memfree|swaptotal|swapfree"`;
60. my $result = '';
61. my @tmp;
62. @tmp = split /:\s+/, $meminfo[0];
63. chomp $tmp[1];
64. $tmp[1] =~ s/[\s]+//i;
65. $result .= $tmp[1];
66. @tmp = split /:\s+/, $meminfo[1];
67. $tmp[1] =~ s/[\s]+//i;
68. chomp $tmp[1];
69. $result .= '/' . $tmp[1] . ', ';
70. @tmp = split /:\s+/, $meminfo[2];
71. $tmp[1] =~ s/[\s]+//i;
72. chomp $tmp[1];
73. $result .= $tmp[1];
74. @tmp = split /:\s+/, $meminfo[3];
75. $tmp[1] =~ s/[\s]+//i;
76. chomp $tmp[1];
77. $result .= '/' . $tmp[1];
78. return $result;
79. }
81. # возвращает ip сервера для интерфейса
82. sub linux_get_ip
83. {
84. my $server_ip = `/bin/ip 2>/dev/null addr show dev eth0 |grep inet |grep -v inet6`;
85. my @server_ip = split /\s+/, $server_ip;
86. if (defined($server_ip[2])) {
87. $server_ip = (split /\//, $server_ip[2])[0];
88. return $server_ip;
89. } else {
90. return '';
91. }
92. }
94. # возвращает список пользователей
95. sub linux_get_users
96. {
97. my %users;
98. open my $fh, "<", "/etc/passwd"
99. or Logger::warn('Manager: could not read /etc/passwd');
100. while (<$fh>) {
101. chomp;
102. my @fields = split /:/;
103. if (@fields && ($fields[2] >= 1000) && ($fields[2] <= 65000)) {
104. $users{$fields[2]} = \@fields;
105. }
106. }
107. close $fh;
108. return %users;
109. }
111. # возвращает пользователя по id
112. sub linux_get_user
113. {
114. my ($user_id) = @_;
115. my @user;
117. open my $fh, "<", "/etc/passwd"
118. or Logger::warn('Manager: could not read /etc/passwd');
120. while (<$fh>) {
121. chomp;
122. my @fields = split /:/;
123. if (@fields && $user_id && ( $fields[2] eq $user_id ) ) {
124. @user = @fields;
125. last();
126. }
127. }
128. close $fh;
130. return @user;
131. }
133. # проверяет логин пользователя на свободность
134. sub linux_login_free
135. {
136. my $login = shift();
137. my $result = `cat /etc/passwd 2>/dev/null | egrep '^$login:'`;
138. chomp $result;
139. return ($result) ? 0 : 1;
140. }
142. # меняет пароль пользователю
143. sub linux_passwd
144. {
145. my ($login, $password) = @_;
147. # trim
148. $login =~ s/^\s+//;
149. $login =~ s/\s+$//;
151. # проверяем длину
152. return {'status' => 1, 'message' => 'User login length must be grater 0'}
153. if (length ($login) == 0);
155. # проверяем длину
156. return {'status' => 1, 'message' => 'User password length must be grater 0'}
157. if (length ($password) == 0);
159. # нет ли ещё такого пользователя
160. my $usercounter = `cat /etc/passwd | egrep "^$login:" |wc -l`;
161. chomp $usercounter;
162. return {'status' => $?, 'message' => 'User NOT exists'}
163. if ($usercounter == 0);
165. # Меняем пароль
166. my $cmd = '/bin/echo -e "' . $login . ':' . $password . '" | chpasswd -c SHA512';
167. system($cmd);
168. }
170. # добавляет пользователя
171. sub linux_add_user
172. {
173. my ($login, $password) = @_;
175. # trim
176. $login =~ s/^\s+//;
177. $login =~ s/\s+$//;
179. # проверяем длину
180. return {'status' => 1, 'message' => 'User login length must be grater 0'}
181. if (length ($login) == 0);
183. # проверяем формат
184. return {'status' => 1, 'message' => 'Error in format of login (^[a-z][-a-z0-9_\.]*$)'}
185. if ($login !~ m/^[a-z][-a-z0-9_\.]*$/);
187. # проверяем длину
188. return {'status' => 1, 'message' => 'User password length must be grater 0'}
189. if (length ($password) == 0);
191. # нет ли уже такого пользователя
192. my $usercounter = `cat /etc/passwd | egrep "^$login:" |wc -l`;
193. chomp $usercounter;
194. return {'status' => $?, 'message' => 'User exists'}
195. if ($usercounter > 0);
197. my $salt = join '', ('.', '/', 0..9, 'A'..'Z', 'a'..'z')[rand 64, rand 64, rand 64, rand 64, rand 64, rand 64, rand 64, rand 64];
198. my $phash = crypt($password, '$6$' . $salt . '$');
199. $phash =~ s/\$/\\\$/g;
200. my $add_result = system("/usr/sbin/useradd -d /var/www/$login -s /bin/false -m -p $phash $login 2>/dev/null");
202. # нет ли ошибок при создании пользователя
203. return {'status' => $add_result, 'message' => 'error adding user'}
204. if ($add_result != 0);
206. # создаем структуру каталогов
207. make_path( '/var/www/' . $login . '/data',
208. '/var/www/' . $login . '/data/www',
209. '/var/www/' . $login . '/data/logs',
210. '/var/www/' . $login . '/data/tmp', {
211. mode => 0755,
212. owner => $login,
213. group => $login
214. });
216. return {'status' => 0, 'message' => 'User successfully created'};
217. }
219. # удаляет пользователя
220. sub linux_del_user
221. {
222. my $login = shift();
224. # trim
225. $login =~ s/^\s+//;
226. $login =~ s/\s+$//;
228. # проверяем длину
229. return {'status' => 1, 'message' => 'User login length must be grater 0'}
230. if (length ($login) == 0);
232. # нет ли ещё такого пользователя
233. my $usercounter = `cat /etc/passwd | egrep "^$login:" |wc -l`;
234. chomp $usercounter;
235. return {'status' => $?, 'message' => 'User NOT exists'}
236. if ($usercounter == 0);
238. return system("userdel -f $login");
239. }
241. # производит операции с сервисом linux
242. sub linux_service
243. {
244. my ($daemon, $action) = @_;
245. my $tmp = `/etc/init.d/$daemon $action 2>&1`;
246. #возвращаем результат
247. return {'status' => $?,
248. 'message' => $tmp};
249. }
251. # производит операции с сервисом linux (утилитой service)
252. sub linux_service2
253. {
254. my ($daemon, $action) = @_;
255. my $tmp = `/usr/bin/service $daemon $action 2>&1`;
256. #возвращаем результат
257. return {'status' => $?,
258. 'message' => $tmp};
259. }
265. ####################################
266. ### Функции для работы с proftpd ###
267. ####################################
269. # получает список фтп пользователей из файла ftp пользователей
270. sub linux_ftp_get_users
271. {
272. my $ftp_passwd_file = Conf::get('Manager.ftp_passwd_file');
273. open(my $fh, '<', $ftp_passwd_file)
274. or Logger::warn('Manager: could not read FTP passwd file');
275. my @users;
276. my %users;
277. while (<$fh>) {
278. chomp;
279. push(@users, $_);
280. my @fields = split /:/;
281. $users{$fields[0]} = \@fields;
282. }
283. close($fh);
284. return %users;
285. }
287. # проверяет логин пользователя на свободность
288. sub linux_ftp_login_free
289. {
290. my $login = shift();
291. my $ftp_passwd_file = Conf::get('Manager.ftp_passwd_file');
292. open(my $fh, '<', $ftp_passwd_file)
293. or Logger::warn('Manager: could not read FTP passwd file');
294. my $user = '';
295. while (<$fh>) {
296. chomp;
297. if (m/$login:/) {
298. $user = $_;
299. last();
300. }
301. }
302. close($fh);
303. return (length($user)) ? 0 : 1;
304. }
306. # добавляет фтп пользователя
307. sub linux_ftp_add_user
308. {
309. my ($login, $passw, $owner_id, $homedir) = @_;
310. my $ftp_passwd_file = Conf::get('Manager.ftp_passwd_file');
312. # trim
313. $login =~ s/^\s+//;
314. $login =~ s/\s+$//;
316. # проверяем длину
317. return {'status' => 1, 'message' => 'User login length must be grater 0'}
318. if (length ($login) == 0);
320. # проверяем формат
321. return {'status' => 2, 'message' => 'Error in format of login (^[a-z][-a-z0-9_\.]*$)'}
322. if ($login !~ m/^[a-z][-a-z0-9_\.]*$/);
324. # проверяем длину
325. return {'status' => 3, 'message' => 'User password length must be grater 0'}
326. if (length ($passw) == 0);
328. # если логин свободен
329. if (linux_ftp_login_free($login))
330. {
332. my $salt = join '', ('.', '/', 0..9, 'A'..'Z', 'a'..'z')[rand 64, rand 64, rand 64, rand 64, rand 64, rand 64, rand 64, rand 64];
333. my $phash = crypt($passw, '$6$' . $salt . '$');
335. $homedir =~ s/^\///;
336. my @user = linux_get_user($owner_id);
338. if (@user) {
339. $homedir = $user[5] . '/' . $homedir;
341. # добавляем пользователя
342. open(my $fh, '>>', $ftp_passwd_file)
343. or Logger::warn('Manager: could not open FTP passwd file for write');
344. my $userstr = $login . ":" . $phash . ":" . $owner_id . ":" . $owner_id . "::" . $homedir . ":/bin/false\n";
345. print($fh $userstr);
346. close($fh);
348. # перезагружаем фтп сервер
349. linux_service('proftpd', 'force-reload');
351. # все ок
352. return {'status' => 0, 'message' => 'User added'};
353. } else {
355. # id родителя указано не верно
356. return {'status' => 4, 'message' => 'Owner user not found'};
357. }
359. } else {
360. # логин уже занят
361. return {'status' => $?, 'message' => 'User exists'};
362. }
363. }
365. # удаляет пользователя из файла ftp аккаунтов
366. sub linux_ftp_del_user
367. {
368. my $login = shift();
369. my $ftp_passwd_file = Conf::get('Manager.ftp_passwd_file');
371. # trim
372. $login =~ s/^\s+//;
373. $login =~ s/\s+$//;
375. # проверяем длину
376. return {'status' => 1, 'message' => 'User login length must be grater 0'}
377. if (length ($login) == 0);
379. # есть ли такой пользователь
380. return {'status' => 2, 'message' => 'User NOT exists'}
381. if (linux_ftp_login_free($login));
383. # читаем пользователей кроме искомого в массив
384. open(my $fh, '<', $ftp_passwd_file)
385. or Logger::warn('Manager: could not read FTP passwd file');
386. my @users;
387. while (<$fh>) {
388. chomp;
389. if ($_ !~ m/^$login:/) {
390. push(@users, $_);
391. }
392. }
393. close($fh);
395. # создаем временный файл с пользователями
396. open(my $fh2, '>', $ftp_passwd_file . ".tmp")
397. or Logger::warn('Manager: could not open FTP passwd temp file ' . $ftp_passwd_file . ".tmp" . ' for write');
398. foreach (@users)
399. {
400. print($fh2 $_ . "\n");
401. }
402. close($fh2);
404. # копируем временный файл в реальный, а реальный предварительно бекапим
405. copy($ftp_passwd_file, $ftp_passwd_file . '-');
406. move($ftp_passwd_file . ".tmp", $ftp_passwd_file);
408. # перезагружаем фтп сервер
409. linux_service('proftpd', 'force-reload');
411. # все ОК
412. return {'status' => 0, 'message' => 'User deleted'}
413. }
415. # изменяет пароль пользователю
416. sub linux_ftp_passwd
417. {
418. my ($login, $passw) = @_;
419. my $ftp_passwd_file = Conf::get('Manager.ftp_passwd_file');
421. # проверяем длину
422. return {'status' => 1, 'message' => 'User login length must be grater 0'}
423. if (length ($login) == 0);
425. # проверяем длину
426. return {'status' => 2, 'message' => 'User password length must be grater 0'}
427. if (length ($passw) == 0);
429. # ищем пользователя
430. my @found_user = linux_ftp_get_user($login);
432. # удаляем пользователя и добавляем нового с новым паролем
433. if (@found_user) {
435. # удалим пользователя
436. my $r = linux_ftp_del_user($login);
437. return $r
438. if ($r->{'status'} != 0);
440. # добавим нового с новым паролем
441. $r = linux_ftp_add_user($login, $passw, $found_user[2], $found_user[5]);
442. return $r
443. if ($r->{'status'} != 0);
445. # перезагружаем фтп сервер
446. linux_service('proftpd', 'force-reload');
448. # все ок
449. return {'status' => 0, 'message' => 'Password updated!'};
450. } else {
452. # пользователь для изменения пароля не найден
453. return {'status' => 3, 'message' => 'User NOT exists'};
454. }
455. }
457. # изменяет домашнюю директорию
458. sub linux_ftp_homedir
459. {
460. my ($login, $homedir) = @_;
461. my $ftp_passwd_file = Conf::get('Manager.ftp_passwd_file');
463. # trim
464. $login =~ s/^\s+//;
465. $login =~ s/\s+$//;
466. $homedir =~ s/^\///;
468. # проверяем длину
469. return {'status' => 1, 'message' => 'User login length must be grater 0'}
470. if (length ($login) == 0);
473. # ищем пользователя
474. my @found_user = linux_ftp_get_user($login);
476. # удаляем пользователя и добавляем нового с новым паролем
477. if (@found_user)
478. {
480. # ищем владельца
481. my @owner_user = linux_get_user($found_user[2]);
483. if (@owner_user) {
484. # удаляем пользователя
485. my $r = linux_ftp_del_user($login);
487. return $r
488. if ($r->{'status'} != 0);
490. # trim
491. $owner_user[5] =~ s/\/$//;
493. # добавим нового с новым паролем
494. $r = linux_ftp_add_user($found_user[0], $found_user[1], $found_user[2], $homedir);
495. return $r
496. if ($r->{'status'} != 0);
498. # перезагружаем фтп сервер
499. linux_service('proftpd', 'force-reload');
501. # все ок
502. return {'status' => 0, 'message' => $owner_user[5] . '/' . $homedir};
503. } else {
504. # родительский пользователь не найден
505. return {'status' => 4, 'message' => 'Owner user NOT exists'};
506. }
507. } else {
508. # пользователь для изменения пароля не найден
509. return {'status' => 3, 'message' => 'User NOT exists'};
510. }
511. }
513. # получает фтп пользователя из файла users.txt по логину
514. sub linux_ftp_get_user
515. {
516. my $login = shift();
517. my $ftp_passwd_file = Conf::get('Manager.ftp_passwd_file');
518. open(my $fh, '<', $ftp_passwd_file)
519. or Logger::warn('Manager: could not read FTP passwd file');
520. my $user;
521. while (<$fh>) {
522. chomp;
523. if (m/$login:/) {
524. $user = $_;
525. last();
526. }
527. }
528. close($fh);
530. return split(/:/, $user);
531. }
536. ####################################
537. ### Функции для работы с apache2 ###
538. ####################################
540. # возвращает все виртуалхосты
541. sub apache2_vhost_get_all
542. {
543. my @sites_available = `ls /etc/apache2/sites-available/ 2>/dev/null`;
544. chomp @sites_available;
546. my %vhosts;
547. foreach (@sites_available) {
548. $vhosts{$_} = (-e '/etc/apache2/sites-available/' . $_) ? 1 : 0;
549. }
550. return %vhosts;
551. }
553. # возвращает все виртуалхосты для пользователя
554. sub apache2_vhost_get_all_for_user
555. {
556. my ($user_id) = @_;
558. my @sites_available = `ls /etc/apache2/sites-available/ 2>/dev/null | egrep -i "^_$user_id"`;
559. chomp @sites_available;
561. my %vhosts;
562. foreach (@sites_available) {
563. $vhosts{$_} = (-e '/etc/apache2/sites-available/' . $_) ? 1 : 0;
564. }
565. return %vhosts;
566. }
568. # получает параметры виртуалхоста
569. sub apache2_vhost_get
570. {
571. my ($vhost_filename) = @_;
572. return {} if (!apache2_vhost_exists($vhost_filename));
574. # вначале читаем vhost в массив
575. my @vhost_lines;
576. open my $fh, "<", "/etc/apache2/sites-available/" . $vhost_filename
577. or Logger::warn('Manager: could not read apache2 vhost file ' . "/etc/apache2/sites-available/" . $vhost_filename);
578. while (<$fh>) {
579. chomp;
580. push(@vhost_lines, $_);
581. }
582. close $fh;
584. # собираем все свойства
585. my $properties = {};
586. my @directives;
588. # парсим ServerName
589. @directives = grep(/ServerName/i, @vhost_lines);
590. if (defined($directives[0])) {
591. $directives[0] =~ m/ServerName[\s]+(\S+)/i;
592. $properties->{'ServerName'} = trim($1);
593. }
594. # парсим ServerAlias
595. @directives = grep(/ServerAlias/i, @vhost_lines);
596. if (defined($directives[0])) {
597. $directives[0] =~ m/ServerAlias[\s]+(.*?)(?:\s)?+$/i;
598. $properties->{'ServerAlias'} = trim($1);
599. }
600. # парсим ServerAdmin
601. @directives = grep(/ServerAdmin/i, @vhost_lines);
602. if (defined($directives[0])) {
603. $directives[0] =~ m/ServerAdmin[\s]+(.*?)(?:\s)?+$/i;
604. $properties->{'ServerAdmin'} = trim($1);
605. }
606. # парсим AssignUserID
607. @directives = grep(/AssignUserID/i, @vhost_lines);
608. if (defined($directives[0])) {
609. $directives[0] =~ m/AssignUserID[\s]+(.*?)(?:\s)?+$/i;
610. $properties->{'AssignUserID'} = trim($1);
611. }
612. # парсим DocumentRoot
613. @directives = grep(/DocumentRoot/i, @vhost_lines);
614. if (defined($directives[0])) {
615. $directives[0] =~ m/DocumentRoot[\s]+(.*?)(?:\s)?+$/i;
616. $properties->{'DocumentRoot'} = trim($1);
617. }
618. # парсим CustomLog
619. @directives = grep(/CustomLog/i, @vhost_lines);
620. if (defined($directives[0])) {
621. $directives[0] =~ m/CustomLog[\s]+(.*?)(?:\s)?+$/i;
622. $properties->{'CustomLog'} = trim($1);
623. }
624. # парсим ErrorLog
625. @directives = grep(/ErrorLog/i, @vhost_lines);
626. if (defined($directives[0])) {
627. $directives[0] =~ m/ErrorLog[\s]+(.*?)(?:\s)?+$/i;
628. $properties->{'ErrorLog'} = trim($1);
629. }
630. # парсим DirectoryIndex
631. @directives = grep(/DirectoryIndex/i, @vhost_lines);
632. if (defined($directives[0])) {
633. $directives[0] =~ m/DirectoryIndex[\s]+(.*?)(?:\s)?+$/i;
634. $properties->{'DirectoryIndex'} = trim($1);
635. }
636. #########################################
637. # парсим установки php
638. # парсим memory_limit
639. @directives = grep(/memory_limit/i, @vhost_lines);
640. if (defined($directives[0])) {
641. $directives[0] =~ m/(php_(?:admin_)?(?:value|flag))[\s]+memory_limit[\s]+(\S*)/i;
642. $properties->{'memory_limit'} = {
643. directive => $1,
644. value => trim($2)
645. };
646. }
647. # парсим max_execution_time
648. @directives = grep(/max_execution_time/i, @vhost_lines);
649. if (defined($directives[0])) {
650. $directives[0] =~ m/(php_(?:admin_)?(?:value|flag))[\s]+max_execution_time[\s]+(\S*)/i;
651. $properties->{'max_execution_time'} = {
652. directive => $1,
653. value => trim($2)
654. };
655. }
656. # парсим upload_max_filesize
657. @directives = grep(/upload_max_filesize/i, @vhost_lines);
658. if (defined($directives[0])) {
659. $directives[0] =~ m/(php_(?:admin_)?(?:value|flag))[\s]+upload_max_filesize[\s]+(\S*)/i;
660. $properties->{'upload_max_filesize'} = {
661. directive => $1,
662. value => trim($2)
663. };
664. }
665. # парсим post_max_size
666. @directives = grep(/post_max_size/i, @vhost_lines);
667. if (defined($directives[0])) {
668. $directives[0] =~ m/(php_(?:admin_)?(?:value|flag))[\s]+post_max_size[\s]+(\S*)/i;
669. $properties->{'post_max_size'} = {
670. directive => $1,
671. value => trim($2)
672. };
673. }
674. # парсим error_log
675. @directives = grep(/php_.*error_log/i, @vhost_lines);
676. if (defined($directives[0])) {
677. $directives[0] =~ m/(php_(?:admin_)?(?:value|flag))[\s]+error_log[\s]+(\S*)/i;
678. $properties->{'error_log'} = {
679. directive => $1,
680. value => trim($2)
681. };
682. }
683. # парсим error_reporting
684. @directives = grep(/error_reporting/i, @vhost_lines);
685. if (defined($directives[0])) {
686. $directives[0] =~ m/(php_(?:admin_)?(?:value|flag))[\s]+error_reporting[\s]+(\S*)/i;
687. $properties->{'error_reporting'} = {
688. directive => $1,
689. value => trim($2)
690. };
691. }
692. # парсим display_errors
693. @directives = grep(/display_errors/i, @vhost_lines);
694. if (defined($directives[0])) {
695. $directives[0] =~ m/(php_(?:admin_)?(?:value|flag))[\s]+display_errors[\s]+(\S*)/i;
696. $properties->{'display_errors'} = {
697. directive => $1,
698. value => trim($2)
699. };
700. }
701. # парсим log_errors
702. @directives = grep(/log_errors/i, @vhost_lines);
703. if (defined($directives[0])) {
704. $directives[0] =~ m/(php_(?:admin_)?(?:value|flag))[\s]+log_errors[\s]+(\S*)/i;
705. $properties->{'log_errors'} = {
706. directive => $1,
707. value => trim($2)
708. };
709. }
711. return $properties;
712. }
714. # проверяет существует ли файл виртуалхоста в /etc/apache2/sites-available/
715. sub apache2_vhost_exists {
716. my ($file_name) = @_;
717. return (-e '/etc/apache2/sites-available/' . $file_name) ? 1 : 0;
718. }
720. # возвращает количество виртуалхостов апача
721. sub apache2_vhosts_count
722. {
723. my @enabled = `/bin/ls -l /etc/apache2/sites-enabled 2>/dev/null | tail -n +2`;
724. my @available = `/bin/ls -l /etc/apache2/sites-available 2>/dev/null | tail -n +2`;
725. return @enabled . '/' . @available;
726. }
728. # проверяет конфиг апача
729. sub apache2_configtest
730. {
731. my $tmp = `/usr/sbin/apache2ctl -t 2>&1`;
732. #возвращаем результат
733. return {'status' => $?,
734. 'message' => $tmp};
735. }
737. # возвращает текстовую строку статуса апача
738. sub apache2_status
739. {
740. my $result = linux_service('apache2', 'status');
741. #возвращаем результат
742. chomp $result->{'message'};
743. return $result->{'message'};
744. }
746. # Добавляет vhost для апача. принимает:
747. # строка $vhostsroot - корневая директория (/var/www)
748. # строка $username - логин владельца vhost'а (домашняя директория пользователя, $vhostsroot . '/' . $username)
749. # строка $servername - имя сервера (hostname)
750. # строка|реф массив строк $alias - строка|строки алиасов домена
751. # строка $adminemail - e-mail администатора домена
752. sub apache2_add_vhost
753. {
754. my ($vhostsroot, $username, $servername, $alias, $adminemail) = @_;
755. $vhostsroot =~ s/\/*$//;
757. if (ref $alias eq 'ARRAY') {
758. $alias = sprintf "@{$alias}";
759. }
761. my $vhost_config = '
762. <VirtualHost *:8080>
763. ServerName ' . $servername . '
764. ServerAlias ' . $alias . '
765. ServerAdmin ' . $adminemail . '
766. AssignUserID ' . $username . ' ' . $username . '
767. DocumentRoot ' . $vhostsroot . '/' . $username . '/data/www/' . $servername . '
768. CustomLog ' . $vhostsroot . '/' . $username . '/data/logs/' . $servername . '.access.log combined
769. ErrorLog ' . $vhostsroot . '/' . $username . '/data/logs/' . $servername . '.error.log
770. DirectoryIndex index.php index.html index.htm
772. AddType application/x-httpd-php .php .php3 .php4 .php5 .phtml
773. AddType application/x-httpd-php-source .phps
775. php_admin_value open_basedir "' . $vhostsroot . '/' . $username . '/data:."
776. php_admin_value upload_tmp_dir "' . $vhostsroot . '/' . $username . '/data/tmp"
777. php_admin_value session.save_path "' . $vhostsroot . '/' . $username . '/data/tmp"
779. # runtime configuration
780. php_value memory_limit "64M"
781. php_value max_execution_time "300"
783. # uploading configuration (memory_limit > post_max_size > upload_max_filesize)
784. php_value upload_max_filesize "10M"
785. php_value post_max_size "12M"
787. # error handling
788. php_value error_log "' . $vhostsroot . '/' . $username . '/data/logs/' . $servername . '.error.log"
789. php_value error_reporting "7"
790. php_flag display_errors "Off"
791. php_flag log_errors "On"
793. # directories configuration
794. <Directory "' . $vhostsroot . '/' . $username . '/data/www/' . $servername . '/">
795. AllowOverride All
796. Options -Indexes
797. </Directory>
798. </VirtualHost>
799. ';
801. my $confname = '/etc/apache2/sites-available/' . $servername . '.conf';
802. my $enabledname = '/etc/apache2/sites-enabled/' . $servername . '.conf';
804. # создаем конфиг виртуалхоста
805. open(my $fh, '>', $confname)
806. or Logger::warn('Manager: could not open ' . $confname . ' for write!');
807. print($fh $vhost_config);
808. close($fh);
810. # создаем симлинк на файл виртуалхоста
811. symlink($confname, $enabledname);
812. }
814. # проверяет включен ли виртуалхост
815. sub apache2_vhost_enabled
816. {
817. my ($vhost_filename) = @_;
818. if (!-e '/etc/apache2/sites-available/' . $vhost_filename) {
819. return 0;
820. }
821. if (!-e '/etc/apache2/sites-enabled/' . $vhost_filename) {
822. return 0;
823. }
824. return 1;
825. }
827. # удаляет виртуалхост апача
828. sub apache2_vhost_delete
829. {
830. my ($vhost_filename) = @_;
831. if (-e '/etc/apache2/sites-enabled/' . $vhost_filename) {
832. unlink('/etc/apache2/sites-enabled/' . $vhost_filename)
833. or Logger::warn('Manager: could not unlink file ' . '/etc/apache2/sites-enabled/' . $vhost_filename);
834. }
835. if (-e '/etc/apache2/sites-available/' . $vhost_filename) {
836. unlink('/etc/apache2/sites-available/' . $vhost_filename)
837. or Logger::warn('Manager: could not unlink file ' . '/etc/apache2/sites-available/' . $vhost_filename);
838. }
839. return 1;
840. }
842. # получает текст виртуалхоста
843. sub apache2_vhost_get_text
844. {
845. my ($vhost_filename) = @_;
846. return read_file('/etc/apache2/sites-available/' . $vhost_filename)
847. or Logger::warn('Manager: could not read file ' . '/etc/apache2/sites-available/' . $vhost_filename);
848. }
850. # устанавливает текст виртуалхоста
851. sub apache2_vhost_set_text
852. {
853. my ($vhost_filename, $vhost_text) = @_;
854. # обновляем конфиг виртуалхоста
855. open(my $fh, '>', '/etc/apache2/sites-available/' . $vhost_filename)
856. or Logger::warn('Manager: could not open ' . '/etc/apache2/sites-available/' . $vhost_filename . ' for write!');
857. print($fh $vhost_text);
858. close($fh);
859. }
862. ##################################
863. ### Функции для работы с nginx ###
864. ##################################
865. sub nginx_vhost_count
866. {
867. my @enabled = `/bin/ls -l /etc/nginx/sites-enabled 2>/dev/null| tail -n +2`;
868. my @available = `/bin/ls -l /etc/nginx/sites-available 2>/dev/null| tail -n +2`;
869. return @enabled . '/' . @available;
870. }
872. sub nginx_configtest
873. {
874. my $tmp = `/usr/sbin/nginx -t 2>&1`;
875. #возвращаем результат
876. return {'status' => $?,
877. 'message' => $tmp};
878. }
880. sub nginx_status
881. {
882. my $result = linux_service('nginx', 'status');
883. #возвращаем результат
884. chomp $result->{'message'};
885. return $result->{'message'};
886. }
888. # проверяет существует ли файл виртуалхоста в /etc/nginx/sites-available/
889. sub nginx_vhost_exists {
890. my ($file_name) = @_;
891. return (-e '/etc/nginx/sites-available/' . $file_name) ? 1 : 0;
892. }
894. # Добавляет vhost для nginx. принимает:
895. # строка $vhostsroot - корневая директория (/var/www)
896. # строка $username - логин владельца vhost'а (домашняя директория пользователя, $vhostsroot . '/' . $username)
897. # строка $servername - имя сервера (hostname)
898. # строка|реф массив строк $alias - строка|строки алиасов домена
899. sub nginx_add_vhost {
900. my ($vhostsroot, $username, $servername, $alias) = @_;
901. $vhostsroot =~ s/\/*$//;
903. if (ref $alias eq 'ARRAY') {
904. $alias = sprintf "@{$alias}";
905. }
907. my $vhost_config = '
908. server {
909. listen 80;
910. server_name ' . $servername . ' ' . $alias . ';
911. root ' . $vhostsroot . '/' . $username . '/data/www/' . $servername . ';
912. access_log ' . $vhostsroot . '/' . $username . '/data/logs/' . $servername . '.access.log;
913. error_log ' . $vhostsroot . '/' . $username . '/data/logs/' . $servername . '.error.log;
914. index index.php index.html index.htm;
915. error_page 500 502 503 504 /50x.html;
916. server_name_in_redirect off;
917. client_max_body_size 12M;
919. location = /50x.html
920. {
921. root /var/www/nginx-default;
922. }
924. location /
925. {
926. proxy_set_header X-Real-IP $remote_addr;
927. proxy_set_header Host $host;
928. proxy_set_header X-Forwarded-For $proxy_add_x_forwarded_for;
929. proxy_pass http://127.0.0.1:8080;
930. #proxy_redirect http://' . $servername . ':8080/ /;
931. }
933. location ~* ^.+\.(jpg|jpeg|gif|png|rar|txt|tar|wav|bz2|exe|pdf|doc|xls|ppt|bmp|rtf|js|ico|css|zip|tgz|gz)$
934. {
935. root ' . $vhostsroot . '/' . $username . '/data/www/' . $servername . ';
936. expires 30d;
937. access_log off;
938. }
940. location ~ /\.ht
941. {
942. deny all;
943. }
944. }
945. ';
947. my $confname = '/etc/nginx/sites-available/' . $servername . '.conf';
948. my $enabledname = '/etc/nginx/sites-enabled/' . $servername . '.conf';
950. # создаем конфиг виртуалхоста
951. open(my $fh, '>', $confname)
952. or Logger::warn('Manager: could not open ' . $confname . ' for write!');
953. print($fh $vhost_config);
954. close($fh);
956. # создаем симлинк на файл виртуалхоста
957. symlink($confname, $enabledname);
958. }
960. # получает параметры виртуалхоста
961. sub nginx_vhost_get
962. {
963. my ($vhost_filename) = @_;
964. return {}
965. if (!nginx_vhost_exists($vhost_filename));
967. # вначале читаем vhost в массив
968. my @vhost_lines;
969. open my $fh, "<", "/etc/nginx/sites-available/" . $vhost_filename
970. or Logger::warn('Manager: could not read file' . "/etc/nginx/sites-available/" . $vhost_filename);
971. while (<$fh>) {
972. chomp;
973. push(@vhost_lines, $_);
974. }
975. close $fh;
977. # собираем все свойства
978. my $properties = {};
979. my @directives;
981. # парсим server_name
982. @directives = grep(/server_name/i, @vhost_lines);
983. if (defined($directives[0])) {
984. $directives[0] =~ m/server_name[\s]+(.*);/i;
985. $properties->{'server_name'} = trim($1);
986. }
987. # парсим root
988. @directives = grep(/root/i, @vhost_lines);
989. if (defined($directives[0])) {
990. $directives[0] =~ m/root[\s]+(.*);/i;
991. $properties->{'root'} = trim($1);
992. }
993. # парсим access_log
994. @directives = grep(/access_log/i, @vhost_lines);
995. if (defined($directives[0])) {
996. $directives[0] =~ m/access_log[\s]+(.*);/i;
997. $properties->{'access_log'} = trim($1);
998. }
999. # парсим error_log
1000. @directives = grep(/error_log/i, @vhost_lines);
1001. if (defined($directives[0])) {
1002. $directives[0] =~ m/error_log[\s]+(.*);/i;
1003. $properties->{'error_log'} = trim($1);
1004. }
1005. # парсим index
1006. @directives = grep(/index/i, @vhost_lines);
1007. if (defined($directives[0])) {
1008. $directives[0] =~ m/index[\s]+(.*);/i;
1009. $properties->{'index'} = trim($1);
1010. }
1011. # парсим client_max_body_size
1012. @directives = grep(/client_max_body_size/i, @vhost_lines);
1013. if (defined($directives[0])) {
1014. $directives[0] =~ m/client_max_body_size[\s]+(.*);/i;
1015. $properties->{'client_max_body_size'} = trim($1);
1016. }
1018. return $properties;
1019. }
1021. # проверяет включен ли виртуалхост
1022. sub nginx_vhost_enabled
1023. {
1024. my ($vhost_filename) = @_;
1025. if (!-e '/etc/nginx/sites-available/' . $vhost_filename) {
1026. return 0;
1027. }
1028. if (!-e '/etc/nginx/sites-enabled/' . $vhost_filename) {
1029. return 0;
1030. }
1031. return 1;
1032. }
1034. # удаляет виртуалхост nginx
1035. sub nginx_vhost_delete
1036. {
1037. my ($vhost_filename) = @_;
1038. if (-e '/etc/nginx/sites-enabled/' . $vhost_filename) {
1039. unlink('/etc/nginx/sites-enabled/' . $vhost_filename)
1040. or Logger::warn('Manager: could not unlink file ' . '/etc/nginx/sites-enabled/' . $vhost_filename . '');
1041. }
1042. if (-e '/etc/nginx/sites-available/' . $vhost_filename) {
1043. unlink('/etc/nginx/sites-available/' . $vhost_filename)
1044. or Logger::warn('Manager: could not unlink file ' . '/etc/nginx/sites-available/' . $vhost_filename . '');
1045. }
1046. return 1;
1047. }
1049. # получает текст виртуалхоста
1050. sub nginx_vhost_get_text
1051. {
1052. my ($vhost_filename) = @_;
1053. return read_file('/etc/nginx/sites-available/' . $vhost_filename)
1054. or Logger::warn('Manager: could not read file ' . '/etc/nginx/sites-available/' . $vhost_filename);
1055. }
1057. # устанавливает текст виртуалхоста
1058. sub nginx_vhost_set_text
1059. {
1060. my ($vhost_filename, $vhost_text) = @_;
1061. # обновляем конфиг виртуалхоста
1062. open(my $fh, '>', '/etc/nginx/sites-available/' . $vhost_filename)
1063. or Logger::warn('Manager: could not open ' . $vhost_filename . ' for write!');
1064. print($fh $vhost_text);
1065. close($fh);
1066. }
1071. ##################################
1072. ### Функции для работы с MySQL ###
1073. ##################################
1074. sub mysql5_get_space
1075. {
1076. my @tmp = split /\s+/, `/usr/bin/du /var/lib/mysql -h --max-depth 0 2>/dev/null`;
1077. return $tmp[0];
1078. }
1080. sub mysql5_status
1081. {
1082. my $result = linux_service2('mysql', 'status');
1083. #возвращаем результат
1084. chomp $result->{'message'};
1085. return $result->{'message'}
1086. }
1088. # возвращает mysql пользователей
1089. sub mysql5_get_users
1090. {
1091. my $mysql_user = Conf::get('Manager.mysql_user');
1092. my $mysql_pass = Conf::get('Manager.mysql_pass');
1093. my $dbh = DBI->connect('DBI:mysql:mysql;host=localhost', $mysql_user, $mysql_pass, { RaiseError => 1 });
1094. my $results = $dbh->selectall_hashref('SELECT * FROM `user` u WHERE u.User != "root" AND u.User != "debian-sys-maint" GROUP BY `User`', 'User');
1095. $dbh->disconnect();
1096. return $results;
1097. }
1099. # проверяет свободность логина
1100. sub mysql5_login_free {
1101. my ($login, $hostname) = @_;
1103. # проверяем на заполненность
1104. if (!length ($login) || !length ($hostname)) {
1105. return 0;
1106. }
1108. my $mysql_user = Conf::get('Manager.mysql_user');
1109. my $mysql_pass = Conf::get('Manager.mysql_pass');
1110. my $dbh = DBI->connect('DBI:mysql:mysql;host=localhost', $mysql_user, $mysql_pass, { RaiseError => 1 });
1111. my @results = $dbh->selectrow_array('SELECT count(*) as `count` FROM `user` u WHERE `u`.`User`=\'' . $login . '\' AND `u`.`Host`=\'' . $hostname . '\' LIMIT 1');
1112. $dbh->disconnect();
1113. return ($results[0] > 0) ? 0 : 1;
1114. }
1117. # удаляет mysql пользователя без баз
1118. sub mysql5_del_user {
1119. my $login = shift();
1120. my $mysql_user = Conf::get('Manager.mysql_user');
1121. my $mysql_pass = Conf::get('Manager.mysql_pass');
1122. my $dbh = DBI->connect('DBI:mysql:mysql;host=localhost', $mysql_user, $mysql_pass, { RaiseError => 1 });
1123. $dbh->do('DROP USER ' . $login);
1124. $dbh->disconnect();
1125. }
1127. # добавляет mysql пользователя
1128. sub mysql5_add_user {
1129. my ($login, $passw, $properties) = @_;
1131. if (!length ($login)) {
1132. return {'status' => 1,
1133. 'message' => 'user login not specified'};
1134. }
1136. if (!length ($passw)) {
1137. return {'status' => 1,
1138. 'message' => 'user passw not specified'};
1139. }
1141. my $mxucs = '0';
1142. my $mxuph = '0';
1143. my $mxqph = '0';
1144. my $mxcph = '0';
1146. # менять ли max updates per hour
1147. if (defined($properties->{'mxuph'}) && length($properties->{'mxuph'})) {
1148. $mxuph = $properties->{'mxuph'};
1149. }
1150. # менять ли max queries per hour
1151. if (defined($properties->{'mxqph'}) && length($properties->{'mxqph'})) {
1152. $mxqph = $properties->{'mxqph'};
1153. }
1154. # менять ли max connections per hour
1155. if (defined($properties->{'mxcph'}) && length($properties->{'mxcph'})) {
1156. $mxcph = $properties->{'mxcph'};
1157. }
1158. # менять ли max user connections
1159. if (defined($properties->{'mxucs'}) && length($properties->{'mxucs'})) {
1160. $mxucs = $properties->{'mxucs'};
1161. }
1163. my $mysql_user = Conf::get('Manager.mysql_user');
1164. my $mysql_pass = Conf::get('Manager.mysql_pass');
1165. my $dbh = DBI->connect('DBI:mysql:mysql;host=localhost', $mysql_user, $mysql_pass, { RaiseError => 1 });
1166. $dbh->do('CREATE USER ' . $login . ' IDENTIFIED BY \'' . $passw . '\'');
1167. $dbh->do('GRANT USAGE ON *.* TO ' . $login . ' IDENTIFIED BY \'' . $passw . '\' WITH MAX_QUERIES_PER_HOUR ' . $mxqph . ' MAX_CONNECTIONS_PER_HOUR ' . $mxcph . ' MAX_UPDATES_PER_HOUR ' . $mxuph . ' MAX_USER_CONNECTIONS ' . $mxucs);
1168. $dbh->do('FLUSH PRIVILEGES');
1169. $dbh->disconnect();
1170. }
1172. #изменяет mysql пользователя
1173. sub mysql5_update_user {
1174. my ($login, $properties) = @_;
1176. if (!length ($login)) {
1177. return {'status' => 1,
1178. 'message' => 'user login not specified'};
1179. }
1181. my $passw = '';
1182. my $mxucs = '';
1183. my $mxuph = '';
1184. my $mxqph = '';
1185. my $mxcph = '';
1187. # менять ли пароль
1188. if (defined($properties->{'passw'}) && length($properties->{'passw'})) {
1189. $passw = $properties->{'passw'};
1190. }
1191. # менять ли max updates per hour
1192. if (defined($properties->{'mxuph'}) && length($properties->{'mxuph'})) {
1193. $mxuph = $properties->{'mxuph'};
1194. }
1195. # менять ли max queries per hour
1196. if (defined($properties->{'mxqph'}) && length($properties->{'mxqph'})) {
1197. $mxqph = $properties->{'mxqph'};
1198. }
1199. # менять ли max connections per hour
1200. if (defined($properties->{'mxcph'}) && length($properties->{'mxcph'})) {
1201. $mxcph = $properties->{'mxcph'};
1202. }
1203. # менять ли max user connections
1204. if (defined($properties->{'mxucs'}) && length($properties->{'mxucs'})) {
1205. $mxucs = $properties->{'mxucs'};
1206. }
1208. # выполняем действия
1209. my $mysql_user = Conf::get('Manager.mysql_user');
1210. my $mysql_pass = Conf::get('Manager.mysql_pass');
1211. my $dbh = DBI->connect('DBI:mysql:mysql;host=localhost', $mysql_user, $mysql_pass, { RaiseError => 1 });
1212. my $updated = 0;
1213. if (length($passw)) {
1214. $dbh->do('SET PASSWORD FOR ' . $login . ' = PASSWORD(\'' . $passw . '\')');
1215. $updated = 1;
1216. }
1217. if (length($mxucs) && ($mxucs =~ m/^[\d]+$/)) {
1218. $dbh->do('GRANT USAGE ON *.* TO ' . $login . ' WITH MAX_USER_CONNECTIONS ' . $mxucs);
1219. $updated = 1;
1220. }
1221. if (length($mxcph) && ($mxcph =~ m/^[\d]+$/)) {
1222. $dbh->do('GRANT USAGE ON *.* TO ' . $login . ' WITH MAX_CONNECTIONS_PER_HOUR ' . $mxcph);
1223. $updated = 1;
1224. }
1225. if (length($mxqph) && ($mxqph =~ m/^[\d]+$/)) {
1226. $dbh->do('GRANT USAGE ON *.* TO ' . $login . ' WITH MAX_QUERIES_PER_HOUR ' . $mxqph);
1227. $updated = 1;
1228. }
1229. if (length($mxuph) && ($mxuph =~ m/^[\d]+$/)) {
1230. $dbh->do('GRANT USAGE ON *.* TO ' . $login . ' WITH MAX_UPDATES_PER_HOUR ' . $mxuph);
1231. $updated = 1;
1232. }
1233. if ($updated) {
1234. $dbh->do('FLUSH PRIVILEGES');
1235. }
1236. $dbh->disconnect();
1237. }
1242. #################################
1243. ### Функции для работы с php5 ###
1244. #################################
1245. sub php_get_version
1246. {
1247. my $version = `/usr/bin/php -r 'echo phpversion();' 2>/dev/null`;
1248. chomp $version;
1249. return $version;
1250. }
1254. # вспомогательная функция тримящая пробелы и кавычки
1255. sub trim
1256. {
1257. my($string) = @_;
1258. if (!defined($string)) {
1259. $string = '';
1260. }
1261. for ($string) {
1262. s/^[\s'"]+//;
1263. s/[\s'"]+$//;
1264. }
1265. return $string;
1266. }
1268. return 1;