Re: [Debian]: Frage an perl-Programmierer
Stephan Rockel wrote:
> 2. Aus den Feldern USername und Password ein ein gueltigen Eintrag ueber
> htpasswd erzeugen
Ich hab schon mal folgendes (rudimentaeres, fuer einen User)
Programmiert:
<HTML><HEAD><TITLE>Passwort</TITLE></HEAD>
<BODY
BGCOLOR="#ffffff" Link="#ff0000" Vlink="#880011" alink="#880011"
text="#000000">
Bitte Passwort eingeben:
<FORM method="GET" action="/cgi-bin/passwort.pl">
<input type=text name="passwd" size=8></td>
<INPUT TYPE="submit" name="neu" VALUE="Ok">
<hr>
</body></html>
------------------------- cgi:
#!/.../perl
print <<EOF;
Content-type: text/html
<HTML><HEAD><TITLE>Rückmeldung</TITLE></HEAD>
<BODY
BGCOLOR="#ffffff" Link="#ff0000" Vlink="#880011" alink="#880011"
text="#000000">
Submitted
</body>
</html>
EOF
split "\&",$ENV{'QUERY_STRING'};
foreach (@_) {
m/^(.*)=(.*)$/;
$f{$1}=$2;
# $f{$1}=~s/%(..)/pack("c",hex($1))/ge; # eventl. Debug infos
# print $_,"<br></body></html>\n"; # dann natuerlich oben
# # </body></html> entfernen
}
open (O,'>/...../htpasswd');
print O "username:",crypt($f{'passwd'}, "aa"),"\n";
--
__________________________________________________________________
Lutz Mueller University of Wuppertal
(mueller@code.uni-wuppertal.de) Computational Design
http://www.code.uni-wuppertal.de Hofaue 35-39
http://wkw.kunst.uni-wuppertal.de/~mueller 42103 Wuppertal, Germany
___________________________________________________________________
------------------------------------------------
Um sich aus der Liste auszutragen schicken Sie
bitte eine E-Mail an majordomo@jfl.de die im Body
"unsubscribe debian-user-de <your_email_address>"
enthaelt.
Bei Problemen bitte eine Mail an: Jan.Otto@jfl.de
------------------------------------------------
Anzahl der eingetragenen Mitglieder: 640
Reply to: