294 lines
7.7 KiB
Perl
294 lines
7.7 KiB
Perl
#!/usr/bin/perl
|
|
|
|
require './jru-lib.pl';
|
|
require '../webmin/webmin-lib.pl'; #for OS detection
|
|
|
|
sub jru_add_entry{
|
|
|
|
open(my $fh, '>>', get_prop_file()) or die "open:$!";
|
|
print $fh "\n";
|
|
print $fh '[datasource:'.$in{'name'}."]\n";
|
|
foreach my $key (@ds_keys){
|
|
print $fh $key.'='.$in{$key}."\n";
|
|
}
|
|
close $fh;
|
|
}
|
|
|
|
sub jru_update_entry{
|
|
my $name = $in{'dsname'};
|
|
my $prop_file = get_prop_file();
|
|
|
|
$lref = &read_file_lines($prop_file);
|
|
my $ln=0;
|
|
my $ds_line = -1;
|
|
foreach $line (@$lref){
|
|
if($line =~ /^\[datasource:$name\]/){
|
|
$ds_line = $ln;
|
|
last; #don't add the line twice
|
|
}
|
|
$ln=$ln+1;
|
|
}
|
|
|
|
if($ds_line > 0){
|
|
@{$lref}[$ds_line] = '[datasource:'.$in{'name'}."]";
|
|
$ln = $ds_line;
|
|
foreach my $key (@ds_keys){
|
|
$ln=$ln+1;
|
|
my $line = @{$lref}[$ln];
|
|
if($line =~ /^$key=/){
|
|
@{$lref}[$ln] = $key.'='.$in{$key};
|
|
}
|
|
}
|
|
}
|
|
|
|
&flush_file_lines($prop_file);
|
|
}
|
|
|
|
sub jru_rm_entry{
|
|
my $name = $in{'datasource'};
|
|
my $prop_file = get_prop_file();
|
|
|
|
$lref = &read_file_lines($prop_file);
|
|
my $ln=0;
|
|
my $ds_line = -1;
|
|
foreach $line (@$lref){
|
|
if($line =~ /^\[datasource:$name\]/){
|
|
$ds_line = $ln;
|
|
last; #don't add the line twice
|
|
}
|
|
$ln=$ln+1;
|
|
}
|
|
|
|
if($ds_line > 0){
|
|
@{$lref}[$ds_line] = '#'.@{$lref}[$ds_line];
|
|
$ln = $ds_line;
|
|
foreach my $key (@ds_keys){
|
|
$ln=$ln+1;
|
|
my $line = @{$lref}[$ln];
|
|
if($line =~ /^$key=/){
|
|
@{$lref}[$ln] = '#'.$line;
|
|
}
|
|
}
|
|
}
|
|
|
|
&flush_file_lines($prop_file);
|
|
}
|
|
|
|
sub jru_rm_resource_ctx{
|
|
my $name = $_[0];
|
|
my $ctxxml = get_catalina_home().'/conf/context.xml';
|
|
|
|
|
|
$lref = &read_file_lines($ctxxml);
|
|
my $ln=0;
|
|
my $sln = -1, $eln = -1;
|
|
|
|
my $pat = '<Resource name="jdbc/'.$name.'" auth="Container" type="javax.sql.DataSource';
|
|
foreach my $line (@$lref){
|
|
if(($sln == -1) && (index($line, $pat) >= 0)){
|
|
$sln = $ln;
|
|
}elsif(($sln >= 0) and ($line =~ /\/>$/)){
|
|
$eln = $ln;
|
|
last;
|
|
}
|
|
$ln=$ln+1;
|
|
}
|
|
|
|
if($sln > 0 and $eln > 0){
|
|
# remove the section
|
|
for (my $i = $sln; $i <= $eln; $i++) {
|
|
delete @{$lref}[$i];
|
|
}
|
|
}
|
|
&flush_file_lines($ctxxml);
|
|
}
|
|
|
|
sub jru_rm_resource_web{
|
|
my $name = $_[0];
|
|
my $webxml = get_catalina_home().'/webapps/JasperReportsIntegration/WEB-INF/web.xml';
|
|
|
|
$lref = &read_file_lines($webxml);
|
|
my $ln=0;
|
|
my $sln = -1, $eln = -1;
|
|
|
|
my $pat = '<res-ref-name>'.$name.'</res-ref-name>';
|
|
foreach $line (@$lref){
|
|
if(($sln == -1) && (index($line, $pat) >= 0)){
|
|
$sln = $ln;
|
|
}elsif(($sln >=0) and ($line =~ /<\/resource-ref>$/)){
|
|
$eln = $ln;
|
|
last;
|
|
}
|
|
$ln=$ln+1;
|
|
}
|
|
|
|
if($sln > 0 and $eln > 0){
|
|
# remove the section
|
|
for (my $i = $sln - 2; $i <= $eln; $i++) {
|
|
delete @{$lref}[$i];
|
|
}
|
|
}
|
|
&flush_file_lines($webxml);
|
|
}
|
|
|
|
&ReadParse();
|
|
&ui_print_header(undef, $text{'jru_title'}, "", "sources", 0, 0);
|
|
|
|
|
|
#Make options for type field
|
|
my @jru_types = ('jdbc', 'jndi');
|
|
@opt_jru_types = map { [$_, $_]} sort @jru_types;
|
|
|
|
%datasources = get_jru_datasources();
|
|
@opt_datasources = map { [$_, $_]} sort keys %datasources;
|
|
|
|
if($in{'post_flag'} == 3){ #update
|
|
my %ds = %{$datasources{$in{'dsname'}}};
|
|
if(!%ds){
|
|
print("<b>datasource:".$in{'dsname'}."</b> doesn't exists!");
|
|
&ui_print_footer("", $text{'index_return'});
|
|
exit;
|
|
}else{
|
|
#check if all keys exists
|
|
foreach my $key (@ds_keys){
|
|
if(!$in{$key}){
|
|
print("Datasource $key is empty!");
|
|
&ui_print_footer("", $text{'index_return'});
|
|
exit;
|
|
}
|
|
}
|
|
jru_update_entry();
|
|
|
|
if($ds{'type'} == 'jndi'){
|
|
jru_rm_resource_ctx($ds{'name'});
|
|
jru_rm_resource_web($ds{'name'});
|
|
|
|
if($ds{'url'} =~ /^jdbc:postgresql/){ jri_add_pg_resource( $in{'name'}, $in{'url'}, $in{'username'}, $in{'password'});
|
|
}elsif($ds{'url'} =~ /^jdbc:mysql/){ jri_add_mysql_resource($in{'name'}, $in{'url'}, $in{'username'}, $in{'password'});
|
|
}elsif($ds{'url'} =~ /^jdbc:sqlserver/){ jri_add_mssql_resource($in{'name'}, $in{'url'}, $in{'username'}, $in{'password'});
|
|
}
|
|
}
|
|
}
|
|
|
|
}elsif($in{'post_flag'} == 1){ #add
|
|
if($datasources{$in{'name'}}){
|
|
print("<b>datasource:".$in{'name'}."</b> already exists!");
|
|
&ui_print_footer("", $text{'index_return'});
|
|
exit;
|
|
}else{
|
|
#check if all keys exists
|
|
foreach my $key (@ds_keys){
|
|
if(!$in{$key}){
|
|
print("Datasource $key is empty!");
|
|
&ui_print_footer("", $text{'index_return'});
|
|
exit;
|
|
}
|
|
}
|
|
jru_add_entry();
|
|
|
|
if($in{'type'} == 'jndi'){
|
|
if($in{'url'} =~ /^jdbc:postgresql/){ jri_add_pg_resource( $in{'name'}, $in{'url'}, $in{'username'}, $in{'password'});
|
|
}elsif($in{'url'} =~ /^jdbc:mysql/){ jri_add_mysql_resource($in{'name'}, $in{'url'}, $in{'username'}, $in{'password'});
|
|
}elsif($in{'url'} =~ /^jdbc:sqlserver/){ jri_add_mssql_resource($in{'name'}, $in{'url'}, $in{'username'}, $in{'password'});
|
|
}
|
|
}
|
|
}
|
|
|
|
}elsif($in{'post_flag'} == 2){ #remove
|
|
my %ds = %{$datasources{$in{'datasource'}}};
|
|
if(!%ds){
|
|
print("<b>datasource:".$in{'datasource'}."</b> doesn't exists!");
|
|
&ui_print_footer("", $text{'index_return'});
|
|
exit;
|
|
}
|
|
jru_rm_entry();
|
|
|
|
if($ds{'type'} == 'jndi'){
|
|
jru_rm_resource_ctx($ds{'name'});
|
|
jru_rm_resource_web($ds{'name'});
|
|
}
|
|
}
|
|
|
|
if($in{'post_flag'}){
|
|
#re-read the file, after we have added/removed a user
|
|
%datasources = get_jru_datasources();
|
|
@opt_datasources = map { [$_, $_]} sort keys %datasources;
|
|
}
|
|
|
|
# Show tabs
|
|
@tabs = ( [ "add",$text{'jru_tabadd'}, "edit_datasource.cgi?mode=add" ],
|
|
[ "remove", $text{'jru_tabremove'}, "edit_datasource.cgi?mode=remove" ],
|
|
[ "list", $text{'jru_tablist'}, "edit_datasource.cgi?mode=list" ]
|
|
);
|
|
|
|
print &ui_tabs_start(\@tabs, "mode", $in{'mode'} || "list", 1);
|
|
|
|
my @cols = ('', '', '', '', '');
|
|
if($in{'dsname'}){
|
|
my %ds_entries = %{$datasources{$in{'dsname'}}};
|
|
@cols = map { $ds_entries{$_} } @ds_keys;
|
|
}
|
|
|
|
#Add tab
|
|
print &ui_tabs_start_tab("mode", "add");
|
|
print "$text{'jru_desc1'}<p>\n";
|
|
|
|
print &ui_form_start("edit_datasource.cgi", "post");
|
|
if($in{'dsname'}){
|
|
print &ui_hidden("post_flag", 3); #update
|
|
print &ui_hidden("dsname", $in{'dsname'}); #name of the datasource to be edited
|
|
}else{
|
|
print &ui_hidden("post_flag", 1); #add
|
|
}
|
|
print &ui_table_start($text{'jru_add'}, undef, 2);
|
|
print &ui_table_row($text{'jru_type'}, &ui_select("type", $cols[0], \@opt_jru_types, 1, 0), 2);
|
|
print &ui_table_row($text{'jru_name'}, &ui_textbox("name", $cols[1], 40), 2);
|
|
print &ui_table_row($text{'jru_url'}, &ui_textbox("url", $cols[2], 40), 2);
|
|
print &ui_table_row($text{'jru_username'}, &ui_textbox("username", $cols[3], 40), 2);
|
|
print &ui_table_row($text{'jru_password'}, &ui_textbox("password", $cols[4], 40), 2);
|
|
print &ui_table_end();
|
|
if($in{'dsname'}){
|
|
print &ui_form_end([ [ "but_update", $text{'jru_update'} ] ]);
|
|
}else{
|
|
print &ui_form_end([ [ "but_add", $text{'jru_addok'} ] ]);
|
|
}
|
|
print &ui_tabs_end_tab();
|
|
#End Add tab
|
|
|
|
#remove tab
|
|
print &ui_tabs_start_tab("mode", "remove");
|
|
print "$text{'jru_desc2'}<p>\n";
|
|
|
|
print &ui_form_start("edit_datasource.cgi", "post");
|
|
print &ui_hidden("post_flag", 2);
|
|
print &ui_table_start($text{'jru_remove'}, undef, 2);
|
|
print &ui_table_row($text{'jru_datasource'}, &ui_select("datasource", undef, \@opt_datasources, 1, 0), 2);
|
|
print &ui_table_end();
|
|
print &ui_form_end([ [ "", $text{'jru_rmok'} ] ]);
|
|
print &ui_tabs_end_tab();
|
|
#End remove tab
|
|
|
|
#list tab
|
|
print &ui_tabs_start_tab("mode", "list");
|
|
print "$text{'jru_desc3'}<p>\n";
|
|
|
|
local @tds = ( "width=5" );
|
|
print &ui_columns_start([ 'Datasource', 'Type', 'Name', 'URL', 'Username', 'Password' ], 100, 0, \@tds);
|
|
foreach my $ds_name (sort keys %datasources){
|
|
local %ds_entries = %{$datasources{$ds_name}};
|
|
|
|
my @cols = ($ds_name);
|
|
$cols[0] = '<a href="/jri_publisher/edit_datasource.cgi?mode=add&dsname='.&urlize($ds_name).'">'.$ds_name."</a>";
|
|
foreach my $key (@ds_keys){
|
|
push(@cols, $ds_entries{$key});
|
|
}
|
|
print &ui_columns_row(\@cols, \@tds);
|
|
}
|
|
print &ui_columns_end();
|
|
|
|
print &ui_tabs_end_tab();
|
|
#End list tab
|
|
|
|
print &ui_tabs_end(1);
|
|
&ui_print_footer("", $text{'index_return'});
|