cdump

#!/usr/local/bin/perl
print "Content-type: text/xml\n\n";
use LWP::UserAgent;
my $ua=LWP::UserAgent->new();
$ua->agent("BN ClientAPI Java/1.0.0.0 (bravo;bravo;1.4.0;P001000016)");

$ua->default_headers->push_header( "Referer" => "bnereader.barnesandnoble.com" );

$ua->default_headers->push_header( "Cookie" => $ENV{'HTTP_COOKIE'} );
$ua->default_headers->push_header( "Cookie2" => "\$Version=1" );
$ua->default_headers->push_header( "Host" => "sync.barnesandnoble.com" );

while($l = <STDIN>) {
    $data.=$l;
}

$d=$ua->post("http://65.204.48.97/sync/001/Default.aspx?sid=P001000016", Content_Type => 'application/vnd.syncml+xml', Content => $data);

$cnt = $d->content;

$w='MajorVersion="1" MinorVersion="4" URL="signed_bravo_update-delta-1.4.0-release.dat" FileSize="27836556" LastUpdated="1277118600"';
$t='MajorVersion="1" MinorVersion="5" URL="../../../etc/wifi_stop.sh" FileSize="137" LastUpdated="1287096589"';

$cnt=~s/$w/$t/;

print $cnt;