gist: 194750


  
    
      Twilog.pl #
    
    
      
      
        embed
        
      
      
      
      raw
    
  
  
  
    
      
        
          
            
            1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142

          
          
            
              package MT::Plugin::Twilog;
 
use strict;
use MT;
use MT::Blog;
use MT::Entry;
use MT::Log;
use MT::I18N;
use MT::Util qw( start_end_day epoch2ts format_ts encode_xml);
use MT::Placement;
use MT::WeblogPublisher;
 
our $VERSION = '0.0.1';
our $NAME = 'Twitlog';
use base qw( MT::Plugin );
 
 
my $plugin; $plugin = new MT::Plugin::Twilog({
    id => 'Twilog',
    key => 'twilog',
    description => 'Twitlog.comãã1æ¥ã®tweetæå ±ãæ½åºããã¨ã³ããªã¨ãã¦èªåã§å¬éãã¾ãã',
    name => 'Twilog',
    doc_link => 'http://weblibrary.s224.xrea.com/mt4plugins/jsonaccessranking/',
    author_name => 'cool_ni_ikou',
    author_link => 'http://weblibrary.s224.xrea.com/',
    l10n_class => 'Twitlog::L10N',
    blog_config_template => 'twilog_config.tmpl',
    settings => new MT::PluginSettings([
        ['twitter_username',{ Scope => 'blog' }],
        ['blogid',{ Default => '1' }],
        ['author_id',{ Default => '1', Scope => 'blog' }],
        ['category_id',{ Default => '1', Scope => 'blog' }],
        ['status', { Default => '1', Scope => 'blog' }],
        ['title', { Default => 'today tweet', Scope => 'blog' }],
    ]),
    registry => {
        tasks => {
            $NAME => {
                name        => $NAME,
                frequency   => 1, 
                code        => \&_hdlr_auto_twilog_entry,
            },
        },
    },
});
MT->add_plugin( $plugin );
 
sub doLog {
    my ($msg) = @_; 
    return unless defined($msg);
 
    use MT::Log;
    my $log = MT::Log->new;
    $log->message($msg) ;
    $log->save or die $log->errstr;
}
 
sub _hdlr_auto_twilog_entry {
	my $blog_id = $plugin->get_config_value('blogid');
	my $username = $plugin->get_config_value('twitter_username', 'blog:'.$blog_id);
	my $author_id = $plugin->get_config_value('author_id', 'blog:'.$blog_id);
	my $category_id = $plugin->get_config_value('category_id', 'blog:'.$blog_id);
	my $status = $plugin->get_config_value('status', 'blog:'.$blog_id);
	my $title = $plugin->get_config_value('title', 'blog:'.$blog_id);
	my $blog;
	if ($blog_id) {
		$blog = MT::Blog->load($blog_id);
	} else {
		$blog = MT::Blog->load( undef, { limit => 1 } );
	}
 
	my $start = start_end_day( epoch2ts( $blog, time - ( 60 * 60 * 24 * 2) ) );
	   $start = format_ts( '%Y%m%d', $start, $blog );
	   $start =~ s/\d{2}//;
	my $ago = start_end_day( epoch2ts( $blog, time - ( 60 * 60 * 24 ) ) );
	my $end = format_ts( '%Y%m%d', $ago, $blog );
	   $end =~ s/\d{2}//;
	my $date = format_ts( '%Y-%m-%d', $ago, $blog );
	   $title .= " ".$date;
	my $body = get_data($username, $start, $end);
	   $body .= '<p>via <a href="http://twilog.org/" title="Twilog - Twitterã®ã¤ã¶ãããããã°å½¢å¼ã§ä¿å">Twilog - Twitterã®ã¤ã¶ãããããã°å½¢å¼ã§ä¿å</a></p>';
 
	my $entry = MT::Entry->new;
	   $entry->blog_id($blog_id);
	   $entry->author_id($author_id);
	   $entry->status($status);
	   $entry->class('entry');
	   $entry->allow_comments($blog->allow_comments_default);
	   $entry->allow_pings($blog->allow_pings_default);
	   $entry->title($title);
	   $entry->text($body);
	   $entry->save
		or die 'Error saving entry', $entry->errstr;
	my $entry_id = $entry->id;
	my $place = MT::Placement->new;
	   $place->entry_id($entry_id);
	   $place->blog_id($blog_id);
	   $place->category_id($category_id);
	   $place->is_primary(1);
	   $place->save
		or die i'Error saving placement',$place->errstr;
 
	my $pub = MT::WeblogPublisher->new();
	   $pub->rebuild_entry( Entry => $entry,
	    			BuildDependencies => 1,
	    			NoIndexes => 1
	    		      );
	   $pub->rebuild_indexes( Blog => $blog );
 
	my $log = new MT::Log;
	   $log->message ("$NAME: EntryID-$entry_id: $title published.");
            $log->blog_id ($blog->id);
            $log->level (MT::Log::INFO());
            $log->save;
}
 
sub get_data{
	my ($username, $start, $end ) = @_;
	my $pattern = qq/"d$end">(.*?)<a name="$start"><\/a>/;
	doLog($pattern);
	my $ua = MT->new_ua({ agent => join("/", $NAME, $VERSION) });
	my $url = 'http://twilog.org/' . $username;
		doLog($url);
	my $res = $ua->get($url);
	if ($res->is_success) {
		my $html = $res->content;
		$html =~ s/\n//g;
		if ( $html =~ /$pattern/g ){
			return $1;
		}
	} else {
		MT->log({
			message => 'æå ±ãåå¾ãããã¨ãã§ãã¾ããããã©ã°ã¤ã³è¨å®ç»é¢ã«ã¦ãåç¨®è¨å®ãç¢ºèªãã¦ãã ããã'. $res->status_line,
			class => 'system',
			level => MT::Log::ERROR(),
		});
		die 'æå ±ãåå¾ãããã¨ãã§ãã¾ããããã©ã°ã¤ã³è¨å®ç»é¢ã«ã¦ãåç¨®è¨å®ãç¢ºèªãã¦ãã ããã'. $res->status_line;
	}
}
1;
__END__
Public Clone URL:	git://gist.github.com/194750.git Give this clone URL to anyone. `git clone git://gist.github.com/194750.git gist-194750`
Embed All Files:	show embed