[ros-diffs] [gedmurphy] 21415: add basic audit progress script

[aleksey at studiocerebral.com]

Author: gedmurphy
Date: Thu Mar 30 17:39:58 2006
New Revision: 21415

URL: http://svn.reactos.ru/svn/reactos?rev=21415&view=rev
Log:
add basic audit progress script

Added:
    trunk/web/reactos.org/scripts/audit_progress.pl

Added: trunk/web/reactos.org/scripts/audit_progress.pl
URL: http://svn.reactos.ru/svn/reactos/trunk/web/reactos.org/scripts/audit_progress.pl?rev=21415&view=auto
==============================================================================
--- trunk/web/reactos.org/scripts/audit_progress.pl (added)
+++ trunk/web/reactos.org/scripts/audit_progress.pl Thu Mar 30 17:39:58 2006
@@ -1,0 +1,59 @@
+#!/usr/bin/perl
+
+# This script runs on a machine with access to a local ReactOS repositry
+# Issues with the SVN perl bindings made this method easier.
+# Also requires svn in your path.
+
+use strict;
+use warnings;
+
+my $in_path  = "/reactos";            # enter the local path of the main reactos folder
+my $out_file = "/progress_bar.html";  # enter the html output path
+my $log_file = "/audit_progress.log"; # enter the log file path
+my $total_width = 200;
+my ($unclean_files, $total_files, $todo_width, $done_width, $done_pct);
+
+open HTML, "> $out_file"
+    or die "couldn't open $out_file for writing: $!\n";
+
+my @files = `svn ls -v -R $in_path`;
+
+foreach (@files) {
+    next if /\/$/;
+    $total_files++;
+    if (/\sO\s/) {
+        $unclean_files++;
+    }
+}
+
+if ($unclean_files != 0) {
+    $todo_width = ($unclean_files / $total_files) * $total_width;
+    $done_width  = (($total_files - $unclean_files) / $total_files) * $total_width;
+    $done_pct = (($total_files - $unclean_files) / $total_files) * 100;
+} else {
+    $todo_width = 0;
+    $done_width = $total_width;
+    $done_pct = 100;
+}
+
+output_html();
+
+open LOG, ">> $log_file"
+    or die "couldn't open $log_file for writing: $!\n";
+my $date = localtime;
+print LOG "$date  :  total files = $total_files\tfiles unaudited = $unclean_files\tcompleted $done_pct%\n";
+
+
+
+
+sub output_html {
+    print HTML  "<center>\n";
+    print HTML  "  <img border=\"0\" src=\"http://www.reactos.org/images/progress-end.gif\" width=\"1\" height=\"20\">";
+    printf HTML "<img border=\"0\" src=\"http://www.reactos.org/images/progress-done.gif\" width=\"%d\" height=\"20\">", $done_width;
+    printf HTML "<img border=\"0\" src=\"http://www.reactos.org/images/progress-todo.gif\" width=\"%d\" height=\"20\">", $todo_width;
+    print HTML  "<img border=\"0\" src=\"http://www.reactos.org/images/progress-end.gif\" width=\"1\" height=\"20\">\n";
+    print HTML  "  <br>\n";
+    printf HTML "  <font size=\"2\" face=\"Verdana, Arial, Helvetica, sans-serif\">%.1f%% complete</font>\n", $done_pct;
+    print HTML  "</center>\n";
+}
+