Come on people, someone's gotta do this for a laugh...
&{"do_".lc(($r->uri()=~/(\w+)\.com\//i))}(); sub AUTOLOAD { return undef; } sub do_google { } sub do_yahoo { } Yeah so I'm bored and ready for home... John
Come on people, someone's gotta do this for a laugh...
&{"do_".lc(($r->uri()=~/(\w+)\.com\//i))}(); sub AUTOLOAD { return undef; } sub do_google { } sub do_yahoo { } Yeah so I'm bored and ready for home... John