#!/usr/bin/perl

# Переключатель мониторов. При подключении или отключении внешнего монитора нужно вызвать этот скрипт (например, повесить его на
# горячую клавишу или на событие в системе, если такое найдётся) и он переключит изображение либо на внешний монитор, если тот
# подключен, либо на дефолтный, если внешний не подключен.

use strict;
use warnings;

my $defaultMonitorOutput = 'LVDS1';	# Здесь указываем название выхода, к которому подключён дефолтный монитор.
my $externalMonitorOutput = 'VGA1';	# А здесь тот внешний выход, к котором подключаем второй монитор.
					# Имена выходов можно посмотреть в выводе команды "xrandr".

my $xrandr = `xrandr`;	# Вызываем xrandr, дабы узнать, какие мониторы подключены, и какие из них заюзаны

my %connected;		# Те, что подключены, отмечаются xrandr'ом словом "connected"
$connected{$1} = 1 while $xrandr =~ m/^(<^ >+) connected/ogm;

my %used;		# А те, что заюзаны, имеют какое-то разрешение экрана - циферку после "connected"
$used{$1} = 1 while $xrandr =~ m/^(<^ >+) connected \d/ogm;

print "\tПодключённые мониторы:\t".join(', ', keys %connected).".\n\tЗаюзанные мониторы:\t".join(', ', keys %used).".\n";

# Если на внешнем выходе что-то подключили, а заюзан всё ещё тот, что на дефолтном выходе, переключим их.
if($connected{$externalMonitorOutput} and $used{$defaultMonitorOutput})
{
	print "\Заюзаем подключённый $externalMonitorOutput и убираем $defaultMonitorOutput.\n";
	`xrandr --output $externalMonitorOutput --auto`;	# Включаем монитор на внешнем выходе с оптимальный разрешением
	`xrandr --output $defaultMonitorOutput --off`;		# Выключаем монитор на дефолтном выходе
}
# А если на внешнем выходе уже ничего не подключено, а тот, что на дефолтном выходе, ещё не заюзан, переключим обратно.
elsif(!$connected{$externalMonitorOutput} and !$used{$defaultMonitorOutput})
{
	print "\tУбираем отключённый $externalMonitorOutput и заюзаем $defaultMonitorOutput.\n";
	`xrandr --output $defaultMonitorOutput --auto`;		# Включаем монитор на дефолтном выходе с оптимальным разрешением
	`xrandr --output $externalMonitorOutput --off`;		# Выключаем монитор на внешнем выходе
} else {
	print "\tВсё уже ОК, действия не нужны.\n";
}