Sheer has a bit of not-very-well-written code to share. Because nothing immediately jumped out at me for fetching LJ, here is a perl script that will fetch the latest LJ entry from the RSS feed, compare it with a database. You can also find this data in Sheer’s newly created code directory, where he will share all open source code snippits in the future: http:\/\/www.sheer.us\/code<\/p>\n
#!\/usr\/bin\/perl<\/p>\n use DBI; my $dbh = DBI->connect(“dbi:mysql:db=obfuscated”,”because i”,”dont want you accessing it”);<\/p>\n fetchdata();<\/p>\n # yes, this could be a *lot* better<\/p>\n sub fetchdata() #print $webpage;<\/p>\n $debug = 0;<\/p>\n if(! defined $webpage) { my $doc = $xml->XMLin($webpage);<\/p>\n # return($doc->{GRPVOL}{PRV});<\/p>\n $item = $doc->{channel}{item}[0];<\/p>\n # print Dumper($item); $title = $item->{‘title’}; $sth = $dbh->prepare(“SELECT lj_seq FROM lj WHERE link = ‘$link'”); ($seq) = $sth->fetchrow_array();<\/p>\n if($seq) { $query = “INSERT INTO lj VALUES (NULL,$linkq,$textq,$titleq,$dateq,$guidq,NOW())”; }<\/p>\n }<\/p>\n #– #CREATE TABLE lj ( Sheer has a bit of not-very-well-written code to share. Because nothing immediately jumped out at me for fetching LJ, here is a perl script that will fetch the latest LJ entry from the RSS feed, compare it with a database. You can also find this data in Sheer’s newly created code directory, where he will […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[],"_links":{"self":[{"href":"http:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/posts\/1750"}],"collection":[{"href":"http:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/comments?post=1750"}],"version-history":[{"count":0,"href":"http:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/posts\/1750\/revisions"}],"wp:attachment":[{"href":"http:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/media?parent=1750"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/categories?post=1750"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/tags?post=1750"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
\nuse Data::Dumper;
\nuse LWP::Simple;
\nuse XML::Simple;<\/p>\n
\n{
\n my $xml = XML::Simple->new();
\n my $webpage = “
\n $webpage = get(“http:\/\/sheer-panic.livejournal.com\/data\/rss”);<\/p>\n
\n# die “sheer sucks”;
\n return 0;
\n }<\/p>\n
\n# print Dumper($doc);<\/p>\n
\n $titleq = $dbh->quote($title);
\n $link = $item->{‘link’};
\n $linkq = $dbh->quote($link);
\n $guid = $item->{‘guid’}{‘content’};
\n $guidq = $dbh->quote($guid);
\n $text = $item->{‘description’};
\n $textq = $dbh->quote($text);
\n $date = $item->{‘pubDate’};
\n $dateq = $dbh->quote($date);<\/p>\n
\n $sth->execute();<\/p>\n
\n print “we got it” if ($debug);
\n return;
\n } else {
\n print “Title: [$title]\\nlink: [$link]\\nGuid:[$guid]\\ntext:[$text]\\ndate:[$date]\\n” if ($debug);<\/p>\n
\n print “query: $query\\n” if ($debug);
\n $dbh->do($query);<\/p>\n
\n#– Table structure for table ‘lj’
\n#–<\/p>\n
\n# lj_seq int(11) NOT NULL auto_increment,
\n# link text,
\n# description text,
\n# title text,
\n# `date` varchar(255) default NULL,
\n# guid text,
\n# t timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP,
\n# PRIMARY KEY (lj_seq)
\n#) ENGINE=MyISAM DEFAULT CHARSET=latin1;
\n <\n<\/lj-CUT><\/p>\n","protected":false},"excerpt":{"rendered":"