[Cpan-forum-commit] rev 52 - trunk/bin

[svn at pti.co.il]

Author: gabor
Date: 2005-02-01 22:52:59 +0200 (Tue, 01 Feb 2005)
New Revision: 52

Modified:
   trunk/bin/populate.pl
   trunk/bin/setup.pl
Log:
do not create modules.txt file, not needed anymore

Modified: trunk/bin/populate.pl
===================================================================
--- trunk/bin/populate.pl	2005-02-01 20:45:44 UTC (rev 51)
+++ trunk/bin/populate.pl	2005-02-01 20:52:59 UTC (rev 52)
@@ -11,7 +11,6 @@
 
 my $dir = "$Bin/../db";
 my $dbfile = "$dir/forum.db";
-my $modules_file = "$dir/modules.txt";
 CPAN::Forum::DBI->myinit($dbfile);
 
 use CPAN::Forum::Groups;
@@ -71,10 +70,6 @@
 			name => $name,
 			gtype => $CPAN::Forum::DBI::group_types{Distribution}, 
 		});
-
-		if (open my $fh, ">>", $modules_file) {
-			print $fh $dist->id, ":$name\n";
-		}
 	};
 }
 

Modified: trunk/bin/setup.pl
===================================================================
--- trunk/bin/setup.pl	2005-02-01 20:45:44 UTC (rev 51)
+++ trunk/bin/setup.pl	2005-02-01 20:52:59 UTC (rev 52)
@@ -31,9 +31,7 @@
 
 my $dir = "$Bin/../db";
 my $dbfile = "$dir/forum.db";
-my $modules = "$dir/modules.txt";
 unlink $dbfile if -e $dbfile;
-unlink $modules if -e $modules;
 mkdir $dir if not -e $dir;
 CPAN::Forum::DBI->myinit($dbfile);
 CPAN::Forum::DBI->init_db($dbfile);