2 ################################################################################
5 # Description: This script lists the dynamic lists in the database...
7 # Author: Andrew@DeFaria.com
8 # Created: Fri Sep 23 17:27:58 PDT 2005
11 # (c) Copyright 2005, Andrew@DeFaria.com, all rights reserved
13 ################################################################################
19 our ($me, $SEPARATOR);
21 my ($abs_path, $lib_path);
24 # Extract relative path and basename from script name.
25 $0 =~ /(.*)[\/\\](.*)/;
27 $abs_path = (!defined $1) ? "." : File::Spec->rel2abs ($1);
28 $me = (!defined $2) ? $0 : $2;
31 # Remove .pl for Perl scripts that have that extension
34 # Define the path SEPARATOR
35 $SEPARATOR = ($^O =~ /MSWin/) ? "\\" : "/";
38 $lib_path = "$abs_path" . $SEPARATOR . ".." . $SEPARATOR . "lib";
40 # Add the appropriate path to our modules to @INC array.
41 unshift (@INC, "$abs_path");
42 unshift (@INC, "$lib_path");
62 my $to_db_connection_name = "2005.02.00";
63 my $controller = StartSession "Cont", $to_db_connection_name;
65 foreach (@dynamic_lists) {
66 display "\nDynamic List: $_";
67 my @values = @{$controller->GetListMembers ($_)};
71 display "\t" . ++$i . ") $_";
75 EndSession $controller;