ctanis/rlist.pl

## rlist.pl
#! /usr/bin/perl -w

# Craig Tanis
# craig-tanis@utc.edu
# http://weblar.org
#
# http://github.com/ctanis/rlist
# Wed Feb  8 09:04:06 2012

use strict;
use Carp;
use XML::Simple;
use File::Temp;

# handy for kludging your way through XML!
#use Data::Dumper;


sub get_reading_list() {
  my $xml_parser = XML::Simple->new();

  ## dump the bookmarks plist as xml
  my $xml = `/usr/libexec/PlistBuddy ~/Library/Safari/Bookmarks.plist -x -c print`;

  my $bmarks = $xml_parser->XMLin($xml)
    or carp;


  ## this is obviously a hacky way to get at the desired data (strings
  ## and dicts all over the place) but it seems to work
  my @bmark_groups = @{ $bmarks->{'dict'}->{'array'}->{'dict'} };
  my @rlist=();

  for my $bg (@bmark_groups) {
    # pick the group with the right label
    next unless grep /com\.apple\.ReadingList/, @{ $bg->{'string'} };

#    print Dumper($bg);

    # extract the url and link text from each
    my $itemref = $bg->{'array'}->{'dict'};
    next unless $itemref;


    if (ref($itemref) ne "ARRAY")
      {
	$itemref = [ $itemref ];
      }

#    for my $item (@{ $bg->{'array'}->{'dict'} }) {
    for my $item (@{ $itemref }) {
      my $url = ${ $item->{'string'} }[0];
      my $text;

      for my $choice (@{ $item->{'dict'}}) {
	if ($choice->{'key'} eq 'title') {
	  $text = $choice->{'string'};
	  last;
	}
      }

      #      print "**$text** -> \"$url\"\n";
      push @rlist, {'url' => $url, 'text' => $text};
    }
  }

  return @rlist;
}


#print Dumper(@rlist);

## print contents to a temporary html file
my $fh = File::Temp->new( UNLINK=>0, SUFFIX => '.html' );

# if i wanted to have perl clean up the tmp file for me...
# my $fh = File::Temp->new( SUFFIX => '.html' );

print $fh '<html><title>Safari Reading List</title><body>';

my @reading_list_items=get_reading_list();

if (@reading_list_items) {
  print $fh '<ol>';
  for my $b (get_reading_list()) {
    print $fh '<li><a href="', $b->{'url'}, '">', $b->{'text'}, '</a></li>', "\n";
  }
  print $fh '</ol>'
} else {
  print $fh 'Reading List Empty'
}

print $fh '</body>';

$fh->close();


# open in system-configured browser
system("open $fh");

# # sleep for a little bit, so that tmp file can get deleted
# sleep 3;
	#! /usr/bin/perl -w

	# Craig Tanis
	# craig-tanis@utc.edu
	# http://weblar.org
	#
	# http://github.com/ctanis/rlist
	# Wed Feb 8 09:04:06 2012

	use strict;
	use Carp;
	use XML::Simple;
	use File::Temp;

	# handy for kludging your way through XML!
	#use Data::Dumper;


	sub get_reading_list() {
	my $xml_parser = XML::Simple->new();

	## dump the bookmarks plist as xml
	my $xml = `/usr/libexec/PlistBuddy ~/Library/Safari/Bookmarks.plist -x -c print`;

	my $bmarks = $xml_parser->XMLin($xml)
	or carp;


	## this is obviously a hacky way to get at the desired data (strings
	## and dicts all over the place) but it seems to work
	my @bmark_groups = @{ $bmarks->{'dict'}->{'array'}->{'dict'} };
	my @rlist=();

	for my $bg (@bmark_groups) {
	# pick the group with the right label
	next unless grep /com\.apple\.ReadingList/, @{ $bg->{'string'} };

	# print Dumper($bg);

	# extract the url and link text from each
	my $itemref = $bg->{'array'}->{'dict'};
	next unless $itemref;



	if (ref($itemref) ne "ARRAY")
	{
	$itemref = [ $itemref ];
	}

	# for my $item (@{ $bg->{'array'}->{'dict'} }) {
	for my $item (@{ $itemref }) {
	my $url = ${ $item->{'string'} }[0];
	my $text;

	for my $choice (@{ $item->{'dict'}}) {
	if ($choice->{'key'} eq 'title') {
	$text = $choice->{'string'};
	last;
	}
	}

	# print "$text -> \"$url\"\n";
	push @rlist, {'url' => $url, 'text' => $text};
	}
	}

	return @rlist;
	}


	#print Dumper(@rlist);

	## print contents to a temporary html file
	my $fh = File::Temp->new( UNLINK=>0, SUFFIX => '.html' );

	# if i wanted to have perl clean up the tmp file for me...
	# my $fh = File::Temp->new( SUFFIX => '.html' );

	print $fh '<html><title>Safari Reading List</title><body>';

	my @reading_list_items=get_reading_list();

	if (@reading_list_items) {
	print $fh '<ol>';
	for my $b (get_reading_list()) {
	print $fh '<li><a href="', $b->{'url'}, '">', $b->{'text'}, '</a></li>', "\n";
	}
	print $fh '</ol>'
	} else {
	print $fh 'Reading List Empty'
	}

	print $fh '</body>';

	$fh->close();



	# open in system-configured browser
	system("open $fh");

	# # sleep for a little bit, so that tmp file can get deleted
	# sleep 3;