home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / tsw / TSW_3.4.0.exe / Apache2 / admin / httpd.ssl.cgi < prev    next >
Encoding:
Text File  |  2004-03-28  |  7.8 KB  |  142 lines
  1. #!perl/bin/perl.exe
  2.  
  3. print "Content-type: text/html\n\n";
  4.  
  5. require "../inc/config.inc.cgi";
  6. require "../lang/$lang/conf.cgi";
  7.  
  8. $FORM{'act'} = '';
  9.  
  10. &parseform();
  11.  
  12. if ($FORM{'act'}eq'-- Ok --'){
  13. print "<link rel=stylesheet href=../css/style.css><title>$httpdssltitle</title>";
  14. &action;
  15. }else{
  16. &entry;
  17. }
  18. exit;
  19.  
  20.  
  21. sub parseform() {
  22. if($ENV{'REQUEST_METHOD'} eq 'GET'){
  23. $buffer=$ENV{'QUERY_STRING'};
  24. }elsif($ENV{'REQUEST_METHOD'} eq 'POST'){
  25. read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});}
  26. @pairs = split(/&/, $buffer);
  27. foreach $pair (@pairs) {
  28. ($name, $value) = split(/=/, $pair);
  29. $value =~ tr/+/ /;
  30. $value =~s/%([a-fA-F0-9][a-fA-F0-9])/pack("c",hex($1))/eg;
  31. $FORM{$name} = $value;}
  32. }
  33.  
  34.  
  35. sub entry {
  36.  
  37. open (CONF,"< $sslconf") or print "<b>$sslconf</b> kann nicht ge÷ffnet werden<br>";
  38. @data=<CONF>;
  39. foreach $d (@data){
  40.     if ($d =~ m~ServerName (.*)~g) {$servername = $1;}
  41.     if ($d =~ m~Listen (.*)~g) {$listen = $1;}
  42.     if ($d =~ m~ServerAdmin (.*)~g) {$serveradmin = $1;}
  43.     #if ($d =~ m~DocumentRoot (.*)~g) {$documentroot = $1;}
  44.     if ($d =~ m~SSLCertificateFile (.*)~g) {$sslcertificatefile = $1;}
  45.     if ($d =~ m~SSLCertificateKeyFile (.*)~g) {$sslcertificatekeyfile = $1;}
  46.     if ($d =~ m~ErrorLog (.*)~g) {$errorlog = $1;}
  47.     if ($d =~ m~TransferLog (.*)~g) {$transferlog = $1;}
  48. }
  49. close (CONF) or die "Died while closing $sslconf with error( $! )";
  50.  
  51.  
  52. print "<link rel=stylesheet href=../css/style.css>
  53. <title>$httpdssltitle</title><body class=\"bodymain\"><center>
  54. <p class=manipheadtitle>$httpdssltitle: $httpdsslcnf</p>
  55. <span class=tdinfored>$infohead</span><br>";
  56.  
  57. print "<form name=form1 action=$ENV{SCRIPT_NAME} method=post><br>
  58.  
  59. <!-- PAGE 1: -->
  60. <!-- settings for *inputable* ssl-directives -->
  61. <table width=\"75%\" align=\"center\" cellpadding=\"5\" cellspacing=\"0\" class=\"maniptab\">
  62. <tr><td class=\"maniptitle\"><img src=\"../gfx/fwd.png\" width=\"12\" height=\"11\" border=\"0\" alt=\"\"> $sr_name<br><span class=\"maniptext\">$descr_sr</span></td></tr>
  63. <tr><td><input class=\"manipinput\" type=text size=\"75\" maxlength=\"100\" name=servername value=$servername></input></td></tr>
  64. <tr><td class=\"maniptitle\"><img src=\"../gfx/fwd.png\" width=\"12\" height=\"11\" border=\"0\" alt=\"\"> $lst_to<br><span class=\"maniptext\">$descr_lst2</span></td></tr>
  65. <tr><td><input class=\"manipinput\" type=text size=\"75\" maxlength=\"100\" name=listen value=$listen></input></td></tr>
  66. <tr><td class=\"maniptitle\"><img src=\"../gfx/fwd.png\" width=\"12\" height=\"11\" border=\"0\" alt=\"\"> $sr_adm<br><span class=\"maniptext\">$descr_sr_adm</span></td></tr>
  67. <tr><td><input class=\"manipinput\" type=text size=\"75\" maxlength=\"100\" name=serveradmin value=$serveradmin></input></td></tr>
  68. <tr><td class=\"maniptitle\"><img src=\"../gfx/fwd.png\" width=\"12\" height=\"11\" border=\"0\" alt=\"\"> $ssl_crtf<br><span class=\"maniptext\">$descr_ssl_crtf</span></td></tr>
  69. <tr><td><input class=\"manipinput\" type=text size=\"75\" maxlength=\"100\" name=sslcertificatefile value=$sslcertificatefile></input></td></tr>
  70. <tr><td class=\"maniptitle\"><img src=\"../gfx/fwd.png\" width=\"12\" height=\"11\" border=\"0\" alt=\"\"> $ssl_keyf<br><span class=\"maniptext\">$descr_ssl_keyf</span></td></tr>
  71. <tr><td><input class=\"manipinput\" type=text size=\"75\" maxlength=\"100\" name=sslcertificatekeyfile value=$sslcertificatekeyfile></input></td></tr>
  72. <tr><td class=\"maniptitle\"><img src=\"../gfx/fwd.png\" width=\"12\" height=\"11\" border=\"0\" alt=\"\"> $err_log<br><span class=\"maniptext\">$descr_err_log</span></td></tr>
  73. <tr><td><input class=\"manipinput\" type=text size=\"75\" maxlength=\"100\" name=errorlog value=$errorlog></input></td></tr>
  74. <tr><td class=\"maniptitle\"><img src=\"../gfx/fwd.png\" width=\"12\" height=\"11\" border=\"0\" alt=\"\"> $trans_log<br><span class=\"maniptext\">$descr_trans_log</span></td></tr>
  75. <tr><td><input class=\"manipinput\" type=text size=\"75\" maxlength=\"100\" name=transferlog value=$transferlog></input></td></tr>
  76. </table><br><br><input class=submit type=submit name=act value=\"-- Ok --\"></form></center>";
  77. }
  78.  
  79.  
  80. sub action {
  81.  
  82. open (CONF,"< $sslconf") or print "$error <b>$sslconf</b> $cant_be_op<br>";
  83. @data=<CONF>;
  84. foreach $d (@data){
  85.     if ($d =~ m~ServerName (.*)~g) {$servername = $1;}
  86.     if ($d =~ m~Listen (.*)~g) {$listen = $1;}
  87.     if ($d =~ m~ServerAdmin (.*)~g) {$serveradmin = $1;}
  88.     #if ($d =~ m~DocumentRoot (.*)~g) {$documentroot = $1;}
  89.     if ($d =~ m~SSLCertificateFile (.*)~g) {$sslcertificatefile = $1;}
  90.     if ($d =~ m~SSLCertificateKeyFile (.*)~g) {$sslcertificatekeyfile = $1;}
  91.     if ($d =~ m~ErrorLog (.*)~g) {$errorlog = $1;}
  92.     if ($d =~ m~TransferLog (.*)~g) {$transferlog = $1;}
  93.     print CONF $d;
  94. }
  95. close (CONF) or die "$died_wc $sslconf $with_error( $! )";
  96.  
  97. $servername1 = $FORM{'servername'};
  98. $listen1 = $FORM{'listen'};
  99. $serveradmin1 = $FORM{'serveradmin'};
  100. #$documentroot1 = $FORM{'documentroot'};
  101. $sslcertificatefile1 = $FORM{'sslcertificatefile'};
  102. $sslcertificatekeyfile1 = $FORM{'sslcertificatekeyfile'};
  103. $errorlog1 = $FORM{'errorlog'};
  104. $transferlog1 = $FORM{'transferlog'};
  105.  
  106. open (CONF,"+< $sslconf") or print "<b>$sslconf</b> $cant_be_op<br>";
  107. @data=<CONF>;
  108. truncate (CONF,0) or die "$died_wt $sslconf $with_error( $! )";
  109. close (CONF) or die "$died_wc $sslconf $with_error( $! )";
  110. open (CONF,"+< $sslconf") or print "<b>$sslconf</b> $cant_be_op<br>";
  111.  
  112. foreach $d (@data){
  113.     $d =~ s~ServerName $servername~ServerName $servername1~g;
  114.     $d =~ s~Listen $listen~Listen $listen1~g;
  115.     $d =~ s~ServerAdmin $serveradmin~ServerAdmin $serveradmin1~g;
  116.     #$d =~ s~DocumentRoot $documentroot~DocumentRoot $documentroot1~g;
  117.     $d =~ s~SSLCertificateFile $sslcertificatefile~SSLCertificateFile $sslcertificatefile1~g;
  118.     $d =~ s~SSLCertificateKeyFile $sslcertificatekeyfile~SSLCertificateKeyFile $sslcertificatekeyfile1~g;
  119.     $d =~ s~ErrorLog $errorlog~ErrorLog $errorlog1~g;
  120.     $d =~ s~TransferLog $transferlog~TransferLog $transferlog1~g;
  121.     print CONF $d;
  122. }
  123. close (CONF) or die "$died_wc $sslconf $with_error( $! )";
  124.  
  125. print "<!-- PAGE 2: -->";
  126. print "<center><p class=manipheadtitle>$after_restart</p>";
  127. print "<table width=\"75%\" align=\"center\" cellpadding=\"5\" cellspacing=\"0\" class=\"maniptab\">
  128. <tr><td class=\"tdinfo\">$sol_srpo<br><input class=\"manipinput\" type=text size=\"75\" maxlength=\"100\" name=servername value=$servername1></input></td></tr>
  129. <tr><td class=\"tdinfo\">$sol_lst<br><input class=\"manipinput\" type=text size=\"75\" maxlength=\"100\" name=listen value=$listen1></input></td></tr>
  130. <tr><td class=\"tdinfo\">$sol_sradm<br><input class=\"manipinput\" type=text size=\"75\" maxlength=\"100\" name=serveradmin value=$serveradmin1></input></td></tr>
  131. <tr><td class=\"tdinfo\">$sol_crtf<br><input class=\"manipinput\" type=text size=\"75\" maxlength=\"100\" name=sslcertificatefile value=$sslcertificatefile1></input></td></tr>
  132. <tr><td class=\"tdinfo\">$sol_keyf<br><input class=\"manipinput\" type=text size=\"75\" maxlength=\"100\" name=sslcertificatekeyfile value=$sslcertificatekeyfile1></input></td></tr>
  133. <tr><td class=\"tdinfo\">$sol_ssllog<br><input class=\"manipinput\" type=text size=\"75\" maxlength=\"100\" name=errorlog value=$errorlog1></input></td></tr>
  134. <tr><td class=\"tdinfo\">$sol_translog<br><input class=\"manipinput\" type=text size=\"75\" maxlength=\"100\" name=transferlog value=$transferlog1></input></td></tr></table>";
  135.  
  136. print "<br><table width=\"75%\" align=\"center\" cellpadding=\"5\" cellspacing=\"0\" class=\"maniptab\" bgcolor=\"#F5F5F5\">";
  137. print "<tr><td class=\"maniptext\"><div align=\"justify\"><b>$httpdsslcnf</b> $was_edt_succ</div></td></tr>";
  138. print "<tr><td><img src=\"../gfx/fwd.png\" width=\"12\" height=\"11\" border=\"0\" alt=\"\"> <a href=manipulation.php target=_self>$click_stst</a></td></tr>";
  139. print "<tr><td><img src=\"../gfx/fwd.png\" width=\"12\" height=\"11\" border=\"0\" alt=\"\"> <a href=javascript:history.go(-1)>$back</a></td></tr></table>";
  140. }
  141.  
  142. exit;