102 lines
2.1 KiB
Perl
Executable File
102 lines
2.1 KiB
Perl
Executable File
#!/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);
|
|
|