Skip to content

Instantly share code, notes, and snippets.

@nperez
Created March 10, 2010 17:00
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save nperez/328080 to your computer and use it in GitHub Desktop.
Save nperez/328080 to your computer and use it in GitHub Desktop.
use Web::Simple 'Hacks';
{
package Hacks;
use IO::All;
dispatch
{
sub (GET + /verify/Robokill/*/*/)
{
my ($self, $email, $salt) = @_;
return [ 200, [ 'Content-type', 'text/html' ], [ "Valid $salt" ] ];
}
};
}
Hacks->run_if_script();
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment