Index: openacs-4/packages/user-tracking/tcl/user-tracking-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/tcl/user-tracking-procs.tcl,v diff -u -N -r1.2.2.1 -r1.2.2.2 --- openacs-4/packages/user-tracking/tcl/user-tracking-procs.tcl 28 Jun 2005 09:27:30 -0000 1.2.2.1 +++ openacs-4/packages/user-tracking/tcl/user-tracking-procs.tcl 25 Oct 2005 00:44:43 -0000 1.2.2.2 @@ -85,7 +85,8 @@ 4 { set site_p 1} } } - set binPerl [parameter::get -parameter "PerlPath"] + set binPerl [parameter::get -parameter "PerlPath" -default "/usr/bin/perl" ] + ns_log notice "LEIDO $binPerl" if {[exists_and_not_null all_users_p]} { @@ -94,7 +95,9 @@ db_foreach user "select user_id from cc_users" { ns_log notice "USER: $user_id" set execAnalyzer [list "$binPerl" "[user-tracking::get_user_tracking_dir]/www/awstats/cgi-bin/awstats_dotlrn.pl" "-config=site" "-update" "-onlyusers=$user_id"] + ns_log notice $execAnalyzer catch {exec [lindex $execAnalyzer 0] [lindex $execAnalyzer 1] [lindex $execAnalyzer 2] [lindex $execAnalyzer 3] [lindex $execAnalyzer 4]} aux + ns_log notice $aux } } if {[exists_and_not_null all_communities_p]} {