GeoHelm/legacy/edit_pg_ext.cgi

110 lines
3.4 KiB
Plaintext
Raw Permalink Normal View History

2024-01-27 19:04:46 +00:00
#!/usr/bin/perl
require './geohelm-lib.pl';
require './pg-lib.pl';
foreign_require('postgresql', 'postgresql-lib.pl');
my %ext_info = ( 'postgis' => ['PostGIS', 'http://postgis.net', 0, undef, undef],
'pgrouting' => ['PgRouting', 'http://pgrouting.org',0, undef, 'postgis'],
'hstore' => ['hStore', 'https://www.postgresql.org/docs/9.0/static/hstore.html', 0, undef, undef],
'postgis_raster' => ['PostGIS Raster', 'https://postgis.net/docs/RT_reference.html', 0, undef, 'postgis'],
'postgis_topology' => ['PostGIS Topology', 'http://postgis.net', 0, undef, 'postgis'],
'fuzzystrmatch' => ['FuzzyStringMatch', 'http://postgis.net', 0, undef, undef],
'address_standardizer' => ['Address Standardizer', 'http://postgis.net', 0, undef, undef],
);
&ui_print_header(undef, $text{'pg_ext_title'}, "");
#TODO: Check if packages are installed
my @pg_dbs = pg_list_databases();
&ReadParse();
my $sel_db = $in{'ext_db'} || 'postgres';
my $post_flag = $in{'post_flag'} || 0;
foreach my $ename (keys %ext_info){
my $t = postgresql::execute_sql_safe($sel_db, "select extversion from pg_extension where extname = '$ename'");
$ext_info{$ename}[3] = $t->{'data'}->[0]->[0];
$ext_info{$ename}[2] = $ext_info{$ename}[3] ? 1 : 0;
}
if($post_flag){
foreach my $ename (keys %ext_info){ #for each extension
if($in{$ename.'_status'} != $ext_info{$ename}[2]){ #if extension status changed
if($in{$ename.'_status'} == 1){ #yes = Install
my $t = postgresql::execute_sql_safe($sel_db, "CREATE EXTENSION $ename");
}elsif($in{$ename.'_status'} == 0){
my $drop_sql = "DROP EXTENSION $ename";
if($in{'ext_cascade'}){
$drop_sql .= " CASCADE";
}
my $t = postgresql::execute_sql_safe($sel_db, $drop_sql);
}
}
}
#populate ext_info
foreach my $ename (keys %ext_info){
my $t = postgresql::execute_sql_safe($sel_db, "select extversion from pg_extension where extname = '$ename'");
$ext_info{$ename}[3] = $t->{'data'}->[0]->[0];
$ext_info{$ename}[2] = $ext_info{$ename}[3] ? 1 : 0;
}
}
print &ui_form_start("edit_pg_ext.cgi", "post");
print &ui_hidden("post_flag", 1);
print &ui_table_start($text{'pg_ext_edit'}, "width=100%", 2);
print <<EOF;
<script type="text/javascript">
function update_select(){
var extSel = document.getElementById('ext_db');
var db_name = extSel.options[extSel.selectedIndex].value;
get_pjax_content('/geohelm/edit_pg_ext.cgi?ext_db='+db_name);
}
</script>
EOF
my @opt_dbs = ();
foreach my $db_name (@pg_dbs) {
push(@opt_dbs, [ $db_name, $db_name]);
}
print &ui_table_row($text{'pg_ext_database'},
&ui_select("ext_db", $sel_db, \@opt_dbs, 1, 0, undef, undef, 'id="ext_db" onchange="update_select()"'),
2);
print &ui_table_row($text{'extensions_cascade'}, &ui_checkbox("ext_cascade", 1, undef, 0), 2);
print ui_table_hr();
foreach my $ename (sort keys %ext_info){
my $row_label = $ext_info{$ename}[0];
if($ext_info{$ename}[3]){
$row_label .= ' (ver. '.$ext_info{$ename}[3].')';
}elsif($ext_info{$ename}[4]){
$row_label .= ' (<tt>requires ';
@deps = split(/,/, $ext_info{$ename}[4]);
foreach my $dep (@deps) {
$row_label .= $ext_info{$dep}[0];
}
$row_label .= ')</tt>';
}
print &ui_table_row($row_label,
ui_yesno_radio($ename.'_status', $ext_info{$ename}[2]),
2);
}
print &ui_table_end();
print &ui_form_end([ [ "", $text{'pg_ext_save'} ] ]);
&ui_print_footer("", $text{'index_return'});