#{{PERL-EXEC}}
# BEGIN COPYRIGHT BLOCK
# This Program is free software; you can redistribute it and/or modify it under
# the terms of the GNU General Public License as published by the Free Software
# Foundation; version 2 of the License.
# 
# This Program is distributed in the hope that it will be useful, but WITHOUT
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
# 
# You should have received a copy of the GNU General Public License along with
# this Program; if not, write to the Free Software Foundation, Inc., 59 Temple
# Place, Suite 330, Boston, MA 02111-1307 USA.
# 
# In addition, as a special exception, Red Hat, Inc. gives You the additional
# right to link the code of this Program with code not covered under the GNU
# General Public License ("Non-GPL Code") and to distribute linked combinations
# including the two, subject to the limitations in this paragraph. Non-GPL Code
# permitted under this exception must only link to the code of this Program
# through those well defined interfaces identified in the file named EXCEPTION
# found in the source code files (the "Approved Interfaces"). The files of
# Non-GPL Code may instantiate templates or use macros or inline functions from
# the Approved Interfaces without causing the resulting work to be covered by
# the GNU General Public License. Only Red Hat, Inc. may make changes or
# additions to the list of Approved Interfaces. You must obey the GNU General
# Public License in all respects for all of the Program code and other code used
# in conjunction with the Program except the Non-GPL Code covered by this
# exception. If you modify this file, you may extend this exception to your
# version of the file, but you are not obligated to do so. If you do not wish to
# provide this exception without modification, you must delete this exception
# statement from your version and license this file solely under the GPL without
# exception. 
# 
# 
# Copyright (C) 2001 Sun Microsystems, Inc. Used by permission.
# Copyright (C) 2005 Red Hat, Inc.
# All rights reserved.
# END COPYRIGHT BLOCK

use Getopt::Std;
use File::Copy "cp";
use warnings;
#use strict;

sub usage {
  print (STDERR "Arguments:\n");
  print (STDERR " -i              - install\n");
  print (STDERR " -u              - uninstall\n");
  print (STDERR " -p              - optional dsml port, defaults to 8080\n\n");

  exit 100;
}

# Process the command line arguments
{
    usage() if (!getopts('uip:'));
    
    $DSMLPORT=8080;
    $DSMLPORT=$opt_p if ($opt_p);
    my $SERVERNAME = "{{SERVER-NAME}}";
    my $SERVERROOT = "{{DS-ROOT}}";
    my $PATH="{{SEP}}admin-serv{{SEP}}config{{SEP}}";
    my @FILES= ( "server.xml", "web-apps.xml", "obj.conf", "jvm12.conf" );

    die "-i or -u required" if (!($opt_i || $opt_u));
    die "-i OR -u required" if ($opt_i && $opt_u);    

    if ($opt_i) {
	if (-e "$SERVERROOT{{SEP}}clients{{SEP}}dsmlgw{{SEP}}dsmlgw.cfg" ) {
	    print STDERR "leaving existing dsmlgw.cfg untouched.\n";
	    } else {
	open DSMLCFG, ">$SERVERROOT{{SEP}}clients{{SEP}}dsmlgw{{SEP}}dsmlgw.cfg";
	select DSMLCFG;
	print "\#properties file for the DSMLGW\n\nServerHost=${SERVERNAME}\nServerPort={{SERVER-PORT}}\nBindDN=\nBindPW=\n\n";
	print "MinLoginPool=1\nMaxLoginPool=2\nMinPool=3\nMaxPool=15\n";
	close DSMLCFG;
    }

	open WEB, ">$SERVERROOT{{SEP}}clients{{SEP}}dsmlgw{{SEP}}WEB-INF{{SEP}}web.xml";
	select WEB;
	    print <<EOF;
<?xml version="1.0" encoding="ISO-8859-1"?>

<!DOCTYPE web-app SYSTEM "../web-app_2_3.dtd">

<web-app>
  <display-name>Apache-Axis</display-name>
    
    <listener>
        <listener-class>org.apache.axis.transport.http.AxisHTTPSessionListener</listener-class>
    </listener>
    
  <servlet>
    <servlet-name>AxisServlet</servlet-name>
    <display-name>Apache-Axis Servlet</display-name>
    <servlet-class>
        org.apache.axis.transport.http.AxisServlet
    </servlet-class>
  </servlet>

  <servlet-mapping>
    <servlet-name>AxisServlet</servlet-name>
    <url-pattern>/services/*</url-pattern>
  </servlet-mapping>

    <session-config>
        <!-- Default to 5 minute session timeouts -->
        <session-timeout>5</session-timeout>
    </session-config>

  <mime-mapping>
    <extension>wsdl</extension>
    <mime-type>text/xml</mime-type>
  </mime-mapping>
  

  <mime-mapping>
    <extension>xsd</extension>
    <mime-type>text/xml</mime-type>
  </mime-mapping>

  <welcome-file-list>
    <welcome-file>index.html</welcome-file>
    <welcome-file>index.jsp</welcome-file>
    <welcome-file>index.jws</welcome-file>
  </welcome-file-list>

</web-app>

EOF

	
	close WEB;
    }

    foreach $file (@FILES) {

	if ($opt_u) {
	    # restore from backups
	    print STDOUT "${file}.bak -> ${file}\n";
	    rename("${SERVERROOT}${PATH}${file}.bak","${SERVERROOT}${PATH}${file}");
	}
	if ($opt_i) {
	    # make backups
	    print STDOUT "${file} -> ${file}.bak\n";
	    cp("${SERVERROOT}${PATH}${file}","${SERVERROOT}${PATH}${file}.bak");

	    if ( $file eq "server.xml") {
		open SERVER, "${SERVERROOT}${PATH}${file}" || die("Could not open file!");
		@raw_data=<SERVER>;
		close SERVER;

		$i=0;

		while ($line =  $raw_data[$i++]) {
		    #if ($line =~ /CONNECTIONGROUP.*servername=\"([\w.?]+)\"/ ){
			#$SERVERNAME = $1;
		    #}

		    if ($line =~ /\<\/LS/ ) {
			splice @raw_data, $i++,0, 
			("    <LS id=\"dsml-listener\" ip=\"0.0.0.0\" port=\"${DSMLPORT}\" security=\"off\" acceptorthreads=\"1\" blocking=\"no\">\n",
			 "      <CONNECTIONGROUP id=\"dsml_default\" matchingip=\"default\" servername=\"${SERVERNAME}\" defaultvs=\"dsml-serv\"/></LS>\n" );
			$i+=2;
		    }
		    
		    if ($line =~ /\<\/VSCLASS/ ) {
			splice @raw_data, $i, 0, 
			("    <VSCLASS id=\"dsml\" objectfile=\"obj.conf\" rootobject=\"dsmlgw\" acceptlanguage=\"off\">\n" . 
			 "<VARS nice=\"\" docroot=\"${SERVERROOT}{{SEP}}clients{{SEP}}dsmlgw\" webapps_file=\"web-apps.xml\" webapps_enable=\"on\"   />\n" . 
			 "      <VS id=\"dsml-serv\" state=\"on\" connections=\"dsml_default\" urlhosts=\"${SERVERNAME}\" mime=\"mime1\" aclids=\"acl1\">\n" .
			 "        <USERDB id=\"default\" database=\"default\"/>\n      </VS>\n    </VSCLASS>\n");
			$i++;
		    }
		    
		    
		}
		open SERVER, "> ${SERVERROOT}${PATH}${file}" || die("Could not open file!");
		select SERVER;
		print @raw_data;
		close SERVER;
	    }

	    if ( $file eq "web-apps.xml" ) {
		open WEBAPPS, "> ${SERVERROOT}${PATH}${file}";
		select WEBAPPS;
		print STDERR "adding necessary entry to $file.\n";
		print <<EOF;
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE vs SYSTEM "file:${SERVERROOT}/bin/https/dtds/nes-webapps_6_2.dtd">

<vs>
 <web-app uri="/axis" dir="${SERVERROOT}{{SEP}}clients{{SEP}}dsmlgw" enable="true"/>
</vs>

EOF

                close WEBAPPS;
		
	    }

	    if ( $file eq "obj.conf" ) {
		open OBJ, ">> ${SERVERROOT}${PATH}${file}";
		select OBJ;
		print STDERR "adding necessary entry to $file.\n";
		print <<EOF;
<Object name="dsmlgw">
ObjectType fn=type-by-extension
ObjectType fn=force-type type=text/plain
Service fn="NSServletService" type="magnus-internal/servlet"
Service method=(GET|HEAD|POST) type=*~magnus-internal/* fn=send-file
Error fn="admin-error" reason="server error"
AddLog fn="admin40_flex_log" name="access"
NameTrans fn="NSServletNameTrans" name="servlet"
PathCheck fn=find-pathinfo
PathCheck fn=find-index index-names="index.html,home.html"
Service type="magnus-internal/jsp" fn="NSServletService"
</Object>

EOF

               close OBJ;
	    

	    }

	    if ( $file eq "jvm12.conf" ) {
		if ($^O eq "linux") {
		    # if setting Xbootclasspath, make sure crimson.jar is in it.
		    $fulljvm12 = "${SERVERROOT}${PATH}${file}";
		    $fulljvm12tmp = $fulljvm12 . ".tmp";
		    $crimsonpath = "${SERVERROOT}/bin/https/jar/crimson.jar";
		    $ibmpath = "${SERVERROOT}/bin/base/jre/lib/ibmpkcs.jar";
		    open JVM, "${fulljvm12}";
		    open JVMTMP, "> ${fulljvm12tmp}";
		    for ($line=<JVM>; $line; $line=<JVM>) {
			if ($line =~ /Xbootclasspath/) {
			    if (!($line =~ /${crimsonpath}/)) {
				$line =~ s/Xbootclasspath/Xbootclasspath:${crimsonpath}/;
			    }
			    if (!($line =~ /${ibmpath}/)) {
				$line =~ s/Xbootclasspath/Xbootclasspath:${ibmpath}/;
			    }
			}
			print JVMTMP $line;
		    }
		    close JVMTMP;
		    close JVM;
		    unlink("${fulljvm12}");
		    rename("${fulljvm12tmp}", "${fulljvm12}");
		}
		open JVM, ">>  ${SERVERROOT}${PATH}${file}";
		select JVM;
		print STDERR "adding necessary entry to $file.\n";
		print "jvm.option=-Duser.home=${SERVERROOT}{{SEP}}clients{{SEP}}dsmlgw";
		close JVM;
	    }
	}
    }
}