Orac
view release on metacpan or search on metacpan
menu/Oracle/menu.txt view on Meta::CPAN
Menubutton^struct^
command^0^0^summ_tabsp^$main::current_db->tab_det_orac^$main::lg{summ_tabsp}+'tabspace_diag'^
command^0^0^det_tab_datafil^$main::current_db->tab_det_orac^$main::lg{det_tab_datafil}+'tab_det_orac'^
command^0^1^tabsp_txt^$main::current_db->show_sql^$main::current_db->f_str('kkspace','1')+$main::lg{tabsp_txt}^
separator^
command^0^1^db_files^$main::current_db->show_sql^$main::current_db->f_str('datafile_orac','1')+$main::lg{db_files}^
command^0^1^ext_rep^$main::current_db->show_sql^$main::current_db->f_str('ext_orac','1')+$main::lg{ext_rep}^
command^0^1^max_exts_free^$main::current_db->show_sql^$main::current_db->f_str('max_ext_orac','1')+$main::lg{max_exts_free}+$main::current_db->block_size()+$main::current_db->block_size()+$main::current_db->block_size()+$main::current_db->block_size(...
command^dbas_orac^0^dba_views^$main::current_db->dbas_orac^^
Menubutton^obj^
cascade^data_obj^
casc_command^0^0^tabs^$main::current_db->generic_hlist^'Tables'+'.'^
casc_command^0^0^indexs^$main::current_db->generic_hlist^'Indexes'+'.'^
casc_command^0^0^views^$main::current_db->generic_hlist^'Views'+'.'^
casc_command^0^0^seqs^$main::current_db->generic_hlist^'Sequences'+'.'^
casc_command^0^0^lnks^$main::current_db->generic_hlist^'Links'+':'^
casc_command^0^0^synyms^$main::current_db->generic_hlist^'Synonyms'+'.'^
casc_command^0^0^constrnts^$main::current_db->generic_hlist^'Constraints'+'.'^
cascade^user_obj^
casc_command^0^0^users^$main::current_db->generic_hlist^'Users'+'.'^
casc_command^0^0^usergrant^$main::current_db->generic_hlist^'UserGrants'+'.'^
casc_command^0^0^rols^$main::current_db->generic_hlist^'Roles'+'.'^
casc_command^0^0^rolegrnts^$main::current_db->generic_hlist^'RoleGrants'+'.'^
casc_command^0^0^profiles^$main::current_db->generic_hlist^'Profiles'+'.'^
cascade^logical_struct^
casc_command^0^0^tabsp^$main::current_db->generic_hlist^'Tablespaces'+'.'^
casc_command^0^0^rollback^$main::current_db->generic_hlist^'Rollbacks'+'.'^
separator^
cascade^pl_sql^
casc_command^0^0^procs^$main::current_db->generic_hlist^'Procedures'+'.'^
casc_command^0^0^pck_hds^$main::current_db->generic_hlist^'PackageHeads'+'.'^
casc_command^0^0^pck_bods^$main::current_db->generic_hlist^'PackageBods'+'.'^
casc_command^0^0^funcs^$main::current_db->generic_hlist^'Functions'+'.'^
casc_command^0^0^trggrs^$main::current_db->generic_hlist^'Triggers'+'.'^
casc_command^0^0^comments^$main::current_db->generic_hlist^'Comments'+'.'^
cascade^snaps^
casc_command^0^0^snaps^$main::current_db->generic_hlist^'Snapshots'+'.'^
casc_command^0^0^snap_logs^$main::current_db->generic_hlist^'SnapshotLogs'+'.'^
separator^
cascade^sql_crt_states^
casc_command^0^1^constrnts^$main::current_db->all_stf^'Constraints'+'99'+2^
casc_command^0^1^usergrant^$main::current_db->all_stf^'UserGrants'+'99'+2^
casc_command^0^1^synyms^$main::current_db->all_stf^'Synonyms'+'99'+2^
cascade^db_recr_sql^
casc_command^0^1^recrt_base_sql^$main::current_db->orac_create_db^^
casc_command^0^1^raw_db_sql^$main::current_db->show_sql^$main::current_db->f_str('steps','1')+$main::lg{raw_db_sql}^
separator^
command^0^1^inval_obj^$main::current_db->show_sql^$main::current_db->f_str('alter_comp_orac','1')+$main::lg{inval_obj}^
command^errors_orac^1^err_obj^$main::current_db->errors_orac^^
Menubutton^user^
cascade^user_record^
casc_command^0^1^logdon_usrs^$main::current_db->show_sql^$main::current_db->f_str('curr_users_orac','1')+$main::lg{logdon_usrs}^
casc_command^0^1^reg_usrs^$main::current_db->show_sql^$main::current_db->f_str('user_rep_orac','1')+$main::lg{reg_usrs}^
casc_command^0^1^user_summ^$main::current_db->show_sql^$main::current_db->f_str('user_summ','1')+$main::lg{user_summ}^
cascade^user_process^
casc_command^0^1^what_sql_users^$main::current_db->show_sql^$main::current_db->f_str('what_sql','1')+$main::lg{what_sql_users}^
casc_command^0^1^user_upd_db^$main::current_db->show_sql^$main::current_db->f_str('user_upd_orac','1')+$main::lg{user_upd_db}^
casc_command^0^1^user_proc_io^$main::current_db->show_sql^$main::current_db->f_str('user_io_orac','1')+$main::lg{user_proc_io}^
casc_command^0^1^curr_procs^$main::current_db->show_sql^$main::current_db->f_str('spin_orac','1')+$main::lg{curr_procs}^
cascade^user_access^
casc_command^0^1^rols_db^$main::current_db->show_sql^$main::current_db->f_str('role_rep_orac','1')+$main::lg{rols_db}^
casc_command^0^1^profiles_db^$main::current_db->show_sql^$main::current_db->f_str('prof_rep_orac','1')+$main::lg{profiles_db}^
casc_command^0^1^quots^$main::current_db->show_sql^$main::current_db->f_str('quot_rep_orac','1')+$main::lg{quots}^
separator^
command^addr_orac^0^spec_addrss^$main::current_db->addr_orac^^
command^sids_orac^0^spec_sids^$main::current_db->sids_orac^^
Menubutton^lck^
command^0^1^lcks_held^$main::current_db->show_sql^$main::current_db->f_str('lock_orac','1')+$main::lg{lcks_held}^
command^0^0^who_hold^$main::current_db->who_hold^^
command^0^1^who_accs_obj^$main::current_db->show_sql^$main::current_db->f_str('lock_objects','1')+$main::lg{who_accs_obj}^
command^0^1^rollbk_lcks^$main::current_db->show_sql^$main::current_db->f_str('rollback_locks','1')+$main::lg{rollbk_lcks}^
command^0^1^sess_wt_stats^$main::current_db->tune_wait^^
command^0^1^gh_summ_sess^$main::current_db->show_sql^$main::current_db->f_str('gh_summ_sess','1')+$main::lg{gh_summ_sess}^
Menubutton^tune^
command^0^0^hits^$main::current_db->tab_det_orac^$main::lg{hits}+'tune_health'^
command^explain_plan^0^explain_plan^$main::current_db->explain_plan^^
cascade^shared_pool_sql^
casc_command^0^1^mem_hogs1^$main::current_db->tune_pigs^1^
casc_command^0^1^mem_hogs2^$main::current_db->tune_pigs^2^
casc_command^0^1^pool_frag^$main::current_db->gh_pool_frag^^
casc_command^0^1^sga_stat^$main::current_db->show_sql^$main::current_db->f_str('sgastat','2')+$main::lg{sga_stat}^
casc_command^0^1^sga_stats^$main::current_db->show_sql^$main::current_db->f_str('sgastat','1')+$main::lg{sga_stats}^
separator^
cascade^rollback^
casc_command^0^1^rollbk_stats^$main::current_db->gh_roll_stats^^
casc_command^0^1^rollname^$main::current_db->gh_roll_name^^
casc_command^0^1^rollsegs^$main::current_db->show_sql^$main::current_db->f_str('roll_orac','3')+$main::lg{rollsegs}^
separator^
cascade^params^
casc_command^0^1^nls_prms^$main::current_db->show_sql^$main::current_db->f_str('nls','1')+$main::lg{nls_prms}^
casc_command^0^1^db_info^$main::current_db->show_sql^$main::current_db->f_str('database_info','1')+$main::lg{db_info}^
casc_command^0^1^vers_info^$main::current_db->show_sql^$main::current_db->f_str('vdoll_version','1')+$main::lg{vers_info}^
casc_command^0^1^sh_prms^$main::current_db->show_sql^$main::current_db->f_str('vdoll_param_simp','1')+$main::lg{sh_prms}^
cascade^mts^
casc_command^0^0^mts_mem^$main::current_db->mts_mem^^
casc_command^0^1^mts_bzy^$main::current_db->show_sql^$main::current_db->f_str('dispatch_stuff','1')+$main::lg{mts_bzy}^
casc_command^0^1^mts_wt_disp^$main::current_db->show_sql^$main::current_db->f_str('dispatch_stuff','2')+$main::lg{mts_wt_disp}^
casc_command^0^1^mts_wait_srv^$main::current_db->show_sql^$main::current_db->f_str('dispatch_stuff','3')+$main::lg{mts_wait_srv}^
casc_command^0^1^tot_sess_uga^$main::current_db->show_sql^$main::current_db->f_str('sess_curr_max_mem','2')+$main::lg{tot_sess_uga}^
casc_command^0^1^sess_uga_max^$main::current_db->show_sql^$main::current_db->f_str('sess_curr_max_mem','3')+$main::lg{sess_uga_max}^
separator^
cascade^dbwr^
casc_command^0^1^file_io^$main::current_db->dbwr_fileio^^
casc_command^0^1^dbwr_mon^$main::current_db->show_sql^$main::current_db->f_str('dbwr_monitor','1')+$main::lg{dbwr_mon}^
casc_command^0^1^dbwr_lru_ltch^$main::current_db->show_sql^$main::current_db->f_str('dbwr_lru_latch','1')+$main::lg{dbwr_lru_ltch}^
cascade^lgwr^
casc_command^0^1^lgwr_mon^$main::current_db->show_sql^$main::current_db->f_str('lgwr_monitor','1')+$main::lg{lgwr_mon}^
casc_command^0^1^lgwr_redo_ltchs^$main::current_db->show_sql^$main::current_db->f_str('lgwr_buff_latch','1')+$main::lg{lgwr_redo_ltchs}^
cascade^dbwr_lgwr^
casc_command^0^1^dbwr_lgwr_wts^$main::current_db->show_sql^$main::current_db->f_str('lgwr_and_dbwr_wait','1')+$main::lg{dbwr_lgwr_wts}^
cascade^sorts^
casc_command^0^1^sort_mon^$main::current_db->show_sql^$main::current_db->f_str('where_sorts','1')+$main::lg{sort_mon}^
casc_command^0^1^id_srt_usrs^$main::current_db->show_sql^$main::current_db->f_str('who_sorts','1')+$main::lg{id_srt_usrs}^
separator^
cascade^ltchs^
casc_command^0^1^lw_ratio^$main::current_db->show_sql^$main::current_db->f_str('latch_hit_ratio','1')+$main::lg{lw_ratio}^
casc_command^0^1^lt_wtrs^$main::current_db->show_sql^$main::current_db->f_str('act_latch_hit_ratio','1')+$main::lg{lt_wtrs}^
cascade^tabsp_tune^
casc_command^0^1^tabsp_frag^$main::current_db->show_sql^$main::current_db->f_str('defragger','1')+$main::lg{tabsp_frag}^
casc_command^0^1^tabsp_sp_shorts^$main::current_db->show_sql^$main::current_db->f_str('tab_shortage','1')+$main::lg{tabsp_sp_shorts}+$main::current_db->block_size()+$main::current_db->block_size()^
orac_Shell.pm view on Meta::CPAN
# Options menu
my $opt_disp = $menus[2]->menu->Menu;
foreach (qw/raw neat box grid html/) {
$opt_disp->radiobutton( -label => $_,
-variable => \$opt_dis_grid,
-value => $_,
);
}
$menus[2]->cascade( -label => "Display format...");
$menus[2]->entryconfigure( "Display format...", -menu => $opt_disp);
$opt_dis_grid = 'neat';
# Create the entries for rows returned.
my $opt_row = $menus[2]->menu->Menu;
foreach (qw/1 10 25 50 100 all/) {
$opt_row->radiobutton( -label => $_, -variable => \$opt_row_dis_c,
-value => $_ );
}
$menus[2]->cascade( -label => "Rows return..." );
$menus[2]->entryconfigure( "Rows return...", -menu => $opt_row);
$opt_row_dis_c = 'all';
# Create a button bar.
$dbistatus = "Creating menu button bar";
my $bf = $dbiwd->Frame( -relief => 'ridge', -borderwidth => 2 );
$bf->pack( -side => 'top', -anchor => 'n', -expand => 1, -fill => 'x' );
# need to invoke the execute in other parts of the application.
orac_dba.pl view on Meta::CPAN
$main::current_db->about_orac('txt/menu_config.txt');
main::ubz()
}
);
$file_mb->separator();
# Build up the colour options, so
# a nice lemonchiffon is possible as a backdrop
$main::bc_txt = $main::lg{back_col_menu};
$file_mb->cascade(-label=>$main::bc_txt);
$main::bc_men = $file_mb->cget(-menu);
$main::bc_cols = $main::bc_men->Menu;
# Now pick up all the lovely colours and build a radiobutton
$file_mb->entryconfigure($main::bc_txt,-menu=>$main::bc_cols);
open(COLOUR_FILE, "txt/colours.txt");
while(<COLOUR_FILE>){
chomp;
eval {
orac_dba.pl view on Meta::CPAN
sub bz {
# Make the main GUI pointer go busy
$main::mw->Busy;
}
sub ubz {
# Make the main GUI pointer normalise to unbusy
$main::mw->Unbusy;
}
sub get_Jared_sql {
# Takes pointers to which cascade and button the user
# wishes to run, and sucks SQL info out of the appropriate
# file, before returning as a Perl string variable
my($casc,$butt) = @_;
my $filename = 'tools/sql/' . $casc . '.' . $butt . '.sql';
my $cm = '';
open(JARED_FILE, "$filename");
while(<JARED_FILE>){
$cm = $cm . $_;
}
orac_dba.pl view on Meta::CPAN
}
}
}
$menu_command = $menu_command . ');main::ubz()}); ' . "\n";
}
if ($menu_line[0] eq 'separator'){
$menu_command = $menu_command .
' $main::tm_but[$main::tm_but_ct]->separator(); ' .
"\n";
}
if ($menu_line[0] eq 'cascade'){
# Ok, it ain't pretty, but then are you first thing
# of a morning? :)
$menu_command =
$menu_command .
' $main::tm_but[$main::tm_but_ct]->cascade(-label=>$main::lg{' .
$menu_line[1] . '}); ' .
"\n" .
' $main::casc = $main::tm_but[$main::tm_but_ct]->cget(-menu); ' .
"\n" .
' $main::casc_item = $main::casc->Menu; ' .
"\n" .
' $main::tm_but[$main::tm_but_ct]->entryconfigure($main::lg{' .
$menu_line[1] .
'}, -menu => $main::casc_item); ' .
"\n";
orac_dba.pl view on Meta::CPAN
main::orac_copy($filename,"${filename}.old");
open(SAV_SQL,">$filename");
print SAV_SQL $main::swc{ed_butt_win}->{text}->get("1.0", "end");
close(SAV_SQL);
return $filename;
}
sub ed_butt {
# Allow configuration of 'My Tools' menus, buttons, cascades, etc
my($casc,$butt) = @_;
my $ed_fl_txt = main::get_butt_text($casc,$butt);
my $sql_file = 'tools/sql/' . $casc . '.' . $butt . '.sql';
$main::swc{ed_butt_win} = MainWindow->new();
$main::swc{ed_butt_win}->title( "$main::lg{cascade} $casc,
$main::lg{button} $butt");
my $ed_sql_txt = "$ed_fl_txt: $main::lg{ed_sql_txt}";
my $ed_sql_txt_cnt = 0;
$main::swc{ed_butt_win}->Label(
-textvariable => \$ed_sql_txt,
-anchor=>'n',
-relief=>'groove'
)->pack(-expand=>'no');
orac_dba.pl view on Meta::CPAN
my($param,$loc_casc,$loc_butt) = @_;
my $main_check;
my $title;
my $action;
my $inp_text;
my $sec_check;
if(($param == 1)||($param == 99)||($param == 69)||($param == 49)){
$main_check = 'C';
$title = $main::lg{add_cascade};
my $main_field = 1;
my $main_inp_value;
my $add_text = $main::lg{casc_text};
$action = $main::lg{add};
if($param == 69){
$title = $main::lg{upd_cascade};
$action = $main::lg{upd};
} elsif($param == 49) {
$main_check = 'B';
$title = "$main::lg{cascade} $loc_casc, $main::lg{button}";
$add_text = $main::lg{upd_button};
$action = $main::lg{upd};
} elsif($param == 99) {
$main_field = 2;
$main_check = 'B';
$title = "$main::lg{cascade} $loc_casc: $main::lg{add_button}";
$add_text = $main::lg{butt_text};
}
if(($param == 69)||($param == 49)){
$main_inp_value = $loc_casc;
} else {
my @inp_value;
orac_dba.pl view on Meta::CPAN
my @casc1;
my @casc2;
my $d;
my $message;
$main_check = 'C';
my $del_text = $main::lg{casc_text};
if($param == 2){
$title = $main::lg{del_cascade};
$action = $main::lg{del};
$message = $main::lg{del_message};
} elsif($param == 3) {
$title = $main::lg{add_button};
$action = $main::lg{next};
$message = $main::lg{add_butt_mess};
} elsif($param == 4) {
orac_dba.pl view on Meta::CPAN
$sec_check = 'B';
$title = $main::lg{config_edit_butt};
$action = $main::lg{next};
$message = $main::lg{choose_casc};
} elsif($param == 59) {
$main_check = 'B';
$title = $main::lg{config_edit_butt};
$action = $main::lg{next};
$message = "$main::lg{cascade} $loc_casc: $main::lg{choose_butt}";
$del_text = $main::lg{choose_butt};
} elsif($param == 79) {
$main_check = 'B';
$title = $main::lg{config_edit_sql};
$action = $main::lg{next};
$message = $main::lg{ed_sql_mess2};
} elsif($param == 89) {
$main_check = 'B';
$title = $main::lg{del_button};
$action = $main::lg{del};
$message = "$main::lg{cascade} $loc_casc: $main::lg{del_butt_mess2}";
$del_text = $main::lg{del_butt_text};
}
my $i_count = 0;
if(open(JT_CONFIG,'tools/config.tools')){
while(<JT_CONFIG>){
my @hold = split(/\^/, $_);
sql/Oracle/Constraints.99.sql view on Meta::CPAN
else
a_lin := wri(a_lin,',',0);
a_lin := wri(a_lin,chr(34)||c_column_name||chr(34),0);
end if;
end loop;
close c4;
end;
if t_pn = 1 then
a_lin := wri(a_lin,')',0);
if t_dr = 'CASCADE' then
a_lin := wri(a_lin,' on delete cascade',0);
end if;
if t_st = 'DISABLED' then
a_lin := wri(a_lin,' DISABLE',0);
end if;
a_lin := wri(a_lin,';',1);
end if;
end if;
end loop;
close c1;
end;
sql/Oracle/Table_Constraints.99.sql view on Meta::CPAN
else
a_lin := wri(a_lin,',',0);
a_lin := wri(a_lin,chr(34)||c_column_name||chr(34),0);
end if;
end loop;
close c4;
end;
if t_pn = 1 then
a_lin := wri(a_lin,')',0);
if t_dr = 'CASCADE' then
a_lin := wri(a_lin,' on delete cascade',0);
end if;
if t_st = 'DISABLED' then
a_lin := wri(a_lin,' DISABLE',0);
end if;
a_lin := wri(a_lin,';',1);
end if;
end if;
end loop;
close c1;
end;
txt/English.txt view on Meta::CPAN
about_orac^About Orac & Terms of Use^
add^Add^
add_butt_mess^Please pick the cascade you wish to attach button to^
add_button^Add Button^
add_cascade^Add Cascade^
are_you_sure^Please Confirm^
auto_clear^Automatic Clear^
back_col_menu^Background Colour Menu^
back_procs^Background Processes^
bar_col^red^
blk_siz^Block Size^
build_index^Build Index^
butt_text^Button Text (Report Title)^
button^Button^
cancel^Cancel^
casc_text^Cascade Text^
cascade^Cascade^
change_dbtyp^Change DB^
choose_butt^Choose Button^
choose_casc^Choose Cascade^
clear^Clear^
comments^Comments^
comp_errs_for^Compilation Errors for^
compr_extnts^Compressed Extents^
config_add_butt^Add a Button to a Cascade^
config_add_casc^Add a Cascade to My Tools Menu^
config_del_butt^Delete a Button from a Cascade^
txt/English.txt view on Meta::CPAN
dbwr_io_rp^DBWR I/O Report^
dbwr_lgwr^DBWR & LGWR^
dbwr_lgwr_wts^DBWR & LGWR Waits Monitor^
dbwr_lru_ltch^DBWR LRU Latches^
dbwr_mon^DBWR Monitor^
def_backgr_col^steelblue2^
def_fg_col^black^
def_fill_fld_col^white^
del^Delete^
del_butt_mess2^This will delete the button and attached SQL^
del_butt_mess^Please pick the cascade you wish to delete button from^
del_butt_text^Button for Deletion^
del_button^Delete Button^
del_cascade^Delete Cascade^
del_message^This will delete the cascade, and all attached buttons/SQL^
det_tab_datafil^Detailed Chart by Tablespace/Datafile^
disconn^Disconnected...^
dispatch_mts^Dispatcher Mts Related Info^
doub_click^Double-Click Selection^
ed_sql_mess2^Please pick a Button^
ed_sql_mess^Please pick a Cascade^
ed_sql_txt^Edit the SQL Text and save its attachment to Button^
err_obj^Errored Objects^
execute_sql^Execute SQL^
exit^Exit^
txt/English.txt view on Meta::CPAN
tabsp_frag^Tablespace Fragmentation^
tabsp_sp_shorts^Tablespace Space Shortages^
tabsp_tune^Tablespace Tuning^
tabsp_txt^Tablespace Text Report^
tot_sess_uga^Total Session UGA^
trggrs^Triggers^
tune^Tune^
upd^Update^
upd_butt_text^Button for Update^
upd_button^Update Button^
upd_cascade^Update Cascade^
use_utlxplan^Please run utlxplan.sql to create user's PLAN_TABLE, for 'Explain Plan' option.^
user^User^
user_access^User Access^
user_obj^User Objects^
user_please^Please enter a DBA user with at least main 'Select' privileges^
user_proc_io^Any User Processes Performing I/O?^
user_process^User Processess^
user_record^User Records^
user_summ^User Activity Summary^
user_upd_db^Any Users Updating on Database?^
txt/help_with_tools.txt view on Meta::CPAN
Intro
=====
This is a new Orac feature which can enable you to add your own
scripts 'interactively' to the program under the 'My Tools' menu.
How 'My Tools' Works
====================
*. Basically, you add any number of cascades to the 'My Tools' menu.
*. You then add any number of buttons to each cascade.
*. Once you have your cascades and buttons in place, you can
attach various pieces of your own SQL to the buttons, and
then run them like any other normal Orac reports.
This probably sounds a lot more complicated than it is. You may
just like to play with the 'Configure My Tools' menu to see what
it can do. I'll run through its main options below:
Add a Cascade to My Tools Menu
------------------------------
This option enables you to add a cascade. As soon as you're
finished, your new cascade should immediately be available
under the 'My Tools' menu, but will not have any buttons attached.
While you're adding the new cascade, you will be asked to enter
a piece of text, which will later appear on the menu. For example,
you may want to call your cascade 'My Tuning SQL Reports'.
Edit Text for Cascade
---------------------
You may decide to change the above cascade title, to something
more appropriate, once you've added a few buttons which don't
really relate to the original cascade name. This is where you
do it, for example, change the above example to:
'My Tuning and Hit Ratio Dynamic Reports'
Delete a Cascade
----------------
Be careful when using this option. You will be given a picklist
of your current cascades, to delete one of them. If you confirm
the deletion, all of the buttons under the cascade, and the cascade
itself will disappear from Orac.
Add a Button to a Cascade
-------------------------
Once you have given yourself a cascade, this option allows you to
attach any number of buttons to it. Once you have added a button,
it will automatically appear in the 'My Tools' menu. Using this
option, will also send you directly into a screen form where you can
enter your SQL script.
NB: Please remember, DBI does not require semi-colons in its
SQL scripts as may be the case in SQL*Plus.
It is probably best if you test out your new SQL script using a
tool such as SQL*Plus (under the SYSTEM user), before pasting it
txt/help_with_tools.txt view on Meta::CPAN
Edit Text for Button
--------------------
Just like the similar option for Cascade, you may want to change
the name of the button on the menu. One point to note though,
the name of the button (eg: 'Dictionary Cache Ratio'), will also
be the name of the report output in the main window.
Delete a Button from a Cascade
------------------------------
Does what it says really. You choose a cascade, then choose a
button, then delete it. It will immediately disappear from the
'My Tools' menu. Please be careful with this option. Once you
have accepted deletion, the button and the attached SQL script
both disappear.
Edit SQL Attached to Button
---------------------------
I find I never get the SQL right first time with any tool. Orac
will report any errors in your script. You can then edit it via
this option, and then run it again from the menu until you're happy with
txt/language.txt view on Meta::CPAN
about_orac^About Orac & Terms of Use^
add^Add^
add_butt_mess^Please pick the cascade you wish to attach button to^
add_button^Add Button^
add_cascade^Add Cascade^
are_you_sure^Please Confirm^
auto_clear^Automatic Clear^
back_col_menu^Background Colour Menu^
back_procs^Background Processes^
bar_col^red^
blk_siz^Block Size^
build_index^Build Index^
butt_text^Button Text (Report Title)^
button^Button^
cancel^Cancel^
casc_text^Cascade Text^
cascade^Cascade^
change_dbtyp^Change DB^
choose_butt^Choose Button^
choose_casc^Choose Cascade^
clear^Clear^
comments^Comments^
comp_errs_for^Compilation Errors for^
compr_extnts^Compressed Extents^
config_add_butt^Add a Button to a Cascade^
config_add_casc^Add a Cascade to My Tools Menu^
config_del_butt^Delete a Button from a Cascade^
txt/language.txt view on Meta::CPAN
dbwr_io_rp^DBWR I/O Report^
dbwr_lgwr^DBWR & LGWR^
dbwr_lgwr_wts^DBWR & LGWR Waits Monitor^
dbwr_lru_ltch^DBWR LRU Latches^
dbwr_mon^DBWR Monitor^
def_backgr_col^steelblue2^
def_fg_col^black^
def_fill_fld_col^white^
del^Delete^
del_butt_mess2^This will delete the button and attached SQL^
del_butt_mess^Please pick the cascade you wish to delete button from^
del_butt_text^Button for Deletion^
del_button^Delete Button^
del_cascade^Delete Cascade^
del_message^This will delete the cascade, and all attached buttons/SQL^
det_tab_datafil^Detailed Chart by Tablespace/Datafile^
disconn^Disconnected...^
dispatch_mts^Dispatcher Mts Related Info^
doub_click^Double-Click Selection^
ed_sql_mess2^Please pick a Button^
ed_sql_mess^Please pick a Cascade^
ed_sql_txt^Edit the SQL Text and save its attachment to Button^
err_obj^Errored Objects^
execute_sql^Execute SQL^
exit^Exit^
txt/language.txt view on Meta::CPAN
tabsp_frag^Tablespace Fragmentation^
tabsp_sp_shorts^Tablespace Space Shortages^
tabsp_tune^Tablespace Tuning^
tabsp_txt^Tablespace Text Report^
tot_sess_uga^Total Session UGA^
trggrs^Triggers^
tune^Tune^
upd^Update^
upd_butt_text^Button for Update^
upd_button^Update Button^
upd_cascade^Update Cascade^
use_utlxplan^Please run utlxplan.sql to create user's PLAN_TABLE, for 'Explain Plan' option.^
user^User^
user_access^User Access^
user_obj^User Objects^
user_please^Please enter a DBA user with at least main 'Select' privileges^
user_proc_io^Any User Processes Performing I/O?^
user_process^User Processess^
user_record^User Records^
user_summ^User Activity Summary^
user_upd_db^Any Users Updating on Database?^
txt/menu_config.txt view on Meta::CPAN
Menubutton^struct^
command^0^0^oi_dbspaces^orac_Informix::onstat_dbspaces^^
command^0^0^oi_chunks^orac_Informix::onstat_chunks^^
command^0^0^oi_onconfig_params^orac_Informix::onstat_onconfig_params^^
separator^
command^0^0^oi_extents_report^orac_Informix::oncheck_extents^^
command^0^0^oi_log_rep^orac_Informix::onstat_log_rep^^
command^0^0^oi_logical_log^orac_Informix::onlog_log^^
Menubutton^obj^
cascade^oi_tables^
casc_command^0^1^oi_tables^orac_Informix::my_func1^$rfm{oi_tabs_form}+0^
casc_command^0^1^oi_columns^orac_Informix::new_func^'2'+$rfm{oi_cols_form}+0^
separator^
command^0^0^oi_synonyms^orac_Informix::dbschema_syns^^
command^0^0^oi_procedures^orac_Informix::dbschema_procs^^
command^0^0^oi_proc_list^orac_Informix::dbschema_proc_list^^
Menubutton^tune^
================
Each 'Menubutton' defines the top level menu button which appears on the main
txt/menu_config.txt view on Meta::CPAN
people to configure Orac completely to be in a different language, without
changing the program, and only having to edit one file to do it.
We'll get back to txt/language.txt later.
Beneath each 'Menubutton', there are three valid commands:
separator^
==========
Straightforward really. This provides a separator line for the main menu
which drops down from the main Menubutton. Please do not use in cascades.
command^0^0^oi_grants^orac_Informix::dbschema_grants^^
======================================================
A straightforward command button is produced, directly below the main Menu
option. The next two options are 1:0 switches
command^oi_grants^0
=========
txt/menu_config.txt view on Meta::CPAN
This supplies Orac with the exact 'literal' parameters, which it will supply
to the named 'my_func' function. Note the '+' sign to separate values. The
above would produce:
-command => sub { main::my_func($lg{oi_tables}, 'Tables', '1', 0) ; .... }
NB: These parameters, unfortunately for now, are literal strings, to be
interpreted as proper variables only later, when the program is actually run.
cascade^oi_tables^
==================
This produces a 'Cascade' button in the main drop-down menu from the
Menubutton.
As before, the 'oi_tables' string is looked up in txt/language.txt, thus:
oi_tables^Tables^
This puts up a 'Tables' cascade under the appropriate menu.
casc_command^0^1^oi_tables^orac_Informix::f1^$lg{oi_tables}+'Tables'+'1'+0^
===========================================================================
This is virtually identical to the earlier 'command' option. Except, it comes
under the preceding cascade, rather than under the main Menubutton.
The txt/language.txt file
=========================
Edit this file, to change the language and/or output strings of Orac without
changing the file. It is a simple two column flat-file text file, which
supplies the %lg{} Perl hash with all the strings used throughout the program.
The txt/Informix/format.txt file
( run in 1.094 second using v1.01-cache-2.11-cpan-49f99fa48dc )