psyc-mirrors/psyced
1
0
Fork 0
mirror of git://git.psyced.org/git/psyced synced 2024-08-15 03:25:10 +00:00
Code Issues 2 Releases Wiki Activity

let the past begone in cvs land. welcome to igit igit!

Browse source
This commit is contained in:
PSYC 2009-01-26 20:21:29 +01:00
commit 4e601cf1c7
509 changed files with 77963 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

19
run/md5.pl Normal file
View file

@ -0,0 +1,19 @@
#!/usr/bin/perl
#
# these files demonstrate how to use external pipe processes
# (sort of like cgi) with LDMUD. but by now LDMUD knows how
# to do MD5 and SHA1 itself, so they are not being used.
#
use Digest::MD5 qw(md5 md5_hex);
$| = 1;
$md5 = Digest::MD5->new;
while(defined ($line = <STDIN>)) {
chomp $line;
$md5->add($line);
print STDOUT $md5->hexdigest;
}
1;

19
run/sha1.pl Normal file
View file

@ -0,0 +1,19 @@
#!/usr/bin/perl
#
# these files demonstrate how to use external pipe processes
# (sort of like cgi) with LDMUD. but by now LDMUD knows how
# to do MD5 and SHA1 itself, so they are not being used.
#
use Digest::SHA1 qw(sha1 sha1_hex);
$| = 1;
$sha1 = Digest::SHA1->new;
while(defined ($line = <STDIN>)) {
chomp $line;
$sha1->add($line);
print STDOUT $sha1->hexdigest;
}
1;