#!/usr/bin/perl -I../lib

# To use:
# - Log into your myspace account and find/create a group.
# - Note the group ID (in the URL after "groupID=")
# - To send to all your friends: send_group_invitations groupID
# This script will cache your friend list - delete the cache file if you
# use a different account or want it to re-read the list.
# Note that you can also fill the cache file with a list of
# friendIDs.

# usage: send_group_invitations group_id [ friend_id ... ]

use WWW::Myspace;
use YAML qw'DumpFile LoadFile';

my $myspace = new WWW::Myspace( human => 0 );
die $myspace->error if $myspace->error;

my ( $group_id, @friends ) = @ARGV;

unless ( @friends ) {
	warn "Getting all friends\n";
	if ( -f './invite_friends_cache.yaml' ) {
		warn "Reading from cache file.  Delete group_invite_cache.yaml\n".
			  "if you don't want to do this.\n";
		@friends = LoadFile( 'group_invite_cache.yaml' );
	} else {
		@friends = $myspace->get_friends;
		DumpFile( 'group_invite_cache.yaml', @friends );
	}
}

warn "Inviting " . @friends . " friends.\n";

my ( $passed, $failed ) =
    $myspace->send_group_invitation( $group_id, @friends );
die $myspace->error if $myspace->error;

print "\n\nSent to:\n";
foreach $id ( @{ $passed } ) {
    print $id . "\n";
}

print "Failed to send to:\n";
 foreach $id ( @{ $failed } ) {
    print $id . "\n";
}