Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 13 lines (10 sloc) 231 Bytes
#!/usr/bin/env perl
use 5.14.1;
use warnings;
my $arg = shift;
unless ($arg =~ m/^(start|stop|restart)$/) {
die "USAGE: $0 <start|stop|restart>";
}
for my $n (qw/cardlock jobs/) {
system("sudo service biopay-$n $arg");
}