Return to clone_trace.pl CVS log

Up to [LON-CAPA] / loncom / debugging_tools

Annotation of loncom/debugging_tools/clone_trace.pl, revision 1.1

1.1     ! albertel    1: use strict;
        !             2: use lib '/home/httpd/lib/perl/';
        !             3: use LONCAPA;
        !             4: use GDBM_File;
        !             5: 
        !             6: while (my $curl = shift) {
        !             7:     (my $domain,my $cid) = &LONCAPA::split_courseid($curl);
        !             8:     print("Clone history for $curl".$/);
        !             9:     while ($cid) {
        !            10: 	print("\t$curl ");
        !            11: 
        !            12: 	my $envdb = &propath($domain,$cid).'/environment.db';
        !            13: 	my $dbref=&LONCAPA::locking_hash_tie($envdb,&GDBM_READER());
        !            14: 	$curl = &unescape($dbref->{'clonedfrom'});
        !            15: 	my $desc = &unescape($dbref->{'description'});
        !            16: 	&LONCAPA::locking_hash_untie($dbref);
        !            17: 
        !            18: 	print("($desc) <- ".$/);
        !            19: 
        !            20: 	($domain,$cid) = &LONCAPA::split_courseid($curl);
        !            21:     }
        !            22:     print("no clone info".$/);
        !            23: }