mailing_lists_dump.pl

来自「GForge 3.0 协作开发平台 支持CVS, mailing lists, 」· PL 代码 · 共 29 行

#!/usr/bin/perl
#
# $Id: mailing_lists_dump.pl,v 1.3 2000/10/11 19:55:39 tperdue Exp $
#
# mailing_list_dump.pl - Script to suck data outta the database to be processed on the mail
#                        mail server to create mailing lists
use DBI;

require("../include.pl");  # Include all the predefined functions

my $list_array = ();

&db_connect;

# Dump the Table information
$query = "SELECT users.user_name,mail_group_list.list_name,mail_group_list.password,mail_group_list.is_public FROM mail_group_list,users WHERE mail_group_list.list_admin=users.user_id";
$c = $dbh->prepare($query);
$c->execute();
while(my ($list_name, $list_admin, $password, $status) = $c->fetchrow()) {

	$new_list = "$list_name:$list_admin:$password:$status\n";

	push @list_array, $new_list;
}


# Now write out the files
write_array_file($file_dir."list_dump", @list_array);