home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 May / PCWorld_1999-05_cd.bin / Komunik / MSIE5 / ieak5cd.exe / signup08.pl < prev    next >
Encoding:
Perl Script  |  1999-02-24  |  3.9 KB  |  116 lines
  1. #!/usr/bin/perl
  2. # Written by Edward C Kubaitis
  3.  
  4.  
  5. # The host URL of the Signup Files
  6. $hostURL="http://myserver/";
  7.  
  8. @pairs = split(/&/, $ENV{'QUERY_STRING'});
  9.     foreach $pair (@pairs) {
  10.        ($name, $value) = split(/=/, $pair);
  11.        # Un-Webify plus signs and %-encoding
  12.        $value =~ tr/+/ /;
  13.           $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  14.           $value =~ s/<!--(.|\n)*-->//g;
  15.           if ($allow_html != 1) {
  16.           $value =~ s/<([^>]|\n)*>//g;
  17.           }
  18.        $FORM{$name} = $value;
  19.     if($FORM{$name} eq ""){$FORM{$name}=" ";}
  20.     }
  21.  
  22. open (FILE, ">C:\\inetpub\\wwwroot\\ieak.ins");
  23.     print FILE "[Entry]\n";
  24.     print FILE "Entry_Name = IEAK Sample\n";
  25.     print FILE "[Phone]\n";
  26.     print FILE "Dial_As_Is = No\n";
  27.     if ($FORM{'POPSELECTION'} == 1){
  28.         print FILE "Phone_Number = 5555555\n";
  29.         print FILE "Area_Code = 800\n";
  30.         print FILE "Country_Code = 1\n";
  31.         print FILE "Country_Id = 1\n";
  32.     }
  33.     if ($FORM{'POPSELECTION'} == 2){
  34.         print FILE "Phone_Number = 5555555\n";
  35.         print FILE "Area_Code = 206\n";
  36.         print FILE "Country_Code = 1\n";
  37.         print FILE "Country_Id = 1\n";
  38.     }
  39.     if ($FORM{'POPSELECTION'} == 3){
  40.         print FILE "Phone_Number = 5555555\n";
  41.         print FILE "Area_Code = 425\n";
  42.         print FILE "Country_Code = 1\n";
  43.         print FILE "Country_Id = 1\n";
  44.     }
  45.     if ($FORM{'POPSELECTION'} == 4){
  46.         print FILE "Phone_Number = 5555555\n";
  47.         print FILE "Area_Code = 800\n";
  48.         print FILE "Country_Code = 1\n";
  49.         print FILE "Country_Id = 1\n";
  50.     }
  51.     if ($FORM{'POPSELECTION'} == 5){
  52.         print FILE "Phone_Number = 5555555\n";
  53.         print FILE "Area_Code = 206\n";
  54.         print FILE "Country_Code = 1\n";
  55.         print FILE "Country_Id = 1\n";
  56.     }
  57.     if ($FORM{'POPSELECTION'} == 6){
  58.         print FILE "Phone_Number = 5555555\n";
  59.         print FILE "Area_Code = 425\n";
  60.         print FILE "Country_Code = 1\n";
  61.         print FILE "Country_Id = 1\n";
  62.     }
  63.     print FILE "[Server]\n";
  64.     print FILE "Type = PPP\n";
  65.     print FILE "SW_Compress = Yes\n";
  66.     print FILE "PW_Encrypt = Yes\n";
  67.     print FILE "Negotiate_TCP/IP = Yes\n";
  68.     print FILE "Disable_LCP = No\n";
  69.     print FILE "[TCP/IP]\n";
  70.     print FILE "Specify_IP_Address = No\n";
  71.     print FILE "Specify_Server_Address = No\n";
  72.     print FILE "IP_Header_Conpress  = Yes\n";
  73.     print FILE "Gateway_On_Remote = Yes\n";
  74.     print FILE "[User]\n";
  75.     print FILE "Name = john.doe\n";
  76.     print FILE "Password = mypassword\n";
  77.     print FILE "Display_Password = Yes\n";
  78.     print FILE "[Internet_Mail]\n";
  79.     print FILE "Email_Name = John Doe\n";
  80.     print FILE "Email_Address = john.doe\@ieaksample.net\n";
  81.     print FILE "POP_Server = mail.ieaksample.net\n";
  82.     print FILE "POP_Server_Port_Number = 110\n";
  83.     print FILE "POP_Logon_Name = john.doe\n";
  84.     print FILE "POP_Logon_Password = mypassword\n";
  85.     print FILE "SMTP_Server = mail.ieaksample.net\n";
  86.     print FILE "SMTP_Server_Port_Number = 25\n";
  87.     print FILE "Install_Mail = 1\n";
  88.     print FILE "[Internet_News]\n";
  89.     print FILE "NNTP_Server = news.ieaksample.net\n";
  90.     print FILE "NNTP_Server_Port_Number = 119\n";
  91.     print FILE "Logon_Required = No\n";
  92.     print FILE "Install_News = 1\n";
  93.     print FILE "[URL]\n";
  94.     print FILE "Help_Page = http://www.ieaksample.net/helpdesk\n";
  95.     print FILE "[REMINDER]\n";
  96.     print FILE "ISP_Name = Acme Internet Services\n";
  97.     print FILE "ISP_Phone = 4255555555\n";
  98.     print FILE "Trial_Days = 14\n";
  99.     print FILE "Signup_Url = http://refserv_2/signup2/signup01.asp\n";
  100.     print FILE "[Favorites]\n";
  101.     print FILE "IEAK Sample \\ IEAK Sample Help Desk.url = http://acme.ieaksample.net/support/helpdesk.asp\n";
  102.     print FILE "IEAK Sample \\ IEAK Sample Home Page.url = http://acme.ieaksample.net/default.asp\n";
  103.     print FILE "[URL]\n";
  104.     print FILE "Home_Page = http://www.ieaksample.net\n";
  105.     print FILE "Search_Page = http://www.ieaksample.net/search\n";
  106.     print FILE "Help_Page = http://www.ieaksample.net/helpdesk\n";
  107.     print FILE "[Branding]\n";
  108.     print FILE "Window_Title = Internet Explorer From Acme Internet Services\n";
  109. close FILE;
  110.  
  111. print "Location: HTTP://myserver/ieak.ins\n";
  112. print "\n\n";
  113.  
  114. exit(0);
  115.  
  116.