helma/Root/makekey.hac
stefanp 4a7616d5a0 This commit was generated by cvs2svn to compensate for changes in r2155,
which included commits to RCS files with non-trunk default branches.
2002-03-11 13:49:50 +00:00

10 lines
305 B
Text

if ( checkAddress()==false ) return;
if ( checkAuth()==false ) return;
if ( req.data.value!=null ) {
res.write ( calcMD5(req.data.value) );
} else {
res.write ( '<html><head></head><body><form method=post action=makekey><input type=password name=value><input type=submit></form></body></html>' );
}