use strict;
use warnings;
-use lib '../lib';
+use lib '../../lib/perl';
use UCW::CGI;
use File::Temp;
use POSIX;
print $tmpf $src, "\n";
$tmpf->flush();
my $in = $tmpf->filename;
- open SIM, "./minsk --trace=$trace --cpu-quota=1000 --print-quota=100 <$in |" or die;
+ open SIM, "./minsk --set-password --trace=$trace --cpu-quota=1000 --print-quota=100 <$in |" or die;
while (<SIM>) {
print html_escape($_);
}
print <<EOF ;
<hr>
-<p>Written by <a href='http://mj.ucw.cz/'>Martin Mareš</a>. Version 1.0 (2010-12-27).
+<p>Written by <a href='http://mj.ucw.cz/'>Martin Mareš</a> and Rutger van Bergen. Version 1.1 (2022-04-24).
</body></html>
EOF
-
-# FIXME:
-# - password
-# - utf-8 warning
-# - nice
-# - .htaccess