#!/bin/bash
JSON=$(for i in `cat /etc/zabbix/scripts/domains.txt | grep -v '#'`; do printf "{\"{#DOMAIN}\":\"$i\"},"; done | sed 's/^\(.*\).$/\1/')
printf "{\"data\":["
printf "$JSON"
printf "]}"

#!/usr/bin/perl
use strict;
use warnings;
use DateTime;
use DateTime::Format::DateParse; # yum install perl-DateTime-Format-DateParse
use DateTime::Format::Natural;   # yum install perl-DateTime-Format-Natural
use Data::Dumper;

# ====== Preferences and constants ====== #
my $debug=0;
my $WHOIS = '/usr/bin/whois';
my $expire;
# ========= End of preferences ========== #

my $domain = shift;
die "Usage: $0 <domain>\n" if !$domain;
exit if $domain eq '#';

my @OUT = `$WHOIS $domain`;

foreach my $line (@OUT) {
    chomp $line;
    # Registry Expiry Date: 2021-10-13T20:03:46Z
    if ($line =~ /.*Expiry.*:\s(.+)$/i) {
        print "Rule nuber 1 faired! \n" if $debug;
        $expire = DateTime::Format::DateParse->parse_datetime($1)->epoch;
    }
    # Record expires on: Sat Feb  8 16:51:25 2020
    if ($line =~ /.*expires.*:\s(.+)$/i) {
        print "Rule nuber 2 faired! \n" if $debug;
        $expire = DateTime::Format::DateParse->parse_datetime($1)->epoch;
    }
    # free-date:     2020-01-14
    if ($line =~ /.*free-date.*:\s(.+)$/i) {
        print "Rule nuber 3 faired! \n" if $debug;
        $expire = DateTime::Format::DateParse->parse_datetime($1)->epoch;
    }
    # expire:       22.10.2020
    if ($line =~ /expire:\s+(.+)$/i) {
        print "Rule nuber 4 faired! \n" if $debug;
        my $parser = DateTime::Format::Natural->new;
        $expire = $parser->parse_datetime($1)->epoch;
    }
    # Expiration Date: 10-oct-2020
    if ($line =~ /^Expiration Date:\s(\d+-\S+-\d+)$/) {
        print "Rule nuber 5 faired! \n" if $debug;
        $expire = DateTime::Format::DateParse->parse_datetime($1)->epoch;
    }
    # Expiration Date:22-Oct-2021 10:32:44 UTC
    if ($line =~ /^Expiration Date:(\d+-\S+-\d+ \d+:\d+:\d+ \S+)$/) {
        print "Rule nuber 6 faired! \n" if $debug;
        $expire = DateTime::Format::DateParse->parse_datetime($1)->epoch;
    }
}
die "Unable get expire for domain $domain" if !$expire;
print "Doman: $domain expire: $expire \n" if $debug;


#print $expire->strftime('%F %T'),"\n";
my $now = time;
my $time_left=int(($expire-$now)/60/60/24);
print "$time_left \n";