-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathedit_oci.cgi
More file actions
29 lines (19 loc) · 821 Bytes
/
edit_oci.cgi
File metadata and controls
29 lines (19 loc) · 821 Bytes
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
#!/usr/bin/perl
require './oci-lib.pl';
&ReadParse();
&ui_print_header(undef, $text{'oci_title'}, "");
my @oci_vers = get_oci_versions();
my $page_number = pop @oci_vers;
my %pkgs = ('basic'=>1, 'jdbc'=>1, 'sqlplus'=>0, 'sdk'=>1, 'odbc'=>1, 'tools'=>0);
print &ui_form_start("install_oci.cgi", "form-data");
print &ui_hidden('page_number', $page_number);
print &ui_table_start($text{'oci_install'}, undef, 2);
print &ui_table_row($text{'oci_version'}, &ui_select("oci_ver", undef, \@oci_vers, 1, 0));
my $pkg_checks='';
foreach my $name (sort keys %pkgs){
$pkg_checks .= &ui_checkbox('pkg_'.$name, 1, $name, $pkgs{$name});
}
print &ui_table_row($text{'oci_packages'}, $pkg_checks, 2);
print &ui_table_end();
print &ui_form_end([ [ "", $text{'install_button'} ] ]);
&ui_print_footer("", $text{'index_return'});