#!/usr/bin/perl
#
# Author: Peter Keel <killer@discordia.ch>
# Generates a .htpasswd-file for webservers.
#
die "Usage: $0 username passwort\n" unless($ARGV[0]);
$passwort=$ARGV[0]; $username=$ARGV[1];
$pass= crypt("$passwort","$username");
print "$username:$pass\n";