-
Notifications
You must be signed in to change notification settings - Fork 0
/
catcom.pl
77 lines (60 loc) · 1.06 KB
/
catcom.pl
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
#!/usr/bin/perl
require "client.pl";
require "server.pl";
sub printHelp()
{
print<<EOF;
NAME
catcomm
SYNOPSIS
catcomm [start|stop|sync|--help] address port
DESCRIPTION
start
Start the catcomm server
stop
Stop the catcomm server
sync
Sync files with all peers configured in config.xml
address
If an address is specified for the sync command, catcomm will only
exchange files with the specified host.
port
If a port is specified for the sync command, catcomm will only
exchange files with the specified host.
NOTE: this option MUST be used alongside the address option
--help
Print this message
AUTHOR
Written by Nikola Sobadzhiev.
EOF
}
my $command = shift;
if ($command eq "start")
{
startServer();
}
elsif ($command eq "stop")
{
stopServer();
}
elsif ($command eq "sync")
{
my $host = shift;
my $port = shift;
if ($host and $port)
{
syncWithPeer($host, $port);
}
else
{
syncWithAllPeers();
}
}
elsif ($command eq "--help")
{
printHelp();
}
else
{
printHelp();
}