blob: abeefb8b42b7526668e768c781cd70fb6dd952d4 (
plain)
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
|
#!/usr/bin/env perl
use warnings;
use strict;
use Socket;
my $host = "127.0.0.1";
my $port = 56789;
my $input = shift;
open(INPUT, "< $input") or die "Can't open input file $input\n";
socket(SOCKET,PF_INET,SOCK_STREAM,(getprotobyname('tcp'))[2])
or die "Can't create a socket $!\n";
connect(SOCKET, pack_sockaddr_in($port, inet_aton($host)))
or die "Can't connect to port $port! \n";
print SOCKET "SYMBOLS SPAMC/1.0\r\n";
my $msg;
while (my $line = <INPUT>) {
$msg .= $line;
}
my $dlen = length($msg);
print SOCKET "Content-length: $dlen\r\n\r\n$msg";
SOCKET->autoflush(1);
shutdown(SOCKET, 1);
close(INPUT);
while (my $line = <SOCKET>) {
print $line;
}
close(SOCKET);
|
