zeroclickinfo-goodies/lib/DDG/Goodie/GenerateMAC.pm

30 lines
909 B
Perl
Raw Normal View History

package DDG::Goodie::GenerateMAC;
#generates a random network MAC address
use DDG::Goodie;
triggers startend => "generate mac addr",
"generate mac address",
"random mac addr",
"random mac address",;
zci answer_type => "MAC Address";
zci is_cached => 0;
primary_example_queries 'please generate mac address';
description 'generates a MAC address';
name "GenerateMAC";
2013-12-09 16:10:06 -08:00
attribution github => [ 'https://github.com/UnGround', 'Charlie Belmer' ],
web => ['http://www.charliebelmer.com','Charlie Belmer'];
handle remainder => sub {
my $address = join(':', map {sprintf '%0.2X', rand(255)}(1..6));
my $more_info = qq(More at <a href='http://coffer.com/mac_find/'>coffer.com</a>);
my $text_response = "Here's a random MAC address: $address";
my $html_response = "<i>Here's a random MAC address: </i>$address <br /> $more_info";
return $text_response, html => $html_response;
};
1;