ldap/html/vizitka.cgi

#!/usr/local/bin/perl -w

use Net::LDAP;
use Net::LDAP::LDIF;
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);

# ldap server host
$host = 'sun.lan';
# e-mail address to mail report to:
$email = 'dpavlin@sun.lan';
# log file
$log = '/tmp/vizitke.log';

$ldap = Net::LDAP->new($host,port=>389) || die "$@";

$ldap->bind;    # anonymous

%labels = ('givenname'=>'ime',
        'sn'=>'prezime',
        'cn'=>'ime i prezime');

%utf2iso_tab = (
0x0161 => '¹', 0x0111 => 'ð', 0x010d => 'è', 0x0107 => 'æ', 0x017e => '¾',
0x0160 => '©', 0x0110 => 'Ð', 0x010c => 'È', 0x0106 => 'Æ', 0x017d => '®' 
);

sub utf2iso {
        my $out;
        foreach (@_) {
                s/([\xC0-\xDF])([\x80-\xBF])/$utf2iso_tab{unpack("c",$1)<<6&0x07C0|unpack("c",$2)&0x003F}/ge;
                s/([\xE0-\xEF])([\x80-\xBF])([\x80-\xBF])/$utf2iso_tab{unpack("c",$1)<<12&0xF000|unpack("c",$2)<<6&0x0FC0|unpack("c",$3)&0x003F}/ge;
                s/([\xF0-\xF7])([\x80-\xBF])([\x80-\xBF])([\x80-\xBF])/$utf2iso_tab{unpack("c",$1)<<18&0x1C0000|unpack("c",$2)<<12&0x3F000|unpack("c",$3)<<6&0x0FC0|unpack("c",$4)&0x003F}/ge;
                $out.=$_;
        }
        return $out;
}

print 
#       header(-type => 'text/html;charset=UTF-8'),
        header,
        start_html('Naruèivanje vizitki'),
        start_form,
        "Upi¹ite svoje ",popup_menu(-name=>'what',
                -values=>['givenname','sn','cn'],
                -default=>'cn',
                -labels=>\%labels),
        textfield(-name=>'search',-default=>'*'),br,
        "Broj komada koje naruèujete ",
        textfield(-name=>'kom',-size=>4,-default=>10),br,
        submit(-value=>"Naruèi"),p
        end_form;

if(param()) {
        $mesg = $ldap->search (
                base    => 'o=agrokor.hr',
                filter  => param('what').'='.param('search')
                );
        my $max = $mesg->count;
        if ($max > 1) {
                param('what','cn');     # reset what='cn'
                print "Broj osoba koje odgovaraju upitu: ",$mesg->count,br,
                        b("Odaberite samo jednu!"),
                        start_form,
                        hidden(-name=>'what',-value=>'cn'),
                        hidden(-name=>'kom'),
                        p;
                for($i = 0 ; $i < $max ; $i++) {
                        my $entry = $mesg->entry($i);
                        my ($mail) = $entry->get('mail'); # array, take first
                        my ($cn)=utf2iso($entry->get('cn'));
                        push @radio_vals,$cn;
                        $radio_labels{$cn}=$cn;
                }
                print radio_group(-name=>'search',
                                -values=>\@radio_vals,
                                -linebreak=>'true',
                                -default=>\$radio_vals[0],
                                -labels=>\%radio_labels),
                        submit(-value=>"Odaberi"),p
                        end_form;
        } elsif ($max==0) {
                print b("Nije naðena niti jedna osoba");
        } else {        
                my $entry = $mesg->entry(0);
                my @data = ( $entry->get('cn') );
                sub add_opt {
                        ($label,$data) = @_;
                        if ($data) {
                                push @data,"$label $data";
                        }
                }
                add_opt "",$entry->get('ou');
                add_opt "",$entry->get('postaladdress');
                add_opt "soba: ",$entry->get('roomnumber');
                add_opt "e-mail: ",$entry->get('mail');
                add_opt "tel: ",$entry->get('telephonenumber');
                add_opt "fax: ",$entry->get('facsimiletelephonenumber');
#               add_opt ": ",$entry->get('');
                push @data,"Narudzba za ".param("kom")." komada\n";
                print join("<br>\n",@data);
                open(MAIL,"|/usr/lib/sendmail $email");
                print MAIL join("\n",@data);
                close(MAIL);
                open(LOG,">> $log");
                print LOG "\nVrijeme zahtjeva: ".localtime(time)."\n";
                print LOG join("\t\n",@data);
                close(LOG);
        }
}

1	dpavlin	1.1	#!/usr/local/bin/perl -w
2
3			use Net::LDAP;
4			use Net::LDAP::LDIF;
5			use CGI qw/:standard/;
6			use CGI::Carp qw(fatalsToBrowser);
7
8			# ldap server host
9			$host = 'sun.lan';
10			# e-mail address to mail report to:
11			$email = 'dpavlin@sun.lan';
12			# log file
13			$log = '/tmp/vizitke.log';
14
15			$ldap = Net::LDAP->new($host,port=>389) \|\| die "$@";
16
17			$ldap->bind; # anonymous
18
19			%labels = ('givenname'=>'ime',
20			'sn'=>'prezime',
21			'cn'=>'ime i prezime');
22
23	dpavlin	1.2	%utf2iso_tab = (
24			0x0161 => '¹', 0x0111 => 'ð', 0x010d => 'è', 0x0107 => 'æ', 0x017e => '¾',
25			0x0160 => '©', 0x0110 => 'Ð', 0x010c => 'È', 0x0106 => 'Æ', 0x017d => '®'
26			);
27	dpavlin	1.1
28	dpavlin	1.2	sub utf2iso {
29			my $out;
30			foreach (@_) {
31			s/([\xC0-\xDF])([\x80-\xBF])/$utf2iso_tab{unpack("c",$1)<<6&0x07C0\|unpack("c",$2)&0x003F}/ge;
32			s/([\xE0-\xEF])([\x80-\xBF])([\x80-\xBF])/$utf2iso_tab{unpack("c",$1)<<12&0xF000\|unpack("c",$2)<<6&0x0FC0\|unpack("c",$3)&0x003F}/ge;
33			s/([\xF0-\xF7])([\x80-\xBF])([\x80-\xBF])([\x80-\xBF])/$utf2iso_tab{unpack("c",$1)<<18&0x1C0000\|unpack("c",$2)<<12&0x3F000\|unpack("c",$3)<<6&0x0FC0\|unpack("c",$4)&0x003F}/ge;
34			$out.=$_;
35			}
36			return $out;
37			}
38
39			print
40			# header(-type => 'text/html;charset=UTF-8'),
41			header,
42	dpavlin	1.1	start_html('Naruèivanje vizitki'),
43			start_form,
44			"Upi¹ite svoje ",popup_menu(-name=>'what',
45			-values=>['givenname','sn','cn'],
46			-default=>'cn',
47			-labels=>\%labels),
48			textfield(-name=>'search',-default=>'*'),br,
49			"Broj komada koje naruèujete ",
50			textfield(-name=>'kom',-size=>4,-default=>10),br,
51			submit(-value=>"Naruèi"),p
52			end_form;
53
54			if(param()) {
55			$mesg = $ldap->search (
56			base => 'o=agrokor.hr',
57			filter => param('what').'='.param('search')
58			);
59			my $max = $mesg->count;
60			if ($max > 1) {
61			param('what','cn'); # reset what='cn'
62			print "Broj osoba koje odgovaraju upitu: ",$mesg->count,br,
63			b("Odaberite samo jednu!"),
64			start_form,
65			hidden(-name=>'what',-value=>'cn'),
66			hidden(-name=>'kom'),
67			p;
68			for($i = 0 ; $i < $max ; $i++) {
69			my $entry = $mesg->entry($i);
70			my ($mail) = $entry->get('mail'); # array, take first
71	dpavlin	1.2	my ($cn)=utf2iso($entry->get('cn'));
72	dpavlin	1.1	push @radio_vals,$cn;
73			$radio_labels{$cn}=$cn;
74			}
75			print radio_group(-name=>'search',
76			-values=>\@radio_vals,
77			-linebreak=>'true',
78			-default=>\$radio_vals[0],
79			-labels=>\%radio_labels),
80			submit(-value=>"Odaberi"),p
81			end_form;
82			} elsif ($max==0) {
83			print b("Nije naðena niti jedna osoba");
84			} else {
85			my $entry = $mesg->entry(0);
86			my @data = ( $entry->get('cn') );
87			sub add_opt {
88			($label,$data) = @_;
89			if ($data) {
90			push @data,"$label $data";
91			}
92			}
93			add_opt "",$entry->get('ou');
94			add_opt "",$entry->get('postaladdress');
95			add_opt "soba: ",$entry->get('roomnumber');
96			add_opt "e-mail: ",$entry->get('mail');
97			add_opt "tel: ",$entry->get('telephonenumber');
98			add_opt "fax: ",$entry->get('facsimiletelephonenumber');
99			# add_opt ": ",$entry->get('');
100			push @data,"Narudzba za ".param("kom")." komada\n";
101			print join("<br>\n",@data);
102			open(MAIL,"\|/usr/lib/sendmail $email");
103			print MAIL join("\n",@data);
104			close(MAIL);
105			open(LOG,">> $log");
106			print LOG "\nVrijeme zahtjeva: ".localtime(time)."\n";
107			print LOG join("\t\n",@data);
108			close(LOG);
109			}
110			}
111	dpavlin	1.2