Index: unk/tools/czartool/OCMetrics.pm
===================================================================
--- /trunk/tools/czartool/OCMetrics.pm	(revision 29868)
+++ 	(revision )
@@ -1,93 +1,0 @@
-
-
-use DateTime;
-use IPC::Cmd 0.36 qw( can_run run);
-my $end = '2010-11-01';
-my $start = $czarDb->subtractInterval($end, "28 DAY");
-
-
-my $days;
-getDaysFromFullMoon($start, \$days);
-print "$start is $days from full moon\n";
-$start = $czarDb->addInterval($start, "$days DAY");
-print "=$start\n";
-getDaysFromFullMoon($end, \$days);
-print "$end is $days from full moon\n";
-$end = $czarDb->addInterval($end, "$days DAY");
-print "=$end\n";
-
-
-
-my ($beginl,$endl) = get_lunation_extent("2010-11-09");
-
-
-print "begin=$beginl end=$endl\n";
-exit;
-
-
-
-
-###########################################################################
-#
-# Calls 'moondata' program to get number of days since/to full moon for provided date
-#
-###########################################################################
-sub getDaysFromFullMoon() {
-    my ($date, $days) = @_;
-
-    my $cmd = "moondata $date 0 0";
-    my ($success, $error_code, $full_buf, $stdout_buf, $stderr_buf) =
-        run ( command => $cmd, verbose => $verbose);
-    unless ($success) {print "* Can't run '$cmd'\n"; return 0;}
-
-    my @result = split /\s+/,(join "\n", @$stdout_buf);
-    ${$days} = $result[6];
-
-    return 1;
-}
-
-sub get_lunation_extent {
-    my $date = shift;
-    my ($year,$month,$day) = split /-/,$date;
-    my $dateobs_begin;
-    my $dateobs_end;
-
-    my $dt = DateTime->new(year => $year, month => $month, day => $day,
-            hour => 0, minute => 0, second => 0, nanosecond => 0,
-            time_zone => 'Pacific/Honolulu');
-    do {
-        $dt->subtract(days => 1);
-        my $ymd = $dt->ymd;
-
-
-        my $md_cmd = "moondata $ymd 0 0";
-        my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-            run ( command => $md_cmd, verbose => $verbose);
-        unless ($success) {
-            print "can;t run '$md_cmd'\n"
-        }
-        my @result = split /\s+/,(join "\n", @$stdout_buf);
-        if (abs($result[6]) <= 0.5) {
-            $dateobs_end = $ymd;
-        }
-    } while (!defined($dateobs_end));
-
-    do {
-        $dt->subtract(days => 1);
-        my $ymd = $dt->ymd;
-        my $md_cmd = "moondata $ymd 0 0";
-        my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-            run ( command => $md_cmd, verbose => $verbose);
-        unless ($success) {
-            print "can;t run '$md_cmd'\n"
-        }
-        my @result = split /\s+/,(join "", @$stdout_buf);
-        if (abs($result[6]) <= 0.5) {
-            $dateobs_begin = $ymd;
-        }
-    } while (!defined($dateobs_begin));
-
-    return($dateobs_begin,$dateobs_end);
-}
-
-