1 |
#!/usr/local/bin/perl -w |
2 |
|
3 |
# export e-mail adresa za Filipa, |
4 |
# Usage: |
5 |
# |
6 |
# to_csv.pl [yyyy-mm-dd] |
7 |
# |
8 |
# yyyy-mm-dd ... datum od kojeg se vr¹i export (datum zadnjeg exporta) |
9 |
|
10 |
use DBI; |
11 |
use CGI qw/:standard/; |
12 |
use CGI::Carp 'fatalsToBrowser'; |
13 |
|
14 |
my $sql_where; |
15 |
|
16 |
my %labels; |
17 |
|
18 |
if (! param()) { |
19 |
print header, |
20 |
start_html('export novih e-mail-ova'), |
21 |
start_form, |
22 |
"od datuma:", |
23 |
popup_menu(-name=>'yyyy',-values=>['2000','2001'],-default=>'2000',-labels=>\%labels), |
24 |
popup_menu(-name=>'mm',-values=>['01','02','03','04','05','06','07','08','09','10','11','12'],-labels=>\%labels), |
25 |
popup_menu(-name=>'dd',-values=>[ |
26 |
'01','02','03','04','05','06','07','08','09', |
27 |
'10','11','12','13','14','15','16','17','18','19', |
28 |
'20','21','22','23','24','25','26','27','28','29', |
29 |
'30','31' |
30 |
],-labels=>\%labels), |
31 |
submit(-value=>"Dump"),p, |
32 |
end_form; |
33 |
|
34 |
} else { |
35 |
|
36 |
print "Content-type: text/plain\n\n"; |
37 |
|
38 |
my $from_date=param('yyyy')."-".param('mm')."-".param('dd'); |
39 |
|
40 |
my $mydbh = DBI->connect("DBI:Pg:dbname=informatika;user=dpavlin","","") || die $DBI::errstr; |
41 |
$mysth = $mydbh->prepare(" |
42 |
select ime,prezime,alias||'\@pliva.hr' as email from osobe,e_mail where e_mail.osoba_id=osobe.id and datum_unesen >= '$from_date' |
43 |
") || die $mydbh->errstr(); |
44 |
$mysth->execute() || die $mysth->errstr(); |
45 |
|
46 |
print "#",join(",",@{ $mysth->{NAME} }),"\n"; |
47 |
while (@myarr = $mysth->fetchrow_array() ) { |
48 |
$out=join(",",@myarr); |
49 |
$out=~tr/¹ð¾èæ©Ð®ÈÆ/ðèæÐÈÆ/; # iso8859-2 -> 1250 |
50 |
print "$out\r\n"; |
51 |
} |
52 |
|
53 |
} |