home *** CD-ROM | disk | FTP | other *** search
/ Internet Magazine 2002 December / INTERNET97.ISO / pc / software / windows / building / scriptworx / n4932.exe / Subdomains.cgi < prev    next >
Encoding:
Text File  |  2000-05-31  |  1.6 KB  |  39 lines
  1. #!C:\Perl\bin\perl.exe
  2.  
  3. #################################################
  4. # Sub-Domain CGI Script Tool            #
  5. # from: http://www.softlite.net            #
  6. #################################################
  7. # Soft Lite MoreDomains Version 2.0a        #
  8. # Copyright ⌐ 1998 Soft Lite Network        #
  9. # All Rights Reserved.                #
  10. #################################################
  11. # By using this file you agree to hold Soft    #
  12. # Lite irresponsible for any consequences that  #
  13. # may ensue by use of this product.        #
  14. # No part of this program may be changed without#
  15. # the prior written consent of Soft Lite    #
  16. #################################################
  17. # Use chmod 755 command on this file to run    #
  18. # It must be placed in your root directory.    #
  19. #################################################
  20. # This file is for Unix servers and must be    #
  21. # using Perl 5.  Rename the file to index.cgi   #
  22. #################################################
  23.  
  24. #################################################
  25. #    USER DEFINED INFORMATION        #
  26. #################################################
  27.  
  28. $mainpage     = "index.htm";
  29.  
  30.  
  31. %domains = (
  32.     'www.softlite.net'        => 'scriptworx/',
  33. );
  34.  
  35. #################################################
  36. #    DO NOT EDIT THE FOLLOWING        #
  37. #################################################
  38.  
  39. $server = lc($ENV{'HTTP_HOST'});if ($ENV{'HTTP_HOST'} =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/){$t='/'}else{if ($server !~ /^www./){$server = 'www.' . $server;}}@domains = keys(%domains);foreach $domain(@domains){if ($domain eq $server){print "Location: http://${server}/$domains{$server}\n\n";$match="yes";last;exit}}unless ($match){print "Location: http://$server/$mainpage\n\n";exit}exit;