The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

AANOAA / Hubot-0.2.8 / bin / hubot 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
—
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117

              
#!/usr/bin/env perl
use Hubot::Robot;
use Hubot::Creator;
use Cwd 'cwd';
use File::Slurp qw/read_file/;
use JSON::XS;
use Getopt::Long::Descriptive;
my ( $opt, $usage ) = describe_options(
    "hubot %o <arg>",
    ['adapter|a=s', 'The Adapter to use',            { default => 'shell' }],
    ['name|n=s',    'The name of the robot in chat', { default => 'hubot' }],
    ['scripts|s=s', 'hubot-scripts.json file path'],
    ['create|c=s',  'Create a deployable hubot'],
    ['help',        'Display the help information'],
);
print( $usage->text ), exit if $opt->help;
if ( my $path = $opt->create ) {
    Hubot::Creator->new( path => $path )->run;
    exit;
}
my $robot = Hubot::Robot->new(
    { adapter => $opt->{adapter}, name => $opt->{name}, } );
$robot->alias( $opt->{alias} ) if $opt->{alias};
$robot->adapter->on(
    'connected',
    sub {
        my $cwd = cwd();
        my $scriptsFile = $opt->{scripts} || "$cwd/hubot-scripts.json";
        if ( -f $scriptsFile ) {
            my $json    = read_file($scriptsFile);
            my $scripts = decode_json($json);
            $robot->loadHubotScripts($scripts);
        }
        else {
            print "load built-in scripts\n";
            $robot->loadHubotScripts( ['help', 'ascii', 'roles'] );
        }
    }
);
$robot->run;
=pod
=head1 NAME
hubot - convenience command line interface L<Hubot::Robot>.
=head1 VERSION
version 0.2.8
=head1 SYNOPSIS
    $ hubot --help
    $ echo '["help"]' > ./hubot-scripts.json    # `hubot-scripts.json` is required.
    $ hubot
    hubot> hubot help
    # hubot: help <command>
    hubot> exit
    # irc?
    $ HUBOT_IRC_ROOMS='#myroom' \
      HUBOT_IRC_SERVER='irc.myserver.com' \
      HUBOT_IRC_PORT=6667 \
      hubot -a irc
    # campfire?
    $ HUBOT_CAMPFIRE_TOKEN='xxxx' \
      HUBOT_CAMPFIRE_ROOMS='1234' \
      HUBOT_CAMPFIRE_ACCOUNT=myaccount \
      hubot -a campfire
    $ perldoc Hubot
    $ perldoc Hubot::Adapter::Irc
    $ perldoc Hubot::Adapter::Campfire
=head1 DESCRIPTION
C<hubot> is a Command Line Interface for L<Hubot>.
=head2 BUILD DEPLOYABLE PACKAGE
    $ hubot -c /path/to/hubot
C<--create|-c> option is used to build deployable package onto heroku.
=head1 SEE ALSO
=over
=item L<Hubot>
=item L<Hubot::Adapter::Irc>
=item L<Hubot::Adapter::Campfire>
=back
=head1 AUTHOR
Hyungsuk Hong <hshong@perl.kr>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2012 ~ 2013 by Hyungsuk Hong.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut