inst revision 7c478bd95313f5f23a4c958a745db2134aa03244
use strict;
################################################################################
sub do_module($)
{
my $help = <<EOF;
Available commands are:
f [all|prog|doc] - List installed files of a given type
d [all|prog|doc] - List the directories used by a module
v - Validate the .packlist - check for missing files
t <tarfile> - Create a tar archive of the module
q - Quit the module
EOF
while (1)
{
CASE:
{
{
my @files;
{
}
else
{ print($@); }
};
{
my @dirs;
{
}
else
{ print($@); }
};
{
{
}
};
{
{
}
else
{
}
};
{
return;
};
# Default
}
}
}
################################################################################
sub toplevel()
{
my $help = <<EOF;
Available commands are:
l - List all installed modules
m <module> - Select a module
q - Quit the program
EOF
while (1)
{
print("cmd? ");
CASE:
{
{
};
{
};
{
exit(0);
};
# Default
}
}
}
################################################################################
toplevel();
################################################################################