Index: /trunk/ippTests/tap/mailTestResults.pl
===================================================================
--- /trunk/ippTests/tap/mailTestResults.pl	(revision 25041)
+++ /trunk/ippTests/tap/mailTestResults.pl	(revision 25041)
@@ -0,0 +1,34 @@
+#!/usr/bin/perl -w
+
+use strict;
+use warnings;
+
+use Email::Send;
+
+my $email="giebink\@ifa.hawaii.edu";
+
+my $today = `date -u +%Y%m%d`;
+my $logfile = "/data/ipp001.0/ippTests/tap/summary";
+
+my @logcontents;
+
+#check existence of log file
+if (open (FPTR, $logfile)) {
+  @logcontents = <FPTR>;
+  } else {
+  @logcontents = "FAIL: Can't Open File: $logfile\n";
+}
+close (FPTR);
+
+my $message =<<END;
+To: $email
+From: giebink\@ifa.hawaii.edu
+Subject: $ARGV[0] test summary $today
+
+@logcontents
+
+END
+
+my $sender = Email::Send->new({mailer => 'SMTP'});
+$sender->mailer_args([Host => 'hale.ifa.hawaii.edu']);
+$sender->send($message);
Index: /trunk/ippTests/tap/proveParser.pl
===================================================================
--- /trunk/ippTests/tap/proveParser.pl	(revision 25041)
+++ /trunk/ippTests/tap/proveParser.pl	(revision 25041)
@@ -0,0 +1,24 @@
+#!/usr/bin/perl -w
+#parse tap test output
+#write summary portion to file
+
+use strict;
+use warnings;
+
+open (IF,"</data/ipp001.0/ippTests/tap/out") or die "Cannot open out file";
+open (OF, ">/data/ipp001.0/ippTests/tap/summary") or die "Cannot open summary file";
+
+my $flag = 0;
+
+while (<IF>) {
+  print $_;
+  if (/Failed Test                      Stat Wstat Total Fail  List of Failed/) {
+    $flag = 1;
+  }
+  if ($flag == 1) {
+    print OF $_;
+  }
+}
+
+close (IF);
+close (OF);
Index: /trunk/ippTests/tap/tapTest.pl
===================================================================
--- /trunk/ippTests/tap/tapTest.pl	(revision 25041)
+++ /trunk/ippTests/tap/tapTest.pl	(revision 25041)
@@ -0,0 +1,46 @@
+#!/usr/bin/perl -w
+#run weekly by cron
+
+#define directories with TAP tests
+my @testDirs = ('psLib', 'psModules', 'Nebulous-Server', 'Nebulous');
+
+#delete modules with tap tests
+system `rm -rf /data/ipp001.0/ippTests/tap/ipp/Nebulous/*`;
+
+#delete Nebulous binaries
+system `rm -rf /data/ipp001.0/ippTests/tap/usr/*`;
+
+#check out new versions, build the tests
+#run the tests and save output to file
+#parse the output and mail the results to IPP-DEV
+my $dir;
+foreach $dir (@testDirs) {
+    system `svn co http://svn.pan-starrs.ifa.hawaii.edu/repo/ipp/trunk/$dir /data/ipp001.0/ippTests/tap/ipp/$dir`;
+    chdir "/data/ipp001.0/ippTests/tap/ipp/$dir";
+    
+    if ($dir =~ m/^Nebulous-Server$/) {
+        system ("perl Build.PL --prefix=/data/ipp001.0/ippTests/tap/usr");
+        system ("Build install");
+        system ("Build test > /data/ipp001.0/ippTests/tap/summary");
+        system ("/data/ipp001.0/ippTests/tap/mailTestResults.pl $dir");
+        
+    } elsif ($dir =~ m/^Nebulous$/) {
+        chdir "/data/ipp001.0/ippTests/tap/ipp/$dir/nebclient";
+        system ("autogen.sh --prefix=/data/ipp001.0/ippTests/tap/usr");
+        system ("make");
+        chdir "/data/ipp001.0/ippTests/tap/ipp/$dir";
+        system ("perl Build.PL --prefix=/data/ipp001.0/ippTests/tap/usr");
+        system ("Build install");
+        system ("Build test > /data/ipp001.0/ippTests/tap/summary");
+        system ("/data/ipp001.0/ippTests/tap/mailTestResults.pl $dir");
+        
+    } else {
+        system ("autogen.sh --enable-tests");
+        system ("make");
+        chdir "/data/ipp001.0/ippTests/tap/ipp/$dir/test";
+        system ("./test.pl > /data/ipp001.0/ippTests/tap/out");
+        system ("/data/ipp001.0/ippTests/tap/proveParser.pl");
+        system ("/data/ipp001.0/ippTests/tap/mailTestResults.pl $dir");
+    }
+}
+