#! /usr/bin/perl # # Surprise pour les inattentifs ... # # # (c) 1998 Emmanuel PIERRE # epierre@e-nef.com # http://www.e-nef.com/users/Emmanuel.PIERRE # $dpy=$ENV{'DISPLAY'}; chomp($dpy); #print "-$dpy-\n"; for ($i=1;$i<=40;$i++) { push(@tab,"m$i:0.0"); } for ($i=1;$i<=40;$i++) { push(@tab,"n$i:0.0"); } exit unless ($dpy ne ":0.0"); exit unless !(/nef/); foreach $disp (@tab) { #print "Scanning $disp\t"; open(XW,"xwininfo -display $disp -root -all 2>&1 |"); while () { if ((/refused by server/)||(/unable to open display/)) { #print "Bye Bye ...\n"; next; } ($id,$nom)=($_ =~ /0x(\S+)\s"(\w+).*/); if ($nom ne "") { print "$disp\n"; #print "0x$id $nom\n"; #`/usr/X11/bin/xkill -id 0x$id -display $disp:0.0`; #print "/usr/X11/bin/xkill -id 0x$id -display $disp\n"; } } } close(XW);