Zone=2.0.0.0/8
ParentAddress=
NetworkAddress=2.0.0.0
dnsServers=Iii0S230.svr.sark.net P 0,app1dns90.svr.sark.net S 0,txrtp1dns.svr.sark.net S 0,txrtp2dns.svr.sark.net S 0,app1dns2.svr.sark.net S 0,esfd
ns1.svr.sark.net S 0
RefreshTime=3600
ExpirationTime=1209600
RetryPeriod=900
MinimumTTL=900
NegativeCacheTTL=900
ZoneMail=hostmaster@sark.net
Extensions
Prefix of zone db file=
Postfix of zone db file=
BIND-8.X Options
allow-query=Use Server Value
allow-transfer=Use Server Value
allow-update=Use Server Value
check-names=Use Server Value
notify=Use Server Value
zone block of named.conf=
BIND-9.X Options
allow-notify=Use Server Value
allow-query=Use Server Value
allow-transfer=Use Server Value
allow-update=Use Server Value
notify=Use Server Value
zone block of named.conf=
Rich DNS 3.X Options
Import External Updates=False
allow-query=Use Server Value
allow-transfer=Use Server Value
allow-update=Use Server Value
check-names=Use Server Value
notify=Use Server Value
zone block of named.conf=
Sark DNS 4.X Options
Import External Updates=False
allow-notify=Use Server Value
allow-query=Use Server Value
allow-transfer=Use Server Value
allow-update=Use List
ACL Templates=B1DMZBP
other=3.3.3.3
notify=Use Server Value
zone block of named.conf=
WINDOWS 2000 DNS Options
aging=False
allow-transfer=Use List
List=
allow-update=No
no-refresh-interval=0
notify=Use List
List=
refresh-interval=0
zone-options=
E:\rich\cli>
Code is
Code:
#!/usr/bin/perl
$network = '2.0.0.0/8';
my $dnsoptions = `./getzoneprof -u Xx -p Xx -a $network -o Orig`;
print $dnsoptions;
Hi Wise UNIX Crew,
I want to add 3 different columns to the file in which:
1. The first new column pulls in today's date and time
2. Second column one has a '0'
3. Third column has the word 'ANY' going down the column
If my file content is as follows:
"7","a","abc",123"... (1 Reply)
I have CSV file that contains data in the format as shown below:
ABC, 67, 56, 67, 78, 89, 76, 55
PDR, 85, 83, 83, 72, 82, 89, 83
MPG, 86, 53, 54, 65, 23, 54, 75
..
..
..
..
I want to create a script that will pull out the rows from the above sheet and paste it into another CSV file.... (12 Replies)
I am trying to print file information using ffmpeg tool in perl
Here is my code
use strict;
use warnings;
use IPC::Open3;
# example
my $filename = $ARGV;
my %videoInfo = videoInfo($filename);
print "duration: " . $videoInfo{'duration'} . "\n";
print "durationsecs: " .... (0 Replies)
Hi
I have a perl script that prints all the video and audio file information(playing duration).
It works fine in one of my friends linux laptop.
But it doesn't work in my both windows and linux.
My friend told me I have to do install some module ( ppm instal ...... )
but I have no... (1 Reply)
So i'm trying to write a perl script that logins into a network switch via ssh:
#sh ip traffic
IP statistics:
Rcvd: 1460119147 total, 563943377 local destination
0 format errors, 0 checksum errors, 48401998 bad hop count
0 unknown protocol, 8379279 not a gateway
... (2 Replies)
Hi,
I have c file which contains more number of tests. two or more tests in one c file. I have the XMl data regarding tests. i need to add this xml data to c file at before the test. I know which file having which test and i created hash table for that. so the problem is i have to add information... (13 Replies)
I need to grab information from the output of the ps command.
For each line of ps output that contains _progres -b I need to get the word that follows -p. The "-p" can be anywhere after "_progres -b".
Using grep to select the correct lines is no problem (e.g. ps -ef|grep "_progres \-b|grep -v... (3 Replies)
My scenario is as follows.
1. I have a reference file with the IP addresses and names
$ cat ref.list
10.11.xxx.xxx AA
10.12.xxx.xxx BB
10.13.xxx.xxx CC
10.14.xxx.xxx DD
2. A script runs and gets me one of the IP addresses and puts it in a separate file, for e.g... (2 Replies)
In the below perl code I am using tags within each line to extract certain information. The tags that are used are:
STB >0.8 is STRAND BIAS otherwise GOOD
FDP is the second number
GO towards the end of the line is read into an array and the value returned is outputed, in the first line that... (1 Reply)
Discussion started by: cmccabe
1 Replies
LEARN ABOUT DEBIAN
net::smtp::server::client
Server::Client(3pm) User Contributed Perl Documentation Server::Client(3pm)NAME
Net::SMTP::Server::Client - Client session handling for Net::SMTP::Server.
SYNOPSIS
use Carp;
use Net::SMTP::Server;
use Net::SMTP::Server::Client;
use Net::SMTP::Server::Relay;
$server = new Net::SMTP::Server('localhost', 25) ||
croak("Unable to handle client connection: $!
");
while($conn = $server->accept()) {
# We can perform all sorts of checks here for spammers, ACLs,
# and other useful stuff to check on a connection.
# Handle the client's connection and spawn off a new parser.
# This can/should be a fork() or a new thread,
# but for simplicity...
my $client = new Net::SMTP::Server::Client($conn) ||
croak("Unable to handle client connection: $!
");
# Process the client. This command will block until
# the connecting client completes the SMTP transaction.
$client->process || next;
# In this simple server, we're just relaying everything
# to a server. If a real server were implemented, you
# could save email to a file, or perform various other
# actions on it here.
my $relay = new Net::SMTP::Server::Relay($client->{FROM},
$client->{TO},
$client->{MSG});
}
DESCRIPTION
The Net::SMTP::Server::Client module implements all the session handling required for a Net::SMTP::Server::Client connection. The above
example demonstrates how to use Net::SMTP::Server::Client with Net::SMTP::Server to handle SMTP connections.
$client = new Net::SMTP::Server::Client($conn)
Net::SMTP::Server::Client accepts one argument that must be a handle to a connection that will be used for communication.
Once you have a new client session, simply call:
$client->process
This processes an SMTP transaction. THIS MAY APPEAR TO HANG -- ESPECIALLY IF THERE IS A LARGE AMOUNT OF DATA BEING SENT. Once this method
returns, the server will have processed an entire SMTP transaction, and is ready to continue.
Once $client->process returns, various fields have been filled in. Those are:
$client->{TO} -- This is an array containing the intended
recipients for this message. There may be
multiple recipients for any given message.
$client->{FROM} -- This is the sender of the given message.
$client->{MSG} -- The actual message data. :)
AUTHOR AND COPYRIGHT Net::SMTP::Server / SMTP::Server is Copyright(C) 1999, MacGyver (aka Habeeb J. Dihu) <macgyver@tos.net>. ALL RIGHTS
RESERVED.
You may distribute this package under the terms of either the GNU General Public License or the Artistic License, as specified in the Perl
README file.
SEE ALSO
Net::SMTP::Server::Server, Net::SMTP::Server::Relay
perl v5.10.1 1999-12-28 Server::Client(3pm)