git.rot13.org Git - ILL-Zotero-RT/blob - zotero.pl

   1 #!/usr/bin/perl
   2 use warnings;
   3 use strict;
   4
   5 use LWP::Simple;
   6 use XML::Simple;
   7 use JSON;
   8 use Data::Dump qw(dump);
   9
  10 my $UserID = $ENV{UserID} || die "usage: UserID=1234 key=abcd $0";
  11 my $key    = $ENV{key}    || die "key required";
  12
  13 my $url = "https://api.zotero.org/users/$UserID/items?key=$key&format=atom&content=json&order=dateModified&sort=desc";
  14
  15 my $file = "$UserID.atom";
  16
  17 warn "# $url\n";
  18 if ( mirror( $url => $file ) == RC_NOT_MODIFIED ) {
  19         warn "not modified";
  20 #       exit 0;
  21 }
  22
  23 my $feed = XMLin( $file );
  24
  25 warn "# feed ",dump($feed);
  26