/usr/bin/srsc is in srs 0.31-5.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
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 | #!/usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
if 0; # not running under some shell
use strict;
use warnings;
use IO::Socket;
use Mail::SRS::Daemon qw(:all);
my $sock = new IO::Socket::UNIX(
Type => SOCK_STREAM,
Peer => $SRSSOCKET,
);
$sock->autoflush(1);
while (<>) {
$sock->print($_);
my $line = <$sock>;
print $line;
last if $sock->eof;
}
=head1 NAME
srsc - a trivial commandline interface to srsd.
=head1 SYNOPSIS
srsc
=head1 DESCRIPTION
What you type into srsc is sent over the socket to srsd. What it
returns is printed.
This client is provided for debugging purposes only and is not intended
to be a part of the official toolset.
=head1 SEE ALSO
L<Mail::SRS>, L<Mail::SRS::Daemon>, L<srsd>,
http://www.anarres.org/projects/srs/
=head1 AUTHOR
Shevek
CPAN ID: SHEVEK
cpan@anarres.org
http://www.anarres.org/projects/
=head1 COPYRIGHT
Copyright (c) 2004 Shevek. All rights reserved.
This program is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
|