<html>
-<head>
-<meta http-equiv="refresh" content="0; url=/cgi-bin/koha/mainpage.pl">
-</head>
-<body bgcolor=white>
-<table border=0 width=100% height=100%>
-<tr><td align=center valign=center>
-<img src=/images/kohasplash.jpg>
-</td></tr>
-</table>
+<body>
+<a href="intranet.html">Intranet</a>
+<a href="opac.html">OPAC</a>
</body>
-</html>
+</html>
\ No newline at end of file
--- /dev/null
+<html>
+<head>
+<meta http-equiv="refresh" content="0; url=/cgi-bin/koha/mainpage.pl">
+</head>
+<body bgcolor=white>
+<table border=0 width=100% height=100%>
+<tr><td align=center valign=center>
+<img src=/images/kohasplash.jpg>
+</td></tr>
+</table>
+</body>
+</html>
--- /dev/null
+<html>
+<head>
+<meta http-equiv="refresh" content="0; url=/cgi-bin/koha/opac-main.pl">
+</head>
+<body bgcolor=white>
+<table border=0 width="100%" height="100%">
+<tr><td align=center valign=center>
+<img src=/images/kohasplash.jpg>
+</td></tr>
+</table>
+</body>
+</html>
}
}
-
my $releaseversion='';
my $currentversion='';
# MOVE files to /tmp and build tar.gz
#----------------------------------------------------------
-
-
-
my $rootdir="/tmp/koha-".$releaseversion;
system("rm -rf $rootdir");
mkdir ($rootdir, 0700);
# FIXME: "cp -a" is GNU-ism. It is not portable.
system('cp', '-a', "$rootdir/intranet-cgi/koha-tmpl/opac-tmpl", "$rootdir/opac-html");
system('cp', '-a', "$rootdir/intranet-cgi/koha-tmpl/intranet-tmpl", "$rootdir/intranet-html");
+#copy index files (they are just redirections to main.pl)
+system("cp $rootdir/intranet-cgi/koha-tmpl/opac.html","$rootdir/opac-html/index.html");
+system("cp $rootdir/intranet-cgi/koha-tmpl/intranet.html","$rootdir/intranet-html/index.html");
system('rm', '-rf', "$rootdir/intranet-cgi/koha-tmpl");
# Remove extraneous files from opac-html