Mercurial > repo

annotate bin/blessyou @ 7946:8ecffca9813d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<moon__> mkx bin/hfs//erro \'You have discovered an eerie cavern. The air aboe the dark stone floor is alive ith vortices of purple light and dark, boiling clouds. Seemingly bottemless pits mark the surface. "$1" stand below\'
author HackBot
date Sat, 07 May 2016 18:36:18 +0000
parents 4cc6f4753408
children fea38c2307ee
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
5654
4cc6f4753408 <tswett> sed -e \'s_Thanks_Bless you_\' -e \'s_/Th/_/Bl/_\' -e \'s_/T/_/B/_\' < bin/thanks > bin/blessyou
HackBot
parents:
diff changeset
1 #!/usr/bin/perl
4cc6f4753408 <tswett> sed -e \'s_Thanks_Bless you_\' -e \'s_/Th/_/Bl/_\' -e \'s_/T/_/B/_\' < bin/thanks > bin/blessyou
HackBot
parents:
diff changeset
2 $_ = (join " ", @ARGV) || `words`; s/^\s+|\s+$//g; print "Bless you, $_. "; if (/[aeiouyAEIOUY]/) { s/^[^aeiouyAEIOUY]*/Bl/; } else { s/^./B/; } print "$_.";