[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

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&uuml;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: