Njahnke: New page:

 #!/usr/bin/perl #nathan jahnke   use warnings; use strict 'subs';  if (!(-e "amu_remotehosts.txt")) { 	die "amu_remotehosts.txt not found"; }  use IO::Sock...

2008-10-12T05:37:37Z

New page: <pre><nowiki> #!/usr/bin/perl #nathan jahnke <njahnke@gmail.com> use warnings; use strict 'subs'; if (!(-e "amu_remotehosts.txt")) { die "amu_remotehosts.txt not found"; } use IO::Sock...

New page

<pre><nowiki>
#!/usr/bin/perl
#nathan jahnke <njahnke@gmail.com>

use warnings;
use strict 'subs';

if (!(-e "amu_remotehosts.txt")) {
die "amu_remotehosts.txt not found";
}

use IO::Socket;
use Sys::Hostname;
use Sys::HostIP;

$port = 56677;
if ($#ARGV == 0) {
$command = $ARGV[0];
print "\$command is $command\n\n";
}

if (open(REMOTEHOSTS,"amu_remotehosts.txt")) {
while (<REMOTEHOSTS>) {
chomp;
s/^#.*$//; #kill commented out hosts
$remote_hosts{$_} = 0 if $_; #a space for amus to sign off that they have seen the list
}
close(REMOTEHOSTS);

print "\%remote_hosts:\n";
foreach $host (keys %remote_hosts) {
print "\"$host\" => \"$remote_hosts{$host}\"\n";
}
print "\n";
}

&contact_amu("AMU HOSTS ".join(";",%remote_hosts)."\n");
&contact_amu("AMU DO $command\n") if $#ARGV == 0;

sub contact_amu {
my $command = shift;
foreach $remote_host (keys %remote_hosts) {
print "trying $remote_host ...\n";
if (my $socket = IO::Socket::INET->new(PeerAddr => $remote_host,
PeerPort => $port,
Proto => "tcp",
Type => SOCK_STREAM,
Timeout => 5 )) {
print $socket $command;
my @answer = <$socket>;
print "contact with $remote_host\n";
close($socket);
} else {
print "no contact with $remote_host\n";
}
}
}

exit 0;
</nowiki></pre>

Amu-chan/Source/amusend.pl - Revision history

Njahnke: New page:
#!/usr/bin/perl #nathan jahnke use warnings; use strict 'subs'; if (!(-e "amu_remotehosts.txt")) { die "amu_remotehosts.txt not found"; } use IO::Sock...