OpenForum RSS: ��

�� (��)

Fri, 28 Apr 2017 19:25:26 GMT

>[�� ]
> close LOGFILE;
> exit $update;
> [/code]
> �� /etc/crontab
> [code]
> */5 * * * * root if /root/bin/vigruzki.update.pl company; then service squid
> reload; service dnsmasq reload; fi
> [/code]
> ��
> �� .

��. � � �� , �� .
�� Ip �� , � ��
�� IP, �� <content> �� blockType="ip" �� .

�� (dlyserg)

Sat, 12 Dec 2015 20:12:49 GMT

> �� . �� .

��, ��.
�� utf8.

�� (Hammer)

Thu, 03 Dec 2015 00:58:47 GMT

>>>> �� , �� . �� .
> �� , �� , �� .
> �� ?
> �� .
> �� -��.
> �� .

�� . �� .

�� (dlyserg)

Wed, 02 Dec 2015 23:57:07 GMT

>>> �� , �� . �� .

�� , �� , �� .
�� ?
�� .
�� -��.
�� .

�� (Hammer)

Sun, 08 Jun 2014 02:31:53 GMT

>[�� ]
> use XML::Simple;
> my $parser = XML::Simple->new();
> my $dom = $parser->XMLin('dump.xml') or die;
> open(FH, ">", "result4.txt") or die;
> foreach my $node (values %{$dom->{'content'}}) {
> print FH $node->{'domain'}, "\n";
> }
> close FH;[/code]�� Twig �� . ��.)) ��.., ��
> �� .
> � �� , �� , �� LibXML

��! �� . �� . ��.

�� (McLeod095)

Fri, 06 Jun 2014 06:56:42 GMT

>> �� , �� . �� .
>> ��
>> �� , �� . �� 4 ��
>> �� , ��
>> �� .
> ��, �� .

�� , ��
[code]
#!/usr/bin/env perl
#

use warnings;
use strict;
use MIME::Base64;
use SOAP::Lite;
use Fcntl qw(:flock);
use Archive::Extract;
use XML::Simple;
use Data::Dumper;
use utf8;
use Encode;
binmode STDOUT, ":utf8";

use constant {
NOTICE => 0,
WARN => 1,
ERROR => 2,
DEBUG => 3,
};

# ��
$|=1;

# �� , �� .req ��.sig
my $company = shift or die("Use script with parameters\n");
my $requestFile = "/root/bin/" . $company . ".req";
my $signatureFile = "/root/bin/" . $company .".sig";
my $registryFile =

�� (��)

Thu, 05 Jun 2014 13:26:19 GMT

��, ��, �� . �� .
XML::DOM[code]#!/usr/bin/perl

use strict;
use warnings;
use XML::DOM;

my $parser = XML::DOM::Parser->new();
my $dom = $parser->parsefile ("dump.xml") or die;

open(FH, ">", "result.txt") or die;

my @nodes = $dom->getElementsByTagName("domain");
foreach my $node (@nodes) {
print FH $node->getFirstChild()->getData(), "\n";
}

close FH;[/code]XML::LibXML[code]#!/usr/bin/perl

use strict;
use warnings;
use XML::LibXML;

my $parser = XML::LibXML->new();
my $dom = $parser->parse_file("dump.xml") or die;

open(FH, ">", "result2.txt") or die;

my @nodes = $dom->getElementsByTagName("domain");
foreach my $node (@nodes) {
print FH $node->firstChild()->data, "\n";
}

close FH;[/code]XML::Twig[code]#!/usr/bin/perl

use strict;
use warnings;
use XML::Twig;

my $parser = XML::Twig->new();
my $dom = $parser->parsefile('dump.xml') or die;

open(FH, ">", "result3.txt") or die;

my @nodes = $dom->root->children('content

�� (Hammer)

Thu, 05 Jun 2014 08:02:20 GMT

> �� , �� . �� .
> ��
> �� , �� . �� 4 ��
> �� , ��
> �� .

��, �� .

�� (McLeod095)

Thu, 05 Jun 2014 07:10:08 GMT

>> �� cp1251 �� Simple::XML
>> �� url � �� squid
>> �
>> domains ��
>> ips �� ip ��, � �� iptables+ipset
>> �� blockDomains �� /etc/hosts
>> � �� dnsmasq, ��
>> �� .
> �� , �� "domain", ip
> �� .

�� , �� . �� .
��
�� , �� . �� 4 �� , �� .

OpenForum RSS: ������ ������� � ����� �������������

������ ������� � ����� ������������� (�����)

������ ������� � ����� ������������� (dlyserg)

������ ������� � ����� ������������� (Hammer)

������ ������� � ����� ������������� (dlyserg)

������ ������� � ����� ������������� (Hammer)

������ ������� � ����� ������������� (McLeod095)

������ ������� � ����� ������������� (�������)

������ ������� � ����� ������������� (Hammer)

������ ������� � ����� ������������� (McLeod095)

OpenForum RSS: ��

�� (��)

�� (dlyserg)

�� (Hammer)

�� (dlyserg)

�� (Hammer)

�� (McLeod095)

�� (��)

�� (Hammer)

�� (McLeod095)