mshock

## ppm_getmods.pl
#! perl -w

# read exported ppm csv list and install all missing modules

use strict;

# first make sure everything is up to date
print "updating all installed modules...\n";
print `ppm upgrade --install`;
print "\ndone\n\n";

## ppm_list.csv

          
            name
            version
            files
            size
            area

            
              ANSIColor
              3.00
              0
              0
              perl

            
              ActivePerl-CPAN-Config
              1.0
              2
              1900
              perl

            
              ActivePerl-Config
              1.3
              2
              17865
              perl

            
              ActivePerl-DocTools
              2.4
              13
              63474
              perl

            
              ActivePerl-IIS-Config
              1.0
              0
              0
              perl

            
              ActivePerl-PPM
              4.14
              64
              622271
              perl

            
              ActiveState-PerlCritic
              10.0
              24
              191887
              perl

            
              ActiveState-RelocateTree
              1.4
              4
              29505
              perl

            
              ActiveState-Scineplex
              1.1
              7
              86307
              perl

## reconst_truth.pl
# useful to implement in many scripts that need to verify user input from CLI or config files
use constant REGEX_TRUE => qr/^\s*(?:true|(?:t)|(?:y)|yes|(?:1))\s*$/i;

## tab.pl
#! /usr/bin/perl -w

use Term::ReadKey;

# make STDOUT hot
$| = 1;
$string = '';
$done = 0;
# get your dir listing
opendir($dh, '.');

## restart_services.pl
# /usr/bin/perl
# child process to background
# poll windows services and re-enable + start them

use Win32::Service;
use Win32::OLE;
use strict;

# set logfile location
my $logfile = 'log.txt';
	#! perl -w

	# read exported ppm csv list and install all missing modules

	use strict;

	# first make sure everything is up to date
	print "updating all installed modules...\n";
	print `ppm upgrade --install`;
	print "\ndone\n\n";
name	version	files	size	area
ANSIColor	3.00	0	0	perl
ActivePerl-CPAN-Config	1.0	2	1900	perl
ActivePerl-Config	1.3	2	17865	perl
ActivePerl-DocTools	2.4	13	63474	perl
ActivePerl-IIS-Config	1.0	0	0	perl
ActivePerl-PPM	4.14	64	622271	perl
ActiveState-PerlCritic	10.0	24	191887	perl
ActiveState-RelocateTree	1.4	4	29505	perl
ActiveState-Scineplex	1.1	7	86307	perl
	# useful to implement in many scripts that need to verify user input from CLI or config files
	use constant REGEX_TRUE => qr/^\s(?:true\|(?:t)\|(?:y)\|yes\|(?:1))\s$/i;
	#! /usr/bin/perl -w

	use Term::ReadKey;

	# make STDOUT hot
	$\| = 1;
	$string = '';
	$done = 0;
	# get your dir listing
	opendir($dh, '.');
	# /usr/bin/perl
	# child process to background
	# poll windows services and re-enable + start them

	use Win32::Service;
	use Win32::OLE;
	use strict;

	# set logfile location
	my $logfile = 'log.txt';