#!perl
# To list down the features that will (will not) be migrated.
# Called by importInfo60.
#
BEGIN {
    @INC = ( '../../perl' );
}
use Cgi;
use BinUtil;
use ES40lnf;

$isNT = -d '\\';
my %pkgList = BinUtil::getPkgList($ENV{'NETSITE_ROOT'});

print "<!-- Start Form -->\n";
# web publishing section
ES40lnf::print_subheader("Document Root");
print "<TABLE CELLPADDING=\"5\">\n";
print "  <TR>\n";
ES40lnf::print_OpenTD();
print "   Please select a document root.\n";
print "   If you do not use the old server's document root, the documents on the\n";
print "   old server will not be visible from the migrated server.\n";
print "   Should you wish to revert back to the old server's document root, you can\n";
print "   always set the primary document root to the old server's document root from\n";
print "   the Content Management tab in the Web Server Administration Server.\n";
print "   <TABLE>\n";
print "     <TR>\n";
print "      <TD VALIGN=\"top\">${ES40lnf::dfltFont}Document Root:</TD>\n";
ES40lnf::print_OpenTD();
print '      <INPUT TYPE="radio" NAME="docroot" VALUE="old" CHECKED>';
print "Use the same document root as the old server<BR>\n";
print '      <INPUT TYPE="radio" NAME="docroot" VALUE="new">';
print "Use the new server's document root\n";
print "      </TD>\n";
print "     <TR>\n";
print "   </TABLE>\n";
print "   </TD>\n  </TR>\n</TABLE>\n";


# webpublishing

        $searchDir = "$cgiVars{'dir'}/$cgiVars{'server'}/search";

        if (-d "$searchDir/collections/web_htm") {

        print "\n<P>\n";
        ES40lnf::print_subheader("Web Publishing");
        print "<TABLE CELLPADDING=\"5\">\n  <TR>\n";
        ES40lnf::print_OpenTD();
        print " WebPub is not supported in 6.1. WebDAV can be used for WebPublishing. Please refer WebDav document for further details. \n";
        print "   <P>\n";
        print "   <TABLE CELLPADDING=\"0\" CELLSPACING=\"0\">\n";
        print "     <TR>\n ";
        ES40lnf::print_CloseTD();
        print "     </TR>\n";
        print "   </TABLE>\n";
        print "   </TD>\n  </TR>\n</TABLE>\n";

        }

  # search collections
  if (-d "$searchDir/collections") {

  opendir(SEARCHDIR, "$searchDir/collections") or
        die "<FONT COLOR=\"red\">[Error]</FONT> Cannot open $searchDir/collections: $!.\n";
        while ($dir = readdir(SEARCHDIR)) {
        next if ($dir =~ /^\.$/ || $dir =~ /^\.\.$/ || $dir =~ /^web_htm$/ ||
                 $dir =~ /^html_doc$/ || $dir =~ /^link_mgr$/);
                if (-d "$searchDir/collections/$dir") {
                         print "\n<P>\n";
                         ES40lnf::print_subheader("Search Collections");
                         print "<TABLE CELLPADDING=\"5\">\n  <TR>\n";
                         ES40lnf::print_OpenTD();
                         print " 6.1 has a new Search Engine (Nova). Hence search migration is not supported. Please refer Search document for details. \n";
                         print "   <TABLE CELLPADDING=\"0\" CELLSPACING=\"0\">\n";
                        print "     <TR>\n";
                        ES40lnf::print_CloseTD();
                       print "     </TR>\n";
                         print "   </TABLE>\n";
                         print "   </TD>\n  </TR>\n</TABLE>\n";

                last;
                }
        }

    }

# Java
        print "\n<P>\n";
        ES40lnf::print_subheader("Java");
        print "<TABLE CELLPADDING=\"5\">\n  <TR>\n";
        ES40lnf::print_OpenTD();
        print " Java is on by default in 6.0/4.1 and off by default in 6.1. If Java is enabled on a server that is not using servlet, JSPs or Java Realm authentication there can be some unnecessary overhead.  For better performance and less use of system resource you can choose not to enable Java.\n<BR>";
        print "   <P>\n";
        print "   <TABLE>\n";
        print "     <TR>\n";
        ES40lnf::print_OpenTD();
        print '      <INPUT TYPE="radio" NAME="enableJava" VALUE="on" CHECKED>';
        print "Yes, Java should be enabled in this new server instance.<BR>\n";
        print '      <INPUT TYPE="radio" NAME="enableJava" VALUE="off">';
        print "No, Java should not be enabled in this new server instance\n";
        print "      </TD>\n";
        print "     <TR>\n";
        print "   </TABLE>\n";
print "   </TD>\n  </TR>\n</TABLE>\n";

print "<!-- End Form -->\n";
