Simple Hash gui (useful!)

[Luca Benini]

Using dialog(1) this snippet allow users to use a GUI to configure options.

#!/usr/bin/perl
use IPC::Open3;
use File::Temp qw/ :mktemp /;
my $options={
    'height'=>30,
    'menuheight'=>20,
    'width'=>50,
    'title'=>"My dialog",
};
my $val={
    'Options1'=>30,
    'String_Options'=>30,
    'Another_Options'=>30,
    'Another_again'=>"My dialog",
};
perlog_run($options,$val);

sub create_cmd_line()
{
    my ($hropt,$hrentry)=@_;
    my $cmdline="dialog --nocancel --inputmenu \"$hropt->{'title'}\" $
+hropt->{'height'} $hropt->{'width'} $hropt->{'menuheight'}";
    foreach(sort keys %$hrentry)
    {
        $cmdline .= " \"$_\" \"$hrentry->{$_}\"";
    }    
    return $cmdline;
}                
sub perlog_run()
{
    my ($hropt,$hrentry)=@_;
    my $d;
    for(;;)
    {
        open OLDERR,     ">&", \*STDERR;
        close(STDERR);
        (*STDERR,$filename)=mkstemp("perllogXXXXXX");        
        my $c=&create_cmd_line($hropt,$hrentry);
        system("$c");
        close (STDERR);
        open STDERR,     ">&", \*OLDERR;
        close (OLDERR);    
        open IN,"<$filename";
        $_=<IN>;
        close(IN);        
        unlink $filename;    
        (/[^\s]+\s([^\s]+)\s(.+)$/)?$hrentry->{$1}=$2:last;
    }
}

New version (FULL ini format supported!)

use Getopt::Long;

my $val={'height'=>30,'menuheight'=>20,'width'=>50,'title'=>"My dialog
+",};
my $path="config/ini/";
my $file,$help;
my %iniopts=('case'=>'sensitive');

GetOptions ("conf=s"=> \$file,
            "path=s"=> \$path);
if($file eq "")
{
        print RESET "**************"; print GREEN "PER";
        print RESET "[L][DIA]";
        print GREEN "LOG by Luca Benini - 2004 - GPL";
        print RESET "**************\nUsage:\n\t";
        print BLUE  "$0 [--path=/path/to/ini/file] [--conf=inifile]\n"
+;
        print RESET "Default path:\n\t";
        print BLUE "$path";
        print RESET "\n";
        exit(0);
}

$val->{'title'}="$file | Luca Benini Configure";
my $Config = ReadINI("$path$file",%iniopts) or die "[READ] Unable to o
+pen $path$
file: $!";

foreach(keys %$Config)
{
        my $t=$Config->{$_};
        foreach(keys %$t)
        {
                delete $t->{$_} if (/#/);
        }
}
my $i=perlog_config($val,$Config);
WriteINI("$path$file",$Config) or die "[WRITE] Unable to open $path$fi
+le: $!";


sub perlog_config()
{
        my ($hropt,$hrentry)=@_;
        while(1)
        {
                my $i=perlog_run_select($hropt,$hrentry);
                return if ($i eq "");
                perlog_run_rename($hropt,$hrentry->{$i});
        }
}
sub create_cmd_line_menu()
{
        my ($hropt,$hrentry)=@_;
        my $cmdline="dialog --nocancel --menu \"$hropt->{'title'}\" $h
+ropt->{'he
ight'} $hropt->{'width'} $hropt->{'menuheight'}";
        foreach(sort keys %$hrentry)
        {
                $cmdline .= " \"$_\" \"$_\"";
        }
        return $cmdline;



}
sub create_cmd_line_imenu()
{
        my ($hropt,$hrentry)=@_;
        my $cmdline="dialog --nocancel --inputmenu \"$hropt->{'title'}
+\" $hropt-
>{'height'} $hropt->{'width'} $hropt->{'menuheight'}";
        foreach(sort keys %$hrentry)
        {
                $cmdline .= " \"$_\" \"$hrentry->{$_}\"";
        }
        return $cmdline;
}
sub perlog_run_select()
{
        my ($hropt,$hrentry)=@_;
        my $d;
        open OLDERR,     ">&", \*STDERR;
        close(STDERR);
        (*STDERR,$filename)=mkstemp("perllogXXXXXX");
        my $c=&create_cmd_line_menu($hropt,$hrentry);
        system("$c");
        close (STDERR);
        open STDERR,     ">&", \*OLDERR;
        close (OLDERR);
        open IN,"<$filename";
        $_=<IN>;
        close(IN);
        unlink $filename or die ;
        return $_;
}
sub perlog_run_rename()
{
        my ($hropt,$hrentry)=@_;
        my $d;
        for(;;)
        {
                open OLDERR,     ">&", \*STDERR;
                close(STDERR);
                (*STDERR,$filename)=mkstemp("perllogXXXXXX");
                my $c=&create_cmd_line_imenu($hropt,$hrentry);
                system("$c");
                close (STDERR);
                open STDERR,     ">&", \*OLDERR;
                close (OLDERR);
                open IN,"<$filename";
                $_=<IN>;
                close(IN);
                unlink $filename or die ;
                (/[^\s]+\s(.+)\s([^\s]+)$/)?$hrentry->{$1}=$2:last;
        }
}