submit_rules.pl

Pelr抓取程序Pelr抓取程序Pelr抓取程序Pelr抓取程序

################
# test the socket client
################

#! /usr/bin/perl -w

use strict;
use Socket;

die "Usages: $0 <site_url> <CLR_file> <CER_file>\n" unless $#ARGV == 2;
my ($site_url, $clr_file, $cer_file) = @ARGV;

### set up socket connnection with the scheduler
my $host = 'blueberry.summba.com';
my $port =  7890;

# read CER & CLR files
my (@cer, @clr);
open (L, "<$clr_file") || die "cannot open $clr_file\n";
@clr = <L>;
close L;
open (E, "<$cer_file") || die "cannot open $cer_file\n";
@cer = <E>;
close E;

my $proto = getprotobyname('tcp');

# get the port address                                                                       
my $iaddr = inet_aton($host);
my $paddr = sockaddr_in($port, $iaddr);

# create the socket, connect to the port                                                                    
socket(SOCKET, PF_INET, SOCK_STREAM, $proto) or die "Cannot connect to the server: $!\n";

while (connect(SOCKET, $paddr)) {
    my $hex = Str2Hex($site_url);
    print SOCKET sprintf("%02X", length($hex)).$hex;

    $hex = Str2Hex(join('', @clr));
    print SOCKET sprintf("%04X", length($hex)).$hex;

    $hex = Str2Hex(join('', @cer));
    print SOCKET sprintf("%04X", length($hex)).$hex;

    close SOCKET;
}
print "Rules have been successfully submitted to the remote server.\n";

# convert a string to ASCII in Hex      
sub Str2Hex { 
    my $hex;
    foreach my $str (@_) {
        foreach (unpack "C*", $str) {
            $hex .= sprintf "%02X", $_;
        }
    }
    return $hex;
}