view release on metacpan or  search on metacpan

scripts/ubiq  view on Meta::CPAN

    system("perldoc $0");
    exit 0;
}

my @C =
  (config=>[
	    setting=>[
		      name => 'output_format',
		      default => 'xml',
		      allowed => 'xml',
		      allowed => 'sxpr',
		      allowed => 'itext',
		     ],
	   ]);


my $config =
  Data::Stag->unflatten(@C);

my %confset =
  map {
      $_->get_name => $_->get_default
  } $config->get_setting;

my $sdbh = 
  DBIx::DBStag->new;
my $dbh;
my $resources = $sdbh->resources_list;
my $resources_hash = $sdbh->resources_hash;
my @dbresl = grep {$_->{type} eq 'rdb'} @$resources;
my @dbnames = (map {$_->{name}} @dbresl);
my $templates = [];
my $template;

if (1) {

    my $cui = Curses::UI->new;

    my $schema = '';
    my $loc = '';
    my $screen = 'select_db';
    my %w = ();
    my $varnames = [];
    my %exec_argh = ();
    my $qr_obj;

    my $file_menu = [
                     { -label => 'Quit program',       -value => sub {exit(0)}        },
                    ];
    my $select_menu = 
      [
       { -label => 'Choose Database',  -value => sub{select_screen('select_db')}},
       { -label => 'Choose Template',  -value => sub{select_screen('select_template')}},
       { -label => 'Query',  -value => sub{select_screen('query')}},
      ];
    my $menu = [
                { -label => 'File',               -submenu => $file_menu         },
                { -label => 'Select',        -submenu => $select_menu         },
               ];

    $cui->add('menu', 'Menubar', -menu => $menu);

    my $w0 = $cui->add(
                       'w0', 'Window', 
                       -border        => 1, 
                       -y             => -1, 
                       -height        => 3,
                      );

    $w0->add('explain', 'Label', 
             -text => "CTRL+P: previous demo  CTRL+N: next demo  "
             . "CTRL+X: menu  CTRL+Q: quit"
            );

    my $w1 = $cui->add(
                       'w1', 'Window', 
                       -border        => 1, 
                       -y             => -4, 
                       -height        => 5,
                      );
    $w1->add('label_varwin', 'Label', 
             -text => "ho\nho",
             -width => 60,
             -height => 3,
            );

    my $w2 = $cui->add(
                       'w2', 'Window', 
                       -border        => 1, 
                       -y             => -9, 
                       -height        => 6,
                      );
    $w2->add('label_detailwin', 'Label', 
             -text => "hello",
             -width => 60,
             -height => 4,
	     -wrapping=>1,
            );

    my $button_template =
      {
       -label => '[ Select a template ]',
       -value => 'template',
       -onpress=> sub {
           select_screen('select_template');
       },
      };

    my $button_query =
      {
       -label => '[ Create Query ]',
       -value => 'query',
       -onpress=> sub {
           select_screen('query');
       },
      };

    my $button_exec_query =
      {
       -label => '[ Execute Query ]',
       -value => 'exec_query',