DBIx-DBStag

 view release on metacpan or  search on metacpan

cgi-bin/ubiq.cgi  view on Meta::CPAN

    # ++++++++++++++++++++++++++++++++++++++++++++++++++
    # attr_settings
    #
    #
    # ++++++++++++++++++++++++++++++++++++++++++++++++++
    sub attr_settings;		#
    *attr_settings = sub {
	return unless $template;
	my @vals = ();
	my @popups = ();
	my @extra = ();

	my $basic_tbl = 
	  table(Tr({},
		   [
		    map {
			my $examples = '';
			my $ei = $example_input->{$_} || [];
			while (length("@$ei") > 100) {
			    pop @$ei;

cgi-bin/ubiq.cgi  view on Meta::CPAN

		  -value=>'exectemplate'),
	   $basic_tbl,
	   $adv_tbl,
	   #       table({-border=>1},
	   #	     Tr({-valign=>"TOP"},
	   #		[td([
		     
	   #		    ])])),

	   ("Tree/Flat format: ",
	    popup_menu(-name=>'format',
		       -values=>[qw(sxpr itext XML nested-HTML flat-TSV flat-CSV flat-HTML-table)]),
	    checkbox(-name=>'save',
		     -value=>1,
		     -label=>'Save Results to Disk'),
	    ' ',
	    checkbox(-name=>'showsql',
		     -value=>1,
		     -label=>'Show SQL Statement'),
	   ),

cgi-bin/ubiq.cgi  view on Meta::CPAN

    sub display_htmlpage;			#
    *display_htmlpage = sub {
	print(
	      header, 
	      start_html(g_title), 
	      top_of_page,
	      start_form(-action=>'ubiq.cgi', -method=>'GET'),

	      # DATABASE SELECTION
	      ("Database",
	       popup_menu(-name=>'dbname',
			  -values=>[sort {$a cmp $b} @dbnames],
			  -onChange=>"submit()",
			 ),
	       submit(-name=>'submit',
		      -value=>"selectdb")),

	      # QUERY RESULTS - if present
	      (query_results),

	      # ERRORS - if present

scripts/stag-qsh  view on Meta::CPAN

      join("\n",
	   'COMMAND SUMMARY',
	   '===============',
	   ' ?              displays this help message',
	   ' \d             displays available databases',
	   ' \d MATCH       available databases containing regexp MATCH',
	   ' \dd            displays available databases - DETAILED',
	   ' \dd MATCH      available databases containing regexp MATCH - DETAILED',
	   ' \t [MATCH]     lists available templates (optionally matching MATCH regexp)',
	   ' \tt [MATCH]    as above, but detailed view',
	   ' \x             toggle pager - from shell to popup xterm',
	   ' \r             toggle queryresult mode - rows vs trees',
	   ' \c             show resources conf file',
	   ' d DBNAME       set the database',
	   ' w WRITER       set the tree writer (xml, sxpr or itext)',
	   ' t TEMPLATE     set the template',
           ' x VARIABLE     show perl variable using Data::Dump',
           ' trace          toggle DBSTAG_TRACE',
	   ' \v             show template variable bindings',
	   ' \l             toggle multi/single line mode',
	   ' \q             QUIT',

scripts/ubiq  view on Meta::CPAN

                         "query_label$i", 'Label',
                         -x => 1,
                         -y => $y,
                         -width => 40,
                         -height => 1,
                         -bold => 1,
                      );
            $label->text($vn);

            replace_widg($w{query},
			 "query_val_popup$i", 'TextEntry',
			 -x => 42,
			 -y => $y,
			 -width => 30,
			 -sbborder => 1, 
                         -onchange=> sub {
			     my $v = shift->get;
			     $exec_argh{$vn} = $v;
			     if (!$v) {
				 delete $exec_argh{$vn};
			     }

scripts/ubiq  view on Meta::CPAN

		     -wrapping=>1,
		     -showoverflow=>0,
		    );
	$w{qr}->draw;
	$w{qr}->focus;
    }
    sub setup_complex_query_options {
        for (my $i=0; $i<10; $i++) {
            my $y = $i;
            replace_widg($w{cquery},
                         "cquery_att_popup$i", 'Popupmenu',
                         -y => $y,
                         -sbborder => 1, 
                         -values => $varnames,
                      );

            replace_widg($w{cquery},
                       "cquery_val_popup$i", 'TextEntry',
                       -x => 20,
                       -y => $y,
                       -width => 20,
                       -sbborder => 1, 
                      );
        
            replace_widg($w{cquery},
                       "cquery_bool_popup$i", 'Popupmenu',
                       -x => 50,
                       -y => $y,
                       -sbborder => 1, 
                       -values => [ qw(AND OR) ],
                      );
        }
    }
    sub replace_widg {
        my $w = shift;
        my $id = shift;