App-PM-Announce

 view release on metacpan or  search on metacpan

lib/App/PM/Announce.pm  view on Meta::CPAN

            $self->logger->debug( "Making $config_file stub because it does not exist" );
            $config_file->openw->print( <<_END_ );
# vim: set filetype=configgeneral:

# Replace 'An-Example-Group' with the real resource for your Meetup group
# Replace <venue> with the venue number you want to be the default

#<feed meetup>
#    username
#    password
#    uri http://www.meetup.com/An-Example-Group/calendar/?action=new
#    venue <venue>
#</feed>

# Replace <gid> with the gid of your group

#<feed linkedin>
#    username
#    password
#    uri http://www.linkedin.com/groupAnswers?start=&gid=<gid>
#</feed>

lib/App/PM/Announce/App.pm  view on Meta::CPAN

                    },
                },
            },
            test => sub {
                my ($context, @arguments) = @_;
                $app = App::PM::Announce->new(config_file => undef, config_default => {
                    feed => {
                        meetup => {qw{
                            username robert...krimen@gmail.com
                            password test8378
                            uri http://www.meetup.com/The-San-Francisco-Beta-Tester-Meetup-Group/calendar/?action=new
                        }},
                        linkedin => {qw{
                            username robertkrimen+alice8378@gmail.com
                            password test8378
                            uri http://www.linkedin.com/groupAnswers?start=&gid=1873425
                        }},
                        greymatter => {qw{
                            username alice8378
                            password test8378
                            uri http://72.14.179.195/cgi-bin/greymatter/gm.cgi

lib/App/PM/Announce/App.pm  view on Meta::CPAN

__END__
            print <<_END_;

The only thing you can do right now:

    $0 test

Which will submit an announcement to:

    robert...krimen\@gmail.com / test8378 \@ http://www.meetup.com/The-San-Francisco-Beta-Tester-Meetup-Group/calendar/?action=new
    robertkrimen+alice8378\@gmail.com / test8378 \@ http://www.linkedin.com/groupAnswers?start=&gid=1873425
    alice8378 / test8378 \@ http://72.14.179.195/cgi-bin/greymatter/gm.cgi

_END_

t/assets/home/config  view on Meta::CPAN

# vim: set filetype=configgeneral:

xyzzy 1

<feed meetup>
    username robert...krimen@gmail.com
    password test8378
    uri http://www.meetup.com/The-San-Francisco-Beta-Tester-Meetup-Group/calendar/?action=new
    venue 920502
</feed>

<feed linkedin>
    username robertkrimen+alice8378@gmail.com
    password test8378
    uri http://www.linkedin.com/groupAnswers?start=&gid=1873425
</feed>

<feed greymatter>

t/prototype/03-meetup.t  view on Meta::CPAN

use Test::Most;
plan qw/no_plan/;

use DateTime;
use App::PM::Announce;
my $app = App::PM::Announce->new;
my $feed = App::PM::Announce::Feed::meetup->new(
    app => $app,
    username => 'robert...krimen@gmail.com',
    password => 'test8378',
    uri => 'http://www.meetup.com/The-San-Francisco-Beta-Tester-Meetup-Group/calendar/?action=new',
);
my $key = int rand $$;
$feed->announce(
    title => "Event title ($key)",
    description => "Event description ($key)",
    venue => 920502,
    datetime => DateTime->now->add(days => 10),
    image => Path::Class::File->new( 't/assets/bee.jpg' ),
);

t/prototype/03-meetup.t  view on Meta::CPAN

    fields => {
        email => 'robert...krimen@gmail.com',
        password => 'test8378',
    },
    form_number => 1,
    button => 'submitButton',
);

die "Wasn't logged in" unless $agent->content =~ m/Your Meetup Groups/;

$agent->get("http://www.meetup.com/The-San-Francisco-Beta-Tester-Meetup-Group/calendar/?action=new");

$agent->submit_form(
    fields => {
        title => "Test meetup!",
        venueId => 920502,
        origId => 920502,
        'event.day' => 10,
        'event.month' => 4,
        'event.year' => 2010,
        'event.hour12' => 12,