2 ################################################################################
4 # File: $RCSfile: exportlist.cgi,v $
5 # Revision: $Revision: 1.1 $
6 # Description: Export an address list
7 # Author: Andrew@DeFaria.com
8 # Created: Mon Jan 16 20:25:32 PST 2006
9 # Modified: $Date: 2013/06/12 14:05:47 $
12 # (c) Copyright 2000-2006, Andrew@DeFaria.com, all rights reserved.
14 ################################################################################
18 local $0 = $FindBin::Script;
20 use lib "$FindBin::Bin/../lib";
21 use lib "$FindBin::Bin/../../lib";
26 use CGI qw/:standard *table/;
27 use CGI::Carp "fatalsToBrowser";
29 my $type = param('type');
30 my $userid = cookie("MAPSUser");
31 $userid //= $ENV{USER};
32 my $Userid = ucfirst $userid;
37 my $year = substr((scalar(localtime)), 20, 4);
39 print "\################################################################################\n";
41 print "\# MAPS:\t\tMail Authorization and Permission System (MAPS)\n";
42 print "\# $type.list:\t${Userid}'s $type.list file\n";
43 print "\# Exported:\t" . localtime . "\n";
45 print "\# Copyright 2001-" . $year . ", Andrew\@DeFaria.com, all rights reserved.\n";
47 print "\################################################################################\n";
54 while (my $rec = GetList) {
55 $rec->{pattern} //= '';
56 $rec->{domain} //= '';
57 $rec->{comment} //= '';
58 $rec->{hit_count} //= 0;
59 $rec->{last_hit} //= '';
60 $rec->{retention} //= '';
62 if ($rec->{domain} eq '') {
63 print "$rec->{pattern},$rec->{comment},$rec->{hit_count},$rec->{last_hit},$rec->{retention}\n";
65 print "$rec->{pattern}\@$rec->{domain},$rec->{comment},$rec->{hit_count},$rec->{last_hit},$rec->{retention}\n";
76 -type => "application/octet-stream",
77 -attachment => "$type.list",