=head1 geoserver-lib.pl Functions for managing Geoserver webapp configuration files. foreign_require("geoserver", "geoserver-lib.pl"); @sites = geoserver::list_geoserver_websites() =cut BEGIN { push(@INC, ".."); }; use warnings; use WebminCore; use File::Copy; sub get_geoserver_version { local %version; my %manifest; my $catalina_home = get_catalina_home(); read_file_cached("$catalina_home/webapps/geoserver/META-INF/MANIFEST.MF", \%manifest, undef, undef, ":"); ($version{'number'} = $manifest{'Implementation-Version'}) =~ s/[\s\r\n]+//g; ($version{'jdk'} = $manifest{'Build-Jdk'}) =~ s/[\s\r\n]+//g; return %version; } sub get_latest_geoserver_ver(){ my $error; my $geo_version = shift; $url = "http://geoserver.org/"; $tmpfile = &transname("page"); &error_setup(&text('install_err3', $url)); &http_download("geoserver.org", 80, "/", $tmpfile, \$error); #Parse Stable Version open(my $fb, '<', $tmpfile) or &webmin_log("open:$!"); while (my $line = <$fb>){ #