perl/thrasherbird.pl

   1 #!/usr/bin/env perl
   2 # (leave that line in there)
   3
   4 # This is the Thrasher Bird configuration file. It is also the Perl
   5 # script that actually starts up Thrasher Bird. If that intimidates
   6 # you, just treat this as any other configuration file: Follow the
   7 # comments (after the # symbols), and ignore everything after the
   8 # #### THRASHER BIRD PROGRAM comment.
   9
  10 # To configure Thrasher Bird, you need to specify three things:
  11 # * The "Backend", which is what Thrasher Bird will use to store
  12 #   the data it generates.
  13 # * The "Protocol", which tells it which supported protocol will
  14 #   be exposed by the component.
  15 # * Connection information about the XMPP Server to connect to.
  16 #   You will need to consult your server's documentation about
  17 #   how to set up the server to receive connections.
  18
  19 ########
  20 ## BACKEND
  21 ########
  22
  23 # (Perl gurus: Anything in the Thrasher::Backend::* namespace may be
  24 # used here; specify the module without Thrasher::Backend:: in it.)
  25
  26 # Uncomment the backend you wish to use, configure as appropriate.
  27 # Backend names are case-sensitive.
  28
  29 ## The "Test" backend; can be used to test the system, but won't
  30 #  permanently store any data!
  31 # $backend = Test;
  32 # $backend_configuration = {};
  33
  34 #######
  35 ## PROTOCOL
  36 #######
  37
  38 # (Perl gurus: This is like the Backend, except under the
  39 # Thrasher::Protocol:: namespace.)
  40
  41 # Uncomment the protocol you wish to use, configure as appropriate.
  42 # Backend names are case-sensitive.
  43
  44 ## The "Test" protocol does very little for you.
  45 #
  46 # $protocol = Test;
  47 # my $protocol_configuration = {
  48 #     plugins => [ qw(
  49 #                        Thrasher::Plugin::ProxyFileTransfer
  50 #                   ) ],
  51 # };
  52
  53 #######
  54 ## CONNECTION INFO
  55 #######
  56
  57 # You need to tell Thrasher Bird how to connect to your server.
  58
  59 # Leave the apostrophes around the ip or domain here.
  60 # This is the "local server".
  61 $server_ip = '127.0.0.1';
  62
  63 # Server port: The port the server is expecting the transport to use.
  64 $server_port = 5556;
  65
  66 # Secret: The shared secret that the server is expecting. If you're
  67 # not familiar with Perl string rules, stick to letters and numbers
  68 # only.
  69 $server_secret = 'secret';
  70
  71 # Component name base; this will be composed together with the name
  72 # of the protocol to determine the component name. If you don't know
  73 # what this means, leave it be. If you want to share the transport
  74 # with people off your server, though, it needs to be routable,
  75 # which means you should set this as the domain name of your server.
  76 $component_name_base = 'localhost';
  77
  78 #### THRASHER BIRD PROGRAM
  79 # If you are just configuring the program, ignore everything after
  80 # this.
  81
  82 use Thrasher;
  83 # Perl Gurus: This function call is all you need to start Thrasher
  84 # Bird. This configuration file is unneccessary if you want
  85 # to obtain these values some other way. (We do at Barracuda
  86 # Networks.)
  87 Thrasher::start($backend, $protocol, $server_ip, $server_port,
  88                 $server_secret, $backend_configuration,
  89                 $protocol_configuration, $component_name_base);