Remove obsolete tool.
authorMattias Holmlund <mattias@sol.holmlund.se>
Fri, 1 Aug 2008 13:24:41 +0000 (15:24 +0200)
committerMattias Holmlund <mattias@sol.holmlund.se>
Fri, 1 Aug 2008 13:24:41 +0000 (15:24 +0200)
tools/mh-xmltv-runtest [deleted file]

diff --git a/tools/mh-xmltv-runtest b/tools/mh-xmltv-runtest
deleted file mode 100755 (executable)
index ca32d4c..0000000
+++ /dev/null
@@ -1,194 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-
-use File::Path qw/rmtree/;
-use File::Copy qw/move/;
-use IO::File;
-use IO::Wrap qw/wraphandle/;
-use File::Slurp qw/read_file/;
-use Data::Dumper;
-
-=pod
-
-$base/src/release (symlink to unpacked release)
-$base/src/nightly
-$base/result/release/test_grabbers.html
-$base/result/release/0/result.html
-
-=cut
-
-my $release = "0.5.50";
-
-my $base = "/home/mattias/nobackup/xmltv-test";
-my $xt = "/home/mattias/development/xmltv-tester";
-my $stdout = wraphandle( \*STDOUT );
-my $output_fh = $stdout;
-
-
-do {
-  set_output();
-  # Test latest release
-  my $srcdir = "$base/src/xmltv-$release";
-  my $resultdir = "$base/result/release";
-
-  rotate( $resultdir );
-  set_output( "$resultdir/0/build.log" );
-  make_clean( $srcdir );
-  make( $srcdir );
-
-  set_output( "$resultdir/0/test_grabbers.log" );
-  test_grabbers( $srcdir, "$resultdir/0" );
-  set_output();
-
-  generate_html( "$resultdir/0", "Release $release" );
-  update_state( "$resultdir/state.dump", "$resultdir/0/test_grabbers.dump" );
-  remove_listings( "$resultdir/0" );
-  generate_summary( $resultdir, "Release $release" );
-};
-
-do {
-  # Test nightly
-  set_output();
-  my $srcdir = "$base/src/nightly";
-  my $resultdir = "$base/result/nightly";
-
-  rotate( $resultdir );
-  set_output( "$resultdir/0/build.log" );
-  cvs_up( $srcdir );
-  make_clean( $srcdir );
-  make( $srcdir );
-
-  set_output( "$resultdir/0/test_grabbers.log" );
-  test_grabbers( $srcdir, "$resultdir/0" );
-  set_output();
-
-  generate_html( "$resultdir/0", "Nightly" );
-  update_state( "$resultdir/state.dump", "$resultdir/0/test_grabbers.dump" );
-  remove_listings( "$resultdir/0" );
-  generate_summary( $resultdir, "Nightly" );
-};
-
-run_cmd( "/tmp", "rsync -az /home/mattias/nobackup/xmltv-test/result/* upload.www2.holmlund.se:public_html/xmltv.se/validator/" );
-
-sub rotate {
-  my( $dir ) = @_;
-
-  rmtree( "$dir/9" );
-  move( "$dir/8", "$dir/9" );
-  move( "$dir/7", "$dir/8" );
-  move( "$dir/6", "$dir/7" );
-  move( "$dir/5", "$dir/6" );
-  move( "$dir/4", "$dir/5" );
-  move( "$dir/3", "$dir/4" );
-  move( "$dir/2", "$dir/3" );
-  move( "$dir/1", "$dir/2" );
-  move( "$dir/0", "$dir/1" );
-  mkdir( "$dir/0" );
-}
-
-sub cvs_up {
-  my( $dir ) = @_;
-
-  run_cmd( $dir, "cvs update -d -P" );
-}
-
-sub make_clean {
-  my( $dir ) = @_;
-
-  run_cmd( $dir,  "make clean" );
-}
-
-sub make {
-  my( $dir ) = @_;
-
-  run_cmd( $dir, "perl Makefile.PL --yes" );
-  run_cmd( $dir, "make" );
-}
-
-sub test_grabbers {
-  my( $srcdir, $resultdir ) = @_;
-
-  run_cmd( $resultdir, "$srcdir/grab/test_grabbers" );
-}
-
-sub generate_html {
-  my( $dir, $title ) = @_;
-
-  run_cmd( $dir, "$xt/tools/mh-xmltv-testlog2html " . 
-          "$dir/test_grabbers.log '$title' $dir" );
-}
-
-sub update_state {
-  my( $statefile, $lateststate ) = @_;
-
-  my $state;
-
-  if( -e $statefile ) {
-    my $statedata = read_file( $statefile );
-    $state = eval $statedata;
-  }
-  
-  my $latestdata = read_file( $lateststate );
-  my $latest = eval $latestdata;
-  
-  foreach my $grabber (keys %{$latest}) {
-    next if $grabber eq "t";
-    if( not defined( $state->{$grabber} ) ) {
-      $state->{$grabber} = { 
-         last_ok => 0,
-         last_fail => 0,
-         last_fail_message => "",
-      }
-    }
-
-    if( $latest->{$grabber} eq "ok" ) {
-      $state->{$grabber}->{last_ok} = $latest->{t};
-    }
-    else {
-      $state->{$grabber}->{last_fail} = $latest->{t};
-      $state->{$grabber}->{last_fail_message} = $latest->{$grabber};
-    }
-  }
-
-  open( OUT, "> $statefile" ) or die "open failed";
-  $Data::Dumper::Terse = 1;
-  print OUT Dumper( $state );
-  close( OUT );
-}
-
-sub remove_listings {
-  my( $dir ) = @_;
-
-  unlink( glob("$dir/*.xml") );
-  unlink( glob("$dir/*cache" ) );
-}
-
-sub generate_summary {
-  my( $dir, $title ) = @_;
-
-  run_cmd( $dir, "$xt/tools/mh-xmltv-generate-summary '$title' $dir" );
-}
-
-sub set_output {
-  my( $filename ) = @_;
-
-  $output_fh->close() if $output_fh != $stdout;
-  if( defined $filename ) {
-    $output_fh = new IO::File "> $filename";
-    die "Failed to write to $filename" if not defined $output_fh; 
-  }
-  else {
-#    $output_fh = new IO::File "> /dev/null";
-    $output_fh = $stdout;
-    die "Failed to write to /dev/null" if not defined $output_fh; 
-  }
-}
-
-sub run_cmd {
-  my( $dir, $cmd ) = @_;
-
-  my $output = qx/cd $dir; $cmd 2>&1/;
-  $output_fh->print( $output );
-}
-