view release on metacpan or  search on metacpan

script/elive_raise_meeting  view on Meta::CPAN

 Where preload files can include:

    *.wbd *.wbp                   - Elluminate Live! whiteboard files
    *.elp *.elpx                  - Elluminate Plan! files
    *.mpg, *.mov, *.qt, *.swf ... - Multimedia content

=head2 Compatibility Options

 -use elm2                  # ELM 2.x compat (via Elive::View::Session)
 -use elm3                  # ELM 3.x compat (via Elive::Entity::Session)
 -use Some::Custom::Class   # create session via a custom session class

=head2 Information

 -? --help                  # print this help
 -v --version               # print version and exit
 --dump=yaml                # output created sessions as YAML
 --debug=n                  # set debug level

=head1 DESCRIPTION

Creates meetings on an Elluminate I<Live!> Manager (ELM) server.

=head1 SEE ALSO

perldoc Elive

http://search.cpan.org/dist/Elive

=cut

my $class;

my $username;
my $password;
my $debug;
my $start_str;
my $end_str;
my $import;
my $upload;
my $preload_opt;
my $url;
my $help;
my @moderators;
my @participants;
my $dump;

my %occurs;
my $version;

main(@ARGV) unless caller;

sub bail {
    Elive->disconnect;
    die @_;
}

sub main {

    local(@ARGV) = @_;

    my %session_data = (
	name => 'elive test meeting',
	boundaryMinutes => 15,
	);

    GetOptions(
	'username|user=s' => \$username,
	'password|pass=s' => \$password,
	'start=s' => \$start_str,
	'end=s' => \$end_str,

	'moderators|moderator=s{,}' => \@moderators,
	'participants|participant|others|other=s{,}' => \@participants,
	'upload=s' => \$upload,
	'import_from_server|import=s' => \$import,
	'add_preload|use_preload=i' => \$preload_opt,
        'occurs=i%' => \%occurs,
	'use=s' => \$class,

	'all_moderators!' => \$session_data{allModerators},
	'boundary=i' => \$session_data{boundaryMinutes},
	'cost_center|cost_centre=s' => \$session_data{costCenter},
	'exit_url|redirect_url=s' => \$session_data{redirectURL},
	'facilitator=s' => \$session_data{facilitatorId},
	'follow|follow_moderator!' => \$session_data{followModerator},
	'invites|invitations!' => \$session_data{inSessionInvitation},
	'meeting_password|meeting_pass|session_password|session_pass=s' => \$session_data{password},
	'max_cameras|cameras|video_window=i' => \$session_data{videoWindow},
	'max_talkers|talkers=i' => \$session_data{maxTalkers},
	'moderator_notes=s' => \$session_data{moderatorNotes},
	'name|meeting_name=s' => \$session_data{name},
	'private!' => \$session_data{privateMeeting},
	'permissions!' => \$session_data{fullPermissions},
	'profile|profile_display=s' => \$session_data{profile},
	'raise_hands!' => \$session_data{raiseHandOnEnter},
	'restricted!' => \$session_data{restrictedMeeting},
	'recording_resolution=s' => \$session_data{recordingResolution},
	'recording|recording_status=s' => \$session_data{recordingStatus},
	'seats=i' => \ $session_data{seats},
	'supervised!' => \$session_data{supervised},
	'user_notes=s' => \$session_data{userNotes},

	'v|version' => \$version,
	'debug=i' => \$debug,
	'help|?' => \$help,
	'dump=s' => \$dump,
    )
	or pod2usage(2);

    pod2usage(0) if $help;

    if ($version) {
	print "Elive v${Elive::VERSION} (c) 2009 - 2012\n";
	exit(0);
    };

    ($url = shift @ARGV)
	or pod2usage("missing url argument");