10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Experts - I have a snippet of code I can't figure out. I was hoping someone could help me here.
I have a file of IPv6 address that I need to format correct.
Example in:
2620:0:2d0:200::7
2620:0:2d0:200:a0:c
2620:0a:3f0:200:a0:c
I need to convert them to:... (3 Replies)
Discussion started by: timj123
3 Replies
2. Shell Programming and Scripting
I have a existing perl program , in this program it will output a email address list to a variable ( $email_list ) , mail content to a variable ( $email_content ) , if I want to send all email to these email address with corresponding content , would aadivse how to write a perl script ?
thanks (2 Replies)
Discussion started by: ust3
2 Replies
3. Web Development
My .NET website invokes a perl script to perform GIT operations on Gerrit server running UBuntu. In the perl script I connect using passwordless authentication to Gerrit server as below:
system ( "ssh gitadmin@gerritserver.com 'cd /xyz && git clone xxx' ");
I verified that ssh authentication... (3 Replies)
Discussion started by: tkota
3 Replies
4. Shell Programming and Scripting
I've spent a good two weeks on trying to figure out a proper way to get the mime type of a file. The "file" command on the Sparc machine I'm working on is an older version and does not support the --mime flag. It outputs things like:
somefile.pdf: Adobe Portable Document Format (PDF) v1.5
... (3 Replies)
Discussion started by: mrwatkin
3 Replies
5. Shell Programming and Scripting
So, I installed the Net::OpenSSH module and I am having trouble getting it to work. It appears to be failing on this code:
my $ssh = Net::OpenSSH->new('user:passwd@host.com');
$ssh->error and
die "Couldn't establish SSH connection: ". $ssh->error;
It's pretty simple code. I keep... (0 Replies)
Discussion started by: mrwatkin
0 Replies
6. Shell Programming and Scripting
Wondering if anyone can help or advise on following issue.
The below script should simply connect to a different server and retrieve certain files for me.
use lib "/xxxxx/xxxxx/xxxxx/xxxx";
use Net::FTP;
my $directory = "xxxxxxxx";
my $destinationDir = "xxxxxxxxx";
my $filePrefix =... (1 Reply)
Discussion started by: meevagh
1 Replies
7. Shell Programming and Scripting
I am trying to execute a script in another server, i used Net::Ftp module
How to execute unix command in another server by using Net::Ftp module..
#!/usr/bin.perl
### Perl script to
$ftp->login($user_name,'password')
or die "Cannot login ", $ftp->message;... (2 Replies)
Discussion started by: pritish.sas
2 Replies
8. Shell Programming and Scripting
Hello,
I'm a newbie perl scriptor and i'm trying to figure out why i can't send an email using MIME::Lite with Net::SMTP. I keep receiving the following error:
SMTP MAIL command failed:
5.7.1 Helo invalid .
at attach1.pl line 31
The error keeps coming from the very last line... (2 Replies)
Discussion started by: xmaverick
2 Replies
9. Shell Programming and Scripting
I am looking for a full Perl course on internet (tutorial) to learn everything about Perl. I already know a bunch of programing languages.
I have started Unix interests this year ever since I installed Ubuntu Linux on my PC AND I also got a job at IBM doing software distributions with... (1 Reply)
Discussion started by: Browser_ice
1 Replies
10. Shell Programming and Scripting
Hi,
I have read the related posts by perleo and those who assisted. I wish to do a similar thing, in that I wish to use the Net:smtp module.
I have downloaded it and followed the instructions for the install.
When I check the perldoc net::smtp, the information returns (thus showing it... (1 Reply)
Discussion started by: cheng
1 Replies
Server::Relay(3pm) User Contributed Perl Documentation Server::Relay(3pm)
NAME
Net::SMTP::Server::Relay - A simple relay module 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::Relay module implements simple SMTP relaying for use with the Net::SMTP::Server module. All this module does is to
take a given message and iterate through the list of recipients, doing DNS lookups for the associated MX record and delivering the
messages. This module makes extensive use of the plethora of other modules already implemented for Perl (specifically the DNS and
Net::SMTP modules in this case), and should give but a glimpse of the potential for extending the Net::SMTP::Server's functionality to
provide a full-featured SMTP server, native to Perl.
The above example illustrates the use of the Net::SMTP::Server::Relay modules -- you simply have to instantiate the module, passing along
the sender, recipients, and message. More formally:
$relay = new Net::SMTP::Server::Relay($from, @to, $msg);
Where $from is the sender, @to is an array containing the list of recipients, and $msg is the message to relay.
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::Client
perl v5.10.1 1999-12-28 Server::Relay(3pm)