File:
[LON-CAPA] /
loncom /
debugging_tools /
clone_trace.pl
Revision
1.1:
download - view:
text,
annotated -
select for diffs
Tue Mar 13 01:14:06 2007 UTC (17 years, 6 months ago) by
albertel
Branches:
MAIN
CVS tags:
version_2_9_X,
version_2_9_99_0,
version_2_9_1,
version_2_9_0,
version_2_8_X,
version_2_8_99_1,
version_2_8_99_0,
version_2_8_2,
version_2_8_1,
version_2_8_0,
version_2_7_X,
version_2_7_99_1,
version_2_7_99_0,
version_2_7_1,
version_2_7_0,
version_2_6_X,
version_2_6_99_1,
version_2_6_99_0,
version_2_6_3,
version_2_6_2,
version_2_6_1,
version_2_6_0,
version_2_5_X,
version_2_5_99_1,
version_2_5_99_0,
version_2_5_2,
version_2_5_1,
version_2_5_0,
version_2_4_X,
version_2_4_99_0,
version_2_4_2,
version_2_4_1,
version_2_4_0,
version_2_3_99_0,
version_2_12_X,
version_2_11_X,
version_2_11_5_msu,
version_2_11_5,
version_2_11_4_uiuc,
version_2_11_4_msu,
version_2_11_4,
version_2_11_3_uiuc,
version_2_11_3_msu,
version_2_11_3,
version_2_11_2_uiuc,
version_2_11_2_msu,
version_2_11_2_educog,
version_2_11_2,
version_2_11_1,
version_2_11_0_RC3,
version_2_11_0_RC2,
version_2_11_0_RC1,
version_2_11_0,
version_2_10_X,
version_2_10_1,
version_2_10_0_RC2,
version_2_10_0_RC1,
version_2_10_0,
loncapaMITrelate_1,
language_hyphenation_merge,
language_hyphenation,
bz6209-base,
bz6209,
bz5969,
bz2851,
PRINT_INCOMPLETE_base,
PRINT_INCOMPLETE,
HEAD,
GCI_3,
GCI_2,
GCI_1,
BZ5971-printing-apage,
BZ5434-fox,
BZ4492-merge,
BZ4492-feature_horizontal_radioresponse,
BZ4492-feature_Support_horizontal_radioresponse,
BZ4492-Support_horizontal_radioresponse
- helper script to folow the cloning history of a course
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: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>