#! /usr/bin/perl

use strict ;
use warnings ;

my $CMD = 'net ads info' ;
my $PAT = qr/^Last machine account password change.*\b1970\b/i ;

my $prog = substr $0, rindex ( $0, '/' ) + 1 ;
my $Usage = <<USAGE ;
Usage: $prog [-v] [-q] [-d] [-f] args
option v : be verbose
option q : be quiet
option d : show debug info
option f : action ; otherwise dry-run
USAGE
sub Usage { die "$_[0]$Usage" ; }
sub Error { die "[error] $prog: $_[0]\n" ; }
sub Warn  { warn "[warn] $prog: $_[0]\n" ; }

# usage: &GetOptions(ARG,ARG,..) defines $opt_ID as 1 or user spec'ed value
# usage: &GetOptions(\%opt,ARG,ARG,..) defines $opt{ID} as 1 or user value
# ARG = 'ID' | 'ID=SPC' | 'ID:SPC' for no-arg, required-arg or optional-arg
# ID  = perl identifier
# SPC = i|f|s for integer, fixedpoint real or string argument

use Getopt::Long ;
Getopt::Long::config ( 'no_ignore_case' ) ;
my %opt = () ; Usage '' unless GetOptions
  ( \%opt, qw(v q d f) ) ;
Usage "Arg count\n" unless @ARGV >= 0 ;

$opt{v} ||= $opt{d} ;

my $TAG = $opt{f} ? 'DID' : 'WOULD' ;

open CMD, '-|', $CMD or Error "can't popen $CMD ($!)" ;
my @CMD = <CMD> ;
close CMD ;
my $cnt = grep { $_ =~ $PAT } @CMD ;
printf "%s\n", join '', map "GOT : $_", @CMD if $opt{d} ;
printf "found $cnt lines matching $PAT\n" if $opt{v} ;
printf "res %d\n", $cnt ;

# END { printf "$prog : *** this is a DRY-RUN ***\n" unless $opt{f} ; }