debian/0000755000000000000000000000000011525315617007174 5ustar debian/control0000644000000000000000000000154611525314214010575 0ustar Source: liblivejournal-perl Section: perl Priority: optional Build-Depends: debhelper (>= 7.0.50~) Build-Depends-Indep: perl, libwww-perl Maintainer: Debian Perl Group Uploaders: gregor herrmann Standards-Version: 3.9.1 Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/liblivejournal-perl/ Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/liblivejournal-perl/ Package: liblivejournal-perl Architecture: all Depends: ${misc:Depends}, ${perl:Depends}, libwww-perl Description: Perl implementation of the LiveJournal protocol The LiveJournal module implements the LiveJournal protocol. See http://www.livejournal.com/developer/protocol.bml for details. Data is requested from the server through mode lines. Many methods return a hash reference containing key/value pairs returned by the server. debian/copyright0000644000000000000000000000227111525262063011125 0ustar Format-Specification: http://svn.debian.org/wsvn/dep/web/deps/dep5.mdwn?op=file&rev=135 Maintainer: Frank Sheiness Source: http://forbidden.dough.net/~archon/lj/ Name: LiveJournal Files: * Copyright: Frank Sheiness License: Artistic Comment: Under the Berne convention it is assumed that the author is also the copyright holder. Files: debian/* Copyright: 2003, 2004, 2005, Decklin Foster 2011, gregor herrmann License: GPL-1+ or Artistic License: GPL-1+ This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 1, or (at your option) any later version. . On Debian systems, the complete text of version 1 of the GNU General Public License can be found in `/usr/share/common-licenses/GPL-1'. License: Artistic This program is free software; you can redistribute it and/or modify it under the terms of the Artistic License, which comes with Perl. . On Debian systems, the complete text of the Artistic License can be found in `/usr/share/common-licenses/Artistic'. debian/watch0000644000000000000000000000015511525260440010217 0ustar version=3 http://forbidden.dough.net/~archon/lj/ LiveJournal-v?(\d[\d.-]+)\.(?:tar(?:\.gz|\.bz2)?|tgz|zip)$ debian/liblivejournal-perl.docs0000644000000000000000000000000511525261477014026 0ustar TODO debian/patches/0000755000000000000000000000000011525315561010621 5ustar debian/patches/spelling.patch0000644000000000000000000000240011525263414013452 0ustar Description: fix spelling mistakes Origin: vendor Forwarded: no Author: gregor herrmann Last-Update: 2011-02-11 --- a/LiveJournal.pm +++ b/LiveJournal.pm @@ -242,7 +242,7 @@ } $self->friends($hash{'friend'}); } else { - carp ("LiveJournal::Friend->parse() requires an arguement."); + carp ("LiveJournal::Friend->parse() requires an argument."); } } @@ -632,7 +632,7 @@ } } } else { - carp ("LiveJournal::->parse_login() requires an arguement."); + carp ("LiveJournal::->parse_login() requires an argument."); } } @@ -986,7 +986,7 @@ =item get ([ [ FRIENDOF ] [, GROUPS ] ]) -Takes two optional arguements. If C is set to 1, you will also +Takes two optional arguments. If C is set to 1, you will also get back the info from the "friendof" mode. If C is set to 1, you will get the info from the "getfriendgroups" mode. This method returns a hash reference which should be passed to B to be more @@ -995,7 +995,7 @@ =item parse (FRIENDS) -Takes one arguement: the hash reference returned from B. +Takes one argument: the hash reference returned from B. Returns a hash of lists of hashes containing the info (user, name, fg, bg, etc) for each friend such as: debian/patches/date.patch0000644000000000000000000000242611525263153012562 0ustar Description: Added a 'date' key, based on an idea from Joshua Kwan Origin: vendor Bug-Debian: http://bugs.debian.org/251001 Forwarded: no Author: Decklin Foster Reviewed-by: gregor herrmann Last-Update: 2011-02-11 --- a/LiveJournal.pm +++ b/LiveJournal.pm @@ -309,10 +309,6 @@ substr($args->{subject}, 254) = ''; } - while (my ($k, $v) = each (%$args)) { - $content .= "&" . $k . "=" . $v; - } - my (undef, $min, $hour, $day, $mon, $year) = localtime(time); $year += 1900; @@ -320,11 +316,15 @@ $day = sprintf("%02d", $day); $min = sprintf("%02d", $min); - $content .= "&year=$year"; - $content .= "&mon=$mon"; - $content .= "&day=$day"; - $content .= "&hour=$hour"; - $content .= "&min=$min"; + $args->{'year'} ||= $year; + $args->{'mon'} ||= $mon; + $args->{'day'} ||= $day; + $args->{'hour'} ||= $hour; + $args->{'min'} ||= $min; + + while (my ($k, $v) = each (%$args)) { + $content .= "&" . $k . "=" . $v; + } my $response = $self->_send_mode($content); @@ -419,7 +419,7 @@ $content .= "&" . $k . "=" . $v; } - my (undef, $min, $hour, $day, $mon, $year) = localtime(time); + my (undef, $min, $hour, $day, $mon, $year) = localtime($args->{'date'} || time); $year += 1900; $mon = sprintf("%02d", $mon + 1); debian/patches/pod.patch0000644000000000000000000000111211525263641012420 0ustar Description: fix pod errors Origin: vendor Forwarded: no Author: gregor herrmann Last-Update: 2011-02-11 --- a/LiveJournal.pm +++ b/LiveJournal.pm @@ -1095,8 +1095,12 @@ Use this method to remove a friend from a user group. C is the username of the person and C is the group number. +=back + =head1 JOURNAL METHODS +=over + =item get (INFO) Use this method to download parts of a user's journal. C is a hash @@ -1186,8 +1190,12 @@ http://forbidden.dough.net/~archon/lj/ +=back + =head1 SEE ALSO +=over + =item * perl(1). debian/patches/network_tests.patch0000644000000000000000000000112511525313563014554 0ustar Description: add variable to turn off network tests Forwarded: no Author: gregor herrmann Last-Update: 2011-02-11 --- liblivejournal-perl-1.3.orig/t/lj.t +++ liblivejournal-perl-1.3/t/lj.t @@ -2,12 +2,14 @@ # $Id: lj.t,v 1.2 2001/03/15 23:11:31 archon Exp $ -BEGIN { $| = 1; print "1..3\n"; } +BEGIN { $| = 1; my $tests = ( $ENV{NO_NETWORK} ? 1 : 3 ); print "1..$tests\n"; } END {print "not ok 1\n" unless $loaded;} use LiveJournal; $loaded = 1; print "ok 1\n"; +exit if $ENV{NO_NETWORK}; + # we just want to try login() my $login = "bogus"; my $pass = "bogus"; debian/patches/series0000644000000000000000000000007011525313504012026 0ustar date.patch spelling.patch pod.patch network_tests.patch debian/compat0000644000000000000000000000000211525261231010362 0ustar 7 debian/changelog0000644000000000000000000000316711525315542011052 0ustar liblivejournal-perl (1.3-5) unstable; urgency=low * Take over for the Debian Perl Group on maintainer's request (http://lists.debian.org/debian-devel/2011/02/msg00217.html). * debian/control: - add Vcs-Svn field (source stanza); Vcs-Browser field (source stanza); ${misc:Depends} to Depends: field. - change maintainer to Debian Perl Group (was: Decklin Foster ). - add /me to Uploaders - add build dependency on libwww-perl * Add debian/watch. * Convert to source format 3.0 (quilt). * Switch to debhelper 7. * Set Standards-Version to 3.9.1; remove version from perl build dependency. * debian/copyright: DEP5 formatting. * Don't install README anymore. * Split out the changes from -2 into a proper patch. * Add 2 patches (spelling mistakes, pod errors). * Turn off tests that need a network connection (patch + debian/rules). -- gregor herrmann Fri, 11 Feb 2011 21:26:08 +0100 liblivejournal-perl (1.3-3) unstable; urgency=low * Depend on libwww-perl. * Bump Standards-Version to 3.6.2. -- Decklin Foster Sat, 6 Aug 2005 12:43:36 -0400 liblivejournal-perl (1.3-2) unstable; urgency=low * Remove Makefile from .diff.gz. * Added a 'date' key, based on an idea from Joshua Kwan. (Closes: #251001) * Bump Standards-Version to 3.6.1. -- Decklin Foster Sat, 2 Oct 2004 12:41:22 -0400 liblivejournal-perl (1.3-1) unstable; urgency=low * Initial Release. -- Decklin Foster Mon, 14 Jul 2003 16:27:00 -0400 debian/source/0000755000000000000000000000000011525315561010472 5ustar debian/source/format0000644000000000000000000000001411525261231011672 0ustar 3.0 (quilt) debian/rules0000755000000000000000000000012111525314161010237 0ustar #!/usr/bin/make -f %: dh $@ override_dh_auto_test: NO_NETWORK=1 dh_auto_test