root/lang/perl/HappySync/trunk/bin/happysync.pl @ 35757

Revision 35757, 287 bytes (checked in by unau, 4 years ago)
Line 
1BEGIN {
2    unshift(@INC, './lib');
3}
4use strict;
5use warnings;
6use IO::Prompt;
7
8use HappySync;
9
10my $username = shift or die "need username";
11my $password = shift;
12my $syncpoint = shift;
13
14my $happy = new HappySync($username, $password, $syncpoint);
15$happy->init() or die;
16$happy->get();
Note: See TracBrowser for help on using the browser.