#!/usr/bin/perl

# GOFF 1.0
# By Alfonso E.M. alfonso@el-magnifico.org
# Dialogo para apagar la mquina (tonto, pero prctico)

use UI::Dialog;

$dialog = new UI::Dialog (order => ['zenity','xdialog']);

if ($dialog->yesno( 
	title => 'Apagar el ordenador',
	backtitle => 'Apagar el ordenador',
	beepbefore => 1,
	oklabel => 'Apagar',
	height => 100, width=>120,
	
	text => "\n Desea apagar el ordenador ?\n\n") ) { 
		if ($< != 0) {
			system("gksu -m 'Para apagar el ordenador necesita la clave de supervisor (root)' '/sbin/poweroff'  ");		
		} else {
			system("/sbin/halt");	
		}
	}

