stv0g/eyefi-config
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Add firmware fetch perl script

Browse source
This commit is contained in:
Dave Hansen 2010-05-04 10:53:06 -07:00
parent d5ca2350cd
commit 0c45dfb98b
1 changed files with 69 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

69
eyefi-firmware-fetch.pl Normal file
View file

@ -0,0 +1,69 @@
#!/usr/bin/perl
use strict;
use LWP::UserAgent;
use Compress::Raw::Zlib ;
sub cat
{
my $filename = shift;;
my $contents;
my $line;
open FILE, "< $filename";
while ($line = <FILE>) {
$contents .= $line;
}
close FILE;
return $contents;
}
my $ua = LWP::UserAgent->new;
my $xml;
my $ver = $ARGV[0];#'3.0144'; #'2.0400';
my $mac = $ARGV[1];
if ( ! defined $ver) {
die "usage: eyefi-firmware-fetch.pl <FIRMWARE VERSION> [optional MAC]";
}
while (1) {
my $m1 = 0x2d; #rand 0x30;
my $m2 = rand 256;
my $m3 = rand 256;
if (! length($mac)) {
$mac = sprintf '00-18-56-%02x-%02x-%02x', $m1, $m2, $m3;
}
my $url = sprintf 'http://api.eye.fi/api/rest/eyeserver/v1/getCardFirmware?Card=%s&Version=%s', $mac, $ver;
print $url."\n";
my $res = $ua->get($url);
$xml = $res->content();
#rint $xml."\n";
next if $xml =~ /Card not found./;
next if $xml =~ /File not found./;
last;
}
my $filename .= "EYEFIFWU-$ver-$mac.bin";
printf STDERR "got %d bytes of xml\n", length($xml);
#strip the XML off:
$xml =~ s/<\?xml.*<Firmware>//s;
printf STDERR "got %d bytes of xml\n", length($xml);
$xml =~ s/<\/Firmware>.*Response>//s;
printf STDERR "got %d bytes of xml\n", length($xml);
my $base64_encoded = $xml;
printf STDERR "got %d bytes of base64 encoded data\n", length($base64_encoded);
use Email::MIME::Encodings;
my $zlib_encoded = Email::MIME::Encodings::decode(base64 => $base64_encoded);
printf STDERR "got %d bytes of zlib encoded data\n", length($zlib_encoded);
my $status;
my $output;
my $i;
($i, $status) = new Compress::Raw::Zlib::Inflate() ;
$status = $i->inflate($zlib_encoded, $output);
$status = $i->inflateSync($zlib_encoded);
open FILE, "> $filename";
print FILE $output;
close FILE;
printf STDERR "done, wrote %d bytes to '$filename'\n", length($output);