#!/usr/bin/perl
use warnings;
use strict;
use Net::DBus;

my $bus = Net::DBus->session;
my $kwin = $bus->get_service('org.kde.KWin');
my $dev_man = $kwin->get_object('/org/kde/KWin/InputDevice', 'org.kde.KWin.InputDeviceManager');

for my $ev (@{$dev_man->devicesSysNames}) {
	my $dev = $kwin->get_object("/org/kde/KWin/InputDevice/$ev", 'org.kde.KWin.InputDevice');
	next unless $dev->touchpad;
	print "$ev: ", ($dev->enabled ? "dis" : "en"), "abling\n";
	$dev->enabled(!$dev->enabled);
}

1;
