Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- use strict;
- use warnings;
- use Encode;
- use Net::Twitter;
- use Net::Wassr;
- my $username = 'nekoya';
- my $filename = 'tmp';
- open my $fh, '<', $filename or die "message file open failed.";
- my $msg = Encode::decode('utf-8', join('', <$fh>));
- close $fh or die "file close error.";
- my $pwd = sub {
- my $site = shift;
- my $pwd = `~/mkpasswd.pl $site`;
- chomp $pwd;
- $pwd;
- };
- my $tw = Net::Twitter->new(
- username => $username,
- password => $pwd->( 'twitter' ),
- );
- $tw->update( Encode::encode('utf-8',$msg) );
- my $wassr = Net::Wassr->new(
- user => $username,
- passwd => $pwd->( 'wassr' ),
- );
- $wassr->_get(
- '/update.json',
- {
- source => 'Net::Wassr',
- status => $msg,
- }
- );
Add Comment
Please, Sign In to add comment