Created

Embed URL

HTTPS clone URL

SSH clone URL

You can clone with HTTPS or SSH.

Download Gist

message somebody in quake.

View qm.pl
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
#!/usr/bin/perl
use Socket;
 
 
my %server;
$server{'port'} = "27960";
$server{'host'} = (shift(@ARGV));
@message = @ARGV;
 
print "trying: $server{'host'}:$server{'port'}\n";
socket(SOCKET, PF_INET, SOCK_DGRAM, getprotobyname("udp"));
unless(gethostbyname($server{'host'})) {
print "unable to open $server{'host'}\n" }
connect(SOCKET, sockaddr_in($server{'port'}, inet_aton($server{'host'})));
send(SOCKET, "\xFF\xFF\xFF\xFFprint foo\n", 0);
print "\xFF\xFF\xFF\xFFprint \n@message\n";
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Something went wrong with that request. Please try again.