[LON-CAPA-cvs] cvs: modules /raeburn FIE_usage.pl

[albertel]

albertel		Thu May 25 17:29:40 2006 EDT

  Modified files:              
    /modules/raeburn	FIE_usage.pl 
  Log:
  - make everything created in local dir
  
  
Index: modules/raeburn/FIE_usage.pl
diff -u modules/raeburn/FIE_usage.pl:1.4 modules/raeburn/FIE_usage.pl:1.5
--- modules/raeburn/FIE_usage.pl:1.4	Thu May 25 17:28:00 2006
+++ modules/raeburn/FIE_usage.pl	Thu May 25 17:29:37 2006
@@ -81,12 +81,12 @@
 my $timenow = time();
 
 my $output = '';
-open (SUMM,">/home/raeburn/fie/data/summary.txt");
+open (SUMM,">fie-data-summary.txt");
 print SUMM "ID,CourseCode,Enrollment,Cloned,Items,Problems,Exams,Surveys,Allproblems,Essay,Match,Numerical,Option,Radiobutton,String,Formula,Rank,Images,NumResponses,gnuplot,multipart,Scripts,Functions,Duplicates,Hidden,Encrypted,Conditional,Randompicks,Embedded-res,Embedded-upload,Scantron,Imported,Homegrown,HomeDomain,Uploaded,WithDiscussion,NoDiscussion,TotalPosts,Broadcast,Critical,UserNotes,examupload,Calendar\n";
 
 # For each domain ......
 foreach my $dom (@domains) {
-    open(LOG,">/home/raeburn/fie/data/domain_$dom.txt");
+    open(LOG,">fie-data-domain-$dom.txt");
     my $dc = 'fietester';
     my $lonidsdir='/home/httpd/lonIDs';
     my $handle = 'fietester_1142872930_msu_msul1';
@@ -514,7 +514,7 @@
 foreach my $cc (@allowners) {
     foreach my $cid (@{$ownedcourses{$cc}}) {
         my ($sem) = ($cparms{$cid}{'coursecode'} =~ /^(\w{2}\d{2})/);
-        open(FILE,">/home/raeburn/fie/data/$sem/$cid.txt");
+        open(FILE,">fie-data-$sem-$cid.txt");
         print FILE "total items = $crsitems{$cid}\n";
         foreach my $key (sort(keys(%{$cparms{$cid}}))) {
             print FILE "$key = $cparms{$cid}{$key}\n";
@@ -678,7 +678,7 @@
     }
     close(FILE);
     my ($uname,$udom) = split/:/,$cc;
-    open(OWNER,">/home/raeburn/fie/data/$uname$udom.dat");
+    open(OWNER,">fie-data-$uname-$udom.dat");
     print OWNER "Total number of courses for $ownernames{$cc} ($cc) = $ownercourses{$cc}\n";    
     %{$totals{$cc}} = ();
     %{$sizes{$cc}} = ();