src/script/bcd.pl

   1 #!/usr/bin/perl -w
   2
   3 # This file is part of the breadcrumbs daemon (bcd).
   4 # Copyright (C) 2007 Pasqualino Ferrentino
   5
   6 # This program is free software; you can redistribute it and/or modify
   7 # it under the terms of the GNU General Public License as published by
   8 # the Free Software Foundation; either version 2 of the License, or
   9 # (at your option) any later version.
  10
  11 # This program is distributed in the hope that it will be useful, but
  12 # WITHOUT ANY WARRANTY; without even the implied warranty of
  13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14 # General Public License for more details.
  15
  16 # You should have received a copy of the GNU General Public License
  17 # along with this program; if not, write to the Free Software
  18 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
  19 # 02110-1301, USA.
  20
  21 # Contact: lino.ferrentino@yahoo.it (in Italian, English or German).
  22
  23 use strict;
  24 use warnings;
  25
  26 use FindBin;
  27 use lib("$FindBin::Bin/../lib");
  28
  29
  30 use constant {
  31     BCD_VERSION => '0.10.2.3',
  32 };
  33
  34
  35 use Bcd;
  36
  37 Bcd::Data::Model->instance();
  38 my $server = Bcd->new();
  39 $server->run(conf_file => './etc/bcd.conf');
  40
  41 sub greetings{
  42
  43     my $ver = BCD_VERSION();
  44     my $greetings = "bcd version $ver, Copyright (C) 2007 Pasqualino Ferrentino\n";
  45     $greetings .=   "bcd comes with ABSOLUTELY NO WARRANTY; for details\n";
  46     $greetings .=   "see the file COPYING in the distribution directory.\n";
  47     $greetings .=   "This is free software, and you are welcome\n";
  48     $greetings .=   "to redistribute it under certain conditions;\n";
  49     $greetings .=   "see the file COPYING for details.\n";
  50
  51     return $greetings;
  52
  53 }
  54
  55 __END__
  56
  57 =head1 NAME
  58
  59     bcd.pl - Breadcrumbs daemon (Bcd)
  60
  61 =head1 SYNOPSIS
  62
  63     bcd.pl [options]
  64
  65  Options:
  66     --help           display this help and exits
  67     --test           use test database and test port (usually 9001)
  68     --script         write all the commands in a script file
  69
  70  The script option implies the test option.
  71  Other options should be the same of Net::Server (Bcd is a subclass of it)
  72
  73  Some useful options:
  74
  75     --setsid         daemonize
  76     --user <user>    run with user <user>
  77     --group <group>  run with group <group>
  78
  79 =head1 DESCRIPTION
  80
  81 Run the bcd daemon, you should use it to run the breadcrumbs site.
  82
  83 =head1 AUTHOR
  84
  85 Pasqualino Ferrentino <lino.ferrentino@yahoo.it>
  86
  87 =head1 COPYRIGHT
  88
  89  This program is free software; you can redistribute it and/or modify
  90  it under the terms of the GNU General Public License as published by
  91  the Free Software Foundation; either version 3 of the License, or
  92  (at your option) any later version.
  93
  94 =cut