Changeset 540

Timestamp:

10/13/08 01:42:40 (3 months ago)

Author:

ogawa

Message:

Instead of hard-coding blog_id, short_name, etc., now employs YAML config file.

Location:

DisqusExporter/trunk

Files:

• samples (added)
• samples/disqus.yaml (added)
• tools/disqus-exporter.pl (modified) (8 diffs)

DisqusExporter/trunk/tools/disqus-exporter.pl

@@ -12 +12 @@
 use warnings;
 
-use lib 'lib', '../lib';
+use lib qw( lib ../lib );
 use MT::Bootstrap;
 
-use constant BLOG_ID         => 1;
-use constant SHORT_NAME      => 'your forum short name';
-use constant ANONYMOUS_EMAIL => 'nobody@your.domain';
-use constant USER_API_KEY    => 'your user api key';
+our $VERSION = '0.1-dev';
 
-use constant VERBOSE => 0;
+use Getopt::Long;
+use YAML::Tiny;
 
-our $VERSION = '0.1-dev';
+sub usage {
+    print "Usage: $0 --config <config.yaml> [ --verbose ]\n";
+    exit(1);
+}
+
+GetOptions( 'config=s', \my $yaml, 'verbose', \my $verbose ) or usage();
+usage() unless defined $yaml;
+my ($cfg) = YAML::Tiny::LoadFile($yaml);
+for (qw( blog_id forum_name default_email user_api_key)) {
+    die "'$_' is not defined in $yaml" unless defined $cfg->{$_};
+}
 
 use MT;
@@ -31 +39 @@
 use WWW::Disqus;
 
-my $api = WWW::Disqus->new( user_api_key => USER_API_KEY );
-$api->set_forum_api_key_by_forum_name(SHORT_NAME);
-
 my $mt = MT->new() or die MT->errstr;
-my $blog = MT::Blog->load(BLOG_ID)
-  or die 'Cannot find MT::Blog(ID:' . BLOG_ID . ')';
+my $blog = MT::Blog->load( $cfg->{blog_id} )
+  or die 'Cannot find MT::Blog(ID:' . $cfg->{blog_id} . ')';
 my $iter = MT::Entry->load_iter(
     {
-        blog_id => BLOG_ID,
+        blog_id => $cfg->{blog_id},
         status  => MT::Entry::RELEASE,
     },
@@ -45 +50 @@
         join => [
             'MT::Comment', 'entry_id',
-            { blog_id => BLOG_ID, visible => 1 }, { unique => 1 }
+            { blog_id => $cfg->{blog_id}, visible => 1 }, { unique => 1 }
         ],
     }
 );
+
+my $api = WWW::Disqus->new( user_api_key => $cfg->{user_api_key} );
+$api->set_forum_api_key_by_forum_name( $cfg->{forum_name} );
 
 my %stats = (
@@ -62 +70 @@
     if ($@) {
         $stats{entry_skipped}++;
-        print STDERR "Disqus API error: $@\n" if VERBOSE;
+        print STDERR "Disqus API error: $@\n" if $verbose;
         next;
     }
@@ -70 +78 @@
         print STDERR "No Disqus thread found for MT::Entry(ID:"
           . $entry->id . ")\n"
-          if VERBOSE;
+          if $verbose;
         next;
     }
@@ -82 +90 @@
 
         # author_email
-        my $author_email = ANONYMOUS_EMAIL;
+        my $author_email = $cfg->{default_email};
         if ( $comment->email && MT::Util::is_valid_email( $comment->email ) ) {
             $author_email = $comment->email;
@@ -123 +131 @@
         if ($@) {
             $stats{comment_failed}++;
-            print STDERR "Disqus API error: $@\n" if VERBOSE;
+            print STDERR "Disqus API error: $@\n" if $verbose;
             next;
         }
@@ -133 +141 @@
           . ") successfully converted to Disqus post(ID:"
           . $post->{id} . ")\n"
-          if VERBOSE;
+          if $verbose;
     }
     $stats{entry_processed}++;