Skip to content

Instantly share code, notes, and snippets.

@nperez
Created March 10, 2010 16:48
Show Gist options
  • Save nperez/328057 to your computer and use it in GitHub Desktop.
Save nperez/328057 to your computer and use it in GitHub Desktop.
use Web::Simple 'Hacks';
{
package Hacks;
use IO::All;
use Digest::MD5('md5_hex');
dispatch
{
sub (GET + /verify/Robokill/*/*/)
{
my ($self, $email, $salt) = @_;
return [ 200, [ 'Content-type', 'text/html' ], [ md5_hex($email, $salt); ] ];
}
};
}
Hasks->run_if_script();
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment