Changeset 2156
- Timestamp:
- 04/30/07 21:51:59 (2 years ago)
- Files:
-
- Trunk/Scripts/Metrics_scripts/UserMetrics.pm (modified) (4 diffs)
- Trunk/Scripts/Mirroring_scripts/RunDaily.pl (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
Trunk/Scripts/Metrics_scripts/UserMetrics.pm
r1948 r2156 36 36 #################################################################### 37 37 sub Process { 38 my ($parameters ) = @_; 39 my %parms = %$parameters; 40 my $debug = $parms{"debug"}; 41 my ($userlist, $total) = ReadDir(\%parms) ; 42 PrintResults(\%parms, $userlist, $total) || die "UserSubmissions error: $?"; 38 my ($parms ) = @_; 39 my $debug = $$parms{"debug"}; 40 my ($userlist, $total) = ReadDir($parms) ; 41 PrintResults($parms, $userlist, $total) || die "UserSubmissions error: $?"; 43 42 } 44 43 45 44 sub ReadDir { 46 my ($parameters ) = @_; 47 my %parms = %$parameters; 48 my $debug = $parms{"debug"}; 49 my $Dir = $parms{"Main_16kHz_16bit"}; 45 my ($parms ) = @_; 46 my $debug = $$parms{"debug"}; 47 my $Dir = $$parms{"Main_16kHz_16bit"}; 50 48 opendir(DIR, $Dir) || die ("Unable to open file: $Dir"); 51 49 my @dirlist = readdir(DIR); … … 57 55 my(@sub_dir) = split(/-/, $sub_dir); 58 56 my $username = shift(@sub_dir); 59 my ($sub_total) = ProcessDir( \%parms, $sub_dir, $username);57 my ($sub_total) = ProcessDir($parms, $sub_dir, $username); 60 58 $total = $total + $sub_total; 61 59 if (defined($userlist{"$username"})){} else {$userlist{"$username"} = 0;} … … 69 67 70 68 sub ProcessDir { 71 my ($parameters, $sub_dir, $user ) = @_; 72 my %parms = %$parameters; 73 my $debug = $parms{"debug"}; 74 my $Dir = $parms{"Main_16kHz_16bit"}; 69 my ($parms, $sub_dir, $user ) = @_; 70 my $debug = $$parms{"debug"}; 71 my $Dir = $$parms{"Main_16kHz_16bit"}; 75 72 my $total = 0; 76 73 my($f) = File::Util->new(); … … 97 94 98 95 sub PrintResults { 99 my ($parameters, $userlist, $total ) = @_; 100 my %parms = %$parameters; 101 my $debug = $parms{"debug"}; 102 my $VF_Metrics_dir = $parms{"VF_Metrics_dir"}; 96 my ($parms, $userlist, $total ) = @_; 97 my $debug = $$parms{"debug"}; 98 my $VF_Metrics_dir = $$parms{"VF_Metrics_dir"}; 103 99 my %userlist = %$userlist; 104 100 #foreach my $username (sort keys(%user)) { Trunk/Scripts/Mirroring_scripts/RunDaily.pl
r2139 r2156 71 71 #AcousticModel::Create(\%parms) || die "UserSubmissions error: $?"; 72 72 73 NightlyTest::Process(\%parms) || die "UserSubmissions error: $?";73 #NightlyTest::Process(\%parms) || die "UserSubmissions error: $?"; 74 74 #TarFiles::Create($parms); 75 75 #Rsync(); 76 #UserMetrics::Process(\%parms) || die "UserSubmissions error: $?";76 UserMetrics::Process(\%parms) || die "UserSubmissions error: $?"; 77 77 78 78 print STDOUT "!!!!!!run_daily completed\n";