added common BackupPC::Search::host_backup_nums
[BackupPC.git] / bin / BackupPC_serverMesg
1 #!/usr/bin/perl
2 #============================================================= -*-perl-*-
3 #
4 # BackupPC_serverMesg: Send one or more commands to the BackupPC server.
5 #
6 # DESCRIPTION
7 #   As of v1.5.0 the BackupPC server communicates via a unix or internet
8 #   domain socket.  Every message is protected with an MD5 digest, based
9 #   on a shared secret, a sequence number, and a per-connection unique
10 #   key.  This minimizes the risk of an attacked issuing fake commands
11 #   to the BackupPC server.
12 #
13 #   Previously, telnet could be used to talk to the BackupPC server.
14 #   As of v1.5.0 that is no longer possible.
15 #
16 #   This script replaces telnet as a mechanism for sending BackupPC
17 #   messages.  Usage:
18 #
19 #       BackupPC_serverMesg mesg
20 #
21 #   Example:
22 #       BackupPC_serverMesg status info
23 #
24 # AUTHOR
25 #   Craig Barratt  <cbarratt@users.sourceforge.net>
26 #
27 # COPYRIGHT
28 #   Copyright (C) 2001-2009  Craig Barratt
29 #
30 #   This program is free software; you can redistribute it and/or modify
31 #   it under the terms of the GNU General Public License as published by
32 #   the Free Software Foundation; either version 2 of the License, or
33 #   (at your option) any later version.
34 #
35 #   This program is distributed in the hope that it will be useful,
36 #   but WITHOUT ANY WARRANTY; without even the implied warranty of
37 #   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
38 #   GNU General Public License for more details.
39 #
40 #   You should have received a copy of the GNU General Public License
41 #   along with this program; if not, write to the Free Software
42 #   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
43 #
44 #========================================================================
45 #
46 # Version 3.2.0, released 31 Jul 2010.
47 #
48 # See http://backuppc.sourceforge.net.
49 #
50 #========================================================================
51
52 use strict;
53 no  utf8;
54 use lib "/usr/local/BackupPC/lib";
55 use BackupPC::Lib;
56 use BackupPC::FileZIO;
57
58 use File::Find;
59 use File::Path;
60 use Data::Dumper;
61
62 die("BackupPC::Lib->new failed\n") if ( !(my $bpc = BackupPC::Lib->new) );
63 my $TopDir = $bpc->TopDir();
64 my $BinDir = $bpc->BinDir();
65 my %Conf   = $bpc->Conf();
66
67 $bpc->ChildInit();
68
69 if ( !@ARGV ) {
70     print("usage: $0 mesg\n");
71     exit(1);
72 }
73
74 my $err = $bpc->ServerConnect($Conf{ServerHost}, $Conf{ServerPort});
75 if ( $err ) {
76     print("Can't connect to server ($err)\n");
77     exit(1);
78 }
79 my $reply = $bpc->ServerMesg(join(" ", @ARGV));
80 print("Got reply: $reply");