Annotation of loncom/homework/CAPA-converter/conversion_wrapper/convert.pl, revision 1.1
1.1 ! albertel 1: #!/usr/bin/perl
! 2:
! 3: if ($#ARGV != 1) {
! 4: print "Correct command usage: \n";
! 5: print " perl convert.pl [DIRECTORY_TO_CONVERT] [NEW_DIRECTORY]\n";
! 6: }
! 7:
! 8: $olddir = $ARGV[0];
! 9: $newdir = $ARGV[1];
! 10:
! 11: @problem = `ls -B $olddir/ | grep -v bak`;
! 12: chomp @problem;
! 13:
! 14: for($index=0;$index<=$#problem;$index++) {
! 15: $newprob = $problem[$index];
! 16: $newprob =~ s/txt/problem/;
! 17: # $newprob = $newprob.".problem";
! 18: open( CONVERT, ">$newdir/$newprob" );
! 19: print CONVERT "<problem>\n";
! 20: $convert =
! 21: `/home/felicia/loncapa/loncom/homework/CAPA-converter/Linux/convert -f
! 22: $olddir/$problem[$index]`;
! 23: print CONVERT "$convert";
! 24: print CONVERT "\n</problem>\n";
! 25: close CONVERT;
! 26: }
! 27:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>