16 lines
503 B
Perl
16 lines
503 B
Perl
#!/usr/bin/perl
|
|
|
|
require './geoserver-lib.pl';
|
|
require './tomcat-lib.pl';
|
|
|
|
if($ENV{'CONTENT_TYPE'} =~ /boundary=(.*)$/) { &ReadParseMime(); }
|
|
else { &ReadParse(); $no_upload = 1; }
|
|
|
|
|
|
my $geo_ver = get_latest_geoserver_ver();
|
|
my $url = &urlize("http://sourceforge.net/projects/geoserver/files/GeoServer/$geo_ver/geoserver-$geo_ver-war.zip");
|
|
|
|
&redirect("./install_war.cgi?source=2&url=$url&return=%2E%2E%2Fgeoserver%2F&returndesc=Geohelm&caller=geoserver");
|
|
|
|
&ui_print_footer("", $text{'index_return'});
|