CHI::Driver::Ping - Cache data in the Ether.
$< == 0 or exec 'sudo', $0, @ARGV; # sending ICMPs requires root priv
system 'sysctl', '-w', 'net.ipv4.icmp_ratelimit=100000';
my $cache = CHI->new( driver => 'Ping', ip => 188.8.131.52 ); # google IP
Tap into the Ether. Optimize for CPU or storage? Fuck that.
If you thought the Cloud was awesome, just wait until you try storing your data in the Ether.
Inspired by Delay Line Memory, http://en.wikipedia.org/wiki/Delay_line_memory, this modules stores data by transmitting it through a medium known to have a delay and waiting for it to come back again, whereupon it both returns it and retransmits it out again.
It seems rather pointless and silly to bother with spinning metal oxide covered platters or billions of tiny capacitors when data can be stored in the air between the Earth and sattelites, in ordinary copper wire, and in easy to extrude lengths of glass fiber.
Who to send all of the ICMP ECHOPINGs to.
Not currently used (XXX).
CIDR block of hosts to use, or a list, or something. Even better, scan the network for hosts that are up and build this dynamically. For extra points, find hosts with a lot of hops to them.
Initial; github dev version. Requires root privilege.
CHI::Driver::Ping by Scott Walters (firstname.lastname@example.org) with suggestions from Brock Wilcox (email@example.com).
Uses code stolen from Net::Ping by firstname.lastname@example.org (Rob Brown), email@example.com (Colin McMillen), firstname.lastname@example.org (Scott Bronson), email@example.com (Andreas Karrer), firstname.lastname@example.org (Paul Marquess), and email@example.com (Russell Mosemann). These folks shall remain blameless for my actions.
Copyright (c) Scott Walters (scrottie) 2011
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
2 POD Errors
The following errors were encountered while parsing the POD:
'=item' outside of any '=over'
You forgot a '=back' before '=head1'
To install CHI::Driver::Ping, copy and paste the appropriate command in to your terminal.
perl -MCPAN -e shell
For more information on module installation, please visit the detailed CPAN module installation guide.