- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
#!/etc/Tivoli/bin/perl
##############################################################
# Name: Default.cgi
#
# Description: Generates translated Default HTML page
# according to browser's language
# TMF 4.1
# Licensed Materials- Property of IBM
# (C) Copyright IBM Corp. 2000. All Rights Reserved
#
# US Government Users Restricted Rights- Use, duplication,
# or disclosure restricted by GSA ADP Schedule Contract with
# IBM Corp.
##############################################################
# wupddefhtml will bind all messages contained in default page
# accordingly ( LANG is set to the browser's locale )
$defaultPage=`wupddefhtml -out`;
# all links in the default page are absolute or relative to root
# so we need to fix them because we have changed location
$defaultPage =~ s|href=|href=../|g;
$defaultPage =~ s|//|/|g;
print("HTTP/1.0 200 OK
Contents-Type: text/html
");
print "$defaultPage";