#!/usr/bin/perl use warnings; use strict; use Net::SSH2; use Data::Dumper; # see maillist archives at # http://lists.sourceforge.net/lists/listinfo/ssh-sftp-perl-users my $ssh2 = Net::SSH2->new(); $ssh2->connect(‘localhost’) or die “Unable to connect Host $@ \n”; #this works for passwords #$ssh2->auth_password(‘z’,’ztester’) or die “Unable to login $@ \n”; #do key authorization like commandline shell # ssh -o PreferredAuthentications=publickey localhost # See: http://cfm.gs.washington.edu/security/ssh/client-pkauth/ […]
Debian Install Packages behind Firewall apt-get –print-uris install mysql-server -y Will print out the URL for the package and dependancies; ‘http://mirrordirector.raspbian.org/raspbian/pool/main/liba/libaio/libaio1_0.3.109-3_armhf.deb’ libaio1_0.3.109-3_armhf.deb 8944 MD5Sum:ddc43710db3f102df9477a8a95f025ad ‘http://mirrordirector.raspbian.org/raspbian/pool/main/m/mysql-5.5/mysql-server-core-5.5_5.5.40-0+wheezy1_armhf.deb’ mysql-server-core-5.5_5.5.40-0+wheezy1_armhf.deb 3060608 MD5Sum:9a8f4620799fcceb4567433caad2434e ‘http://mirrordirector.raspbian.org/raspbian/pool/main/m/mysql-5.5/mysql-server-5.5_5.5.40-0+wheezy1_armhf.deb’ mysql-server-5.5_5.5.40-0+wheezy1_armhf.deb 1729934 MD5Sum:98fe33dd64039ba120d1aa77e0992fa7 ‘http://mirrordirector.raspbian.org/raspbian/pool/main/h/heirloom-mailx/heirloom-mailx_12.5-2+deb7u1_armhf.deb’ heirloom-mailx_12.5-2+deb7u1_armhf.deb 253508 MD5Sum:6155feba05b677f5f01eb5b53ae4ba2d ‘http://mirrordirector.raspbian.org/raspbian/pool/main/libh/libhtml-template-perl/libhtml-template-perl_2.91-1_all.deb’ libhtml-template-perl_2.91-1_all.deb 72020 MD5Sum:b25cc0a02e43fe4b5b46a01af3e98c4c ‘http://mirrordirector.raspbian.org/raspbian/pool/main/m/mysql-5.5/mysql-server_5.5.40-0+wheezy1_all.deb’ mysql-server_5.5.40-0+wheezy1_all.deb 73872 MD5Sum:b49873c3a32d33f6186e779202f6a87e Cut out the URLs and put them into a file. […]
On the firewalled/vpnd server; 1. find the package URL apt-get –print-uris install dos2unix 2. wget over ssh from an internet bound server on the same network ssh use@somehost ‘wget -O – http://mirrordirector.raspbian.org/raspbian/pool/main/d/dos2unix/dos2unix_6.0-1_armhf.deb’ >> dos2unix_6.0-1_armhf.deb 3. dpkg -i dos2unix_6.0-1_armhf.deb
Perl – Sending Email with NET::SMTP using username and password First of all double check that Authen::SASL is an installed module.. If you are not getting emails this could be why – it doesnt provide an error that is understandable! #!/usr/bin/perl ### ENSURE Authen::SASL is installed use Net::SMTP; use strict; use warnings; my $host= ‘yourhostname’; […]
If your mail server is left open, anyone can use your SMTP service to send mail, and spammers will use it. This can result in your server being blacklisted and extraneous use of system resources that neither benefit you nor your users. Postfix logoTo secure Postfix, there are a number of functions you can add […]
Looking into IO::Socket at http://search.cpan.org/src/GBARR/IO-1.2301/IO/Socket.pm reveals: [perl] sub send { @_ >= 2 && @_ <= 4 or croak ‘usage: $sock->send(BUF, [FLAGS, [TO]] +)’; my $sock = $_[0]; my $flags = $_[2] || 0; my $peer = $_[3] || $sock->peername; croak ‘send: Cannot determine peer address’ unless($peer); [/perl] So you have to take care that […]
Perl – Is a value decimal, real or a string? To validate if a number is a number using regex. [perl] $number = “12.3”; if ($number =~ /\D/) { print “has nondigits\n” } if ($number =~ /^\d+$/) { print “is a whole number\n” } if ($number =~ /^-?\d+$/) { print “is an integer\n” } if […]
#!/usr/local/bin/perl use strict; use warnings; print “Starting main program\n”; my @childs; for ( my $count = 1; $count <= 10; $count++) { my $pid = fork(); if ($pid) { # parent #print “pid is $pid, parent $$\n”; push(@childs, $pid); } elsif ($pid == 0) { # child sub1($count); exit 0; } else […]
<? print “Starting main program\n”; $childs = array(); for ( $count = 1; $count <= 10; $count++) { $pid = pcntl_fork(); if ( $pid == -1 ) { // Fork failed echo “Fork failed\n”; exit(1); } else if ( $pid ) { # parent #print “pid is $pid, parent $$\n”; array_push($childs, $pid); } […]
Mr. Peabody Explains fork() Introduction How Windows Does It How Unix Does It So Why Do People Want the Unix Way? How does it work in Perl? Introduction UNIX – Fork Explained Say, Mr Peabody. I was just reading through the Perl 5.6 release notes and noticed that a new function called fork() is now […]