#!/usr/bin/env perl

use Net::Backpack;

use warnings;
use strict;

my $user = 'username';
my $token = 'blahblah';

my $bp = Net::Backpack->new( token => $token, user => $user );

my $pages = $bp->list_all_pages( xml => 1 );

unlink </Users/me/Backpack/*>;

while( $pages =~ /title="(.*?)" id="(\d+)"/g ) {
	my( $title, $id ) = ($1, $2);
	$title =~ s/://g;
	$title =~ s#/#-#g;

	open FILE, ">/Users/me/Backpack/$title.webloc";
	print FILE <<EOF;
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
        <key>URL</key>
        <string>http://username.backpackit.com/page/$id</string>
</dict>
</plist>
EOF

	close FILE;
}

print "Done.\n";