dcOnDualLogin / что хочу, то и творю

[4epT]

Receive.pm:

Код: Выделить всё

sub errors {
	my ($self, $args) = @_;
...
	} elsif ($args->{type} == 2) {
+	if ($config{'dcOnDualLogin'} ne '') {
+		error T("Critical Error: Dual login prohibited - Someone trying to login!\n"), "connection";
+		Commands::run($config{'dcOnDualLogin'})
+	}
-		if ($config{'dcOnDualLogin'} == 1) {
-			$interface->errorDialog(TF("Critical Error: Dual login prohibited - Someone trying to login!\n\n" .
-				"%s will now immediately 	disconnect.", $Settings::NAME));
-			$quit = 1;
-		} elsif ($config{'dcOnDualLogin'} >= 2) {
-			error T("Critical Error: Dual login prohibited - Someone trying to login!\n"), "connection";
-			message TF("Disconnect for %s seconds...\n", $config{'dcOnDualLogin'}), "connection";
-			$timeout_ex{'master'}{'timeout'} = $config{'dcOnDualLogin'};
-		} else {
-			error T("Critical Error: Dual login prohibited - Someone trying to login!\n"), "connection";
-		}
	} elsif ($args->{type} == 3) {
...
}

теперь в конфиге рисуем:

dcOnDualLogin relog 300

или

dcOnDualLogin quit

потестил - вродь работает

[piroJOKE]

хм... но выглядит слегка коряво, ибо "dc......." (дисконнект по....) тут уже как-то и не причем.

[4epT]

pJ, ну название-то можно легко поменять.. это я к тому что ты тут как-то писал, что мол это быол бы более функционально..

[MyJIbTu*nyJIbTu]

Вопрос:
Что даёт этот конфиг?

[Click]

4epT
ты можешь придумать какие нить команды при дуал логине кроме релог и куит? я чёта нет. поэтому надо сделать по другому.

добавить новый параметр в конфиг, типа relogOnDualLogin 300, а в кде проверку на dcOnDualLogin 1, если её нет то выполняем релог.

[Click]

ха, впринципе оно там и так есть, типа если dcOnDualLogin больше 1, например 30 то мы на 30 сек дисконектимся)