This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
env.niceName = 'Build Name' | |
pipeline { | |
agent any | |
//agent { label "jenkins-node-1"} | |
triggers { | |
cron () | |
} | |
stages { | |
stage ('Stage Name') { |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
my $input = $ARGV[0]; | |
if ($input !~ /.*@.*/) { | |
print "Please enter a valid email address.\n"; | |
die("\n"); | |
} | |
else{ |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
use IO::Interface::Simple; | |
my @interfaces = IO::Interface::Simple->interfaces; | |
for my $interfaces (@interfaces) { | |
print $interfaces->address . "\n"; | |
} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
use Net::DNS::Check; | |
sub check_domain_resolution { | |
my $domain = $ARGV[0]; | |
if (!defined $domain) { |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
use Sys::Hostname; | |
sub check_hostname{ | |
my $host = hostname; | |
my $domain = $ARGV[0]; | |
if ($domain eq $host) { |