Документ взят из кэша поисковой машины. Адрес оригинального документа : http://hea-www.harvard.edu/~fine/Tech/mkjstree Дата изменения: Fri Jun 2 22:36:31 2000 Дата индексирования: Mon Oct 1 23:01:34 2012 Кодировка: Поисковые слова: http astrokuban.info astrokuban

#!/usr/bin/perl

$IMGDIR="images/web";

&do_tree($cvsroot);

print "\n";

#
# END OF MAIN
#

sub do_tree {
local($search)=$_[0];
local($dir,$user,$group,$wd,$d,$f,$initdepth,$depth);
local(@curdirs);
local(@curfils);

#
# FORMAT:
#
# INDENT=2
#
# http://foo.bar.com/blah Link Text | nonlink text
# http://foo.bar.com/blah/subdir Link Text | with a pipe

print "\n";

}

sub getparent {
local($start,$num)=($_[0],$_[1]);
local($i);
local($parent)=$start;
for ($i=0; $i<$num; ++$i) {
$parent=$tree{$parent,"parent"};
}
return($parent);
}