Initial commit.

wp.pl

@@ -0,0 +1,101 @@
+#!/usr/bin/perl
+#
+use strict;
+use warnings "all";
+
+use DBD::mysql;
+
+my $dsn = 'DBI:mysql:wordpress:localhost';
+my $db_user_name = 'root';
+my $db_password = '';
+my ($id, $password);
+my $dbh = DBI->connect($dsn, $db_user_name, $db_password);
+$dbh->{'mysql_enable_utf8'} = 1;
+$dbh->do('set names utf8');
+
+my $sth = $dbh->prepare(qq{
+SELECT ID, post_date, post_content, post_title FROM wp_posts
+    });
+$sth->execute();
+
+my $PWD = $ENV{'PWD'};
+my @posts;
+my %POSTS;
+while (my ($id, $post_date, $post_content, $post_title) = $sth->fetchrow_array())
+{
+	push @posts, $id;
+	chdir($PWD);
+	unless(-d "wordpress")
+	{
+		mkdir "wordpress";
+	}
+	unless(-d "wordpress/$id")
+	{
+		mkdir "wordpress/$id";
+	}
+	chdir("wordpress/$id");
+	open(POST, ">post_content");
+	print POST "$post_content";
+	close POST;
+	open(TITLE, ">post_title");
+	print TITLE "$post_title";
+	close TITLE;
+	open(DATE, ">post_date");
+	print DATE "$post_date";
+	close DATE;
+	$POSTS{$id} = <<DATA;
+Date: $post_date
+Title: $post_title
+Status: public
+
+$post_content
+DATA
+
+}
+
+$sth->finish();
+foreach my $post (@posts){
+	print "POST: $post\n";
+	$sth = $dbh->prepare(qq{
+		SELECT `term_taxonomy_id` FROM `wp_term_relationships` WHERE `object_id`=$post;
+	});
+	$sth->execute();
+	my @tags;
+	while(my ($tag) = $sth->fetchrow_array()){
+		push @tags, $tag;
+	}
+	$sth->finish();
+	print "TAGS: ";
+       	print join(',', @tags);
+	print "\n";
+
+	$sth = $dbh->prepare(qq{
+		 select name from `wp_terms` where `term_id` in (SELECT `term_taxonomy_id` FROM `wp_term_relationships` WHERE `object_id`=$post);
+	});
+	$sth->execute();
+	my @categories;
+	while(my ($category) = $sth->fetchrow_array()){
+		next if($category eq 'Uncategorized');
+		push @categories, $category;
+	}
+	$sth->finish();
+	my $cat = '';
+	my $category;
+	foreach $category (@categories){
+		$cat .= $category . ', ';
+	}
+	chop($cat);chop($cat);
+	chdir($PWD);
+	chdir("wordpress/$post");
+	open(CAT, ">post_tags");
+	print CAT $cat;
+	close CAT;
+	open(P, ">/$post.md");
+	print P "Tags: $cat
+$POSTS{$post}";
+}
+__END__
+
+query list of categories for post id
+select name from `wp_terms` where `term_id` in (SELECT `term_taxonomy_id` FROM `wp_term_relationships` WHERE `object_id`=501);
+