RKIES / UnixODBC-0.34-1 / eg / gutenberg.cgi 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175

              
#!/usr/bin/perl
# $Id: gutenberg.cgi,v 1.2 2004-03-13 23:34:53 kiesling Exp $
use CGI;
use UnixODBC (':all');
use DBIx::HTMLTable;
my $q = new CGI;
my $DSN = 'Gutenberg Catalog';
my $UserName = 'root';
my $PassWord = '';
my $env;
my $cnh;
my $sth;
my $r;
my $sqlquery = 'select * from titles;';
# GetDiagRec variables
my ($sqlstate, $native, $msg, $len);
# Table columns
my ($id, $id_len, $id_head);
my ($etext_no, $etext_no_len, $etext_head);
my ($col, $col_len, $col_head);
my ($auth, $auth_len, $auth_head);
my ($title, $title_len, $title_head);
# Refs to resultset rows
my (@resultset);
# Unused column attribute parameters
my ($head_len, $data_type, $column_size, $decimal_digits, $nullable);
print $q -> header;
print $q -> start_html('Gutenberg Catalog');
print qq|<body bgcolor="white">|;
$r = SQLAllocHandle ($SQL_HANDLE_ENV, $SQL_NULL_HANDLE, $evh);
if (($r!=$SQL_SUCCESS)&&($r!=$SQL_NO_DATA)) {
    SQLGetDiagRec ($SQL_HANDLE_ENV, $evh, 1, $sqlstate, 
                   $native, $message_text, 255, $len);
    print "$message_text\n";
    &endhtml;
}
$r = SQLSetEnvAttr($evh, $SQL_ATTR_ODBC_VERSION, $SQL_OV_ODBC2, 0);
if (($r!=$SQL_SUCCESS)&&($r!=$SQL_NO_DATA)) {
    SQLGetDiagRec ($SQL_HANDLE_ENV, $evh, 1, $sqlstate, 
                   $native, $message_text, 255, $len);
    print "$message_text\n";
    &endhtml;
}
$r = SQLAllocHandle ($SQL_HANDLE_DBC, $evh, $cnh);
if (($r!=$SQL_SUCCESS)&&($r!=$SQL_NO_DATA)) {
    SQLGetDiagRec ($SQL_HANDLE_ENV, $evh, 1, $sqlstate, 
                   $native, $message_text, 255, $len);
    print "$message_text\n";
    &endhtml;
}
$r = SQLConnect ($cnh, $DSN, $SQL_NTS,
                            $UserName, $SQL_NTS,
                            $PassWord, $SQL_NTS);
if (($r!=$SQL_SUCCESS)&&($r!=$SQL_NO_DATA)) {
    SQLGetDiagRec ($SQL_HANDLE_DBC, $cnh, 1, $sqlstate, 
                   $native, $message_text, 255, $len);
    print "$message_text\n";
    &endhtml;
}
$r = SQLAllocHandle ($SQL_HANDLE_STMT, $cnh, $sth);
if (($r!=$SQL_SUCCESS)&&($r!=$SQL_NO_DATA)) {
    SQLGetDiagRec ($SQL_HANDLE_STMT, $sth, 1, $sqlstate, 
                   $native, $message_text, 255, $len);
    print "$message_text\n";
    &endhtml;
}
$r = SQLPrepare ($sth, $sqlquery, length ($sqlquery));
if (($r!=$SQL_SUCCESS)&&($r!=$SQL_NO_DATA)) {
    SQLGetDiagRec ($SQL_HANDLE_STMT, $sth, 1, $sqlstate, 
                   $native, $message_text, 255, $len);
    print "$message_text\n";
    &endhtml;
}
$r = SQLExecute ($sth);
if (($r!=$SQL_SUCCESS)&&($r!=$SQL_NO_DATA)) {
    SQLGetDiagRec ($SQL_HANDLE_STMT, $sth, 1, $sqlstate, 
                   $native, $message_text, 255, $len);
    print "$message_text\n";
    &endhtml;
}
$r = SQLDescribeCol ($sth, 1, $id_head, 255, $head_len, 
                     $data_type, $column_size, $decimal_digits, $nullable);
$r = SQLDescribeCol ($sth, 2, $etext_head, 255, $head_len, 
                     $data_type, $column_size, $decimal_digits, $nullable);
$r = SQLDescribeCol ($sth, 3, $col_head, 255, $head_len, 
                     $data_type, $column_size, $decimal_digits, $nullable);
$r = SQLDescribeCol ($sth, 4, $auth_head, 255, $head_len, 
                     $data_type, $column_size, $decimal_digits, $nullable);
$r = SQLDescribeCol ($sth, 5, $title_head, 255, $head_len, 
                     $data_type, $column_size, $decimal_digits, $nullable);
if (($r!=$SQL_SUCCESS)&&($r!=$SQL_NO_DATA)) {
    SQLGetDiagRec ($SQL_HANDLE_STMT, $sth, 1, $sqlstate, 
                   $native, $message_text, 255, $len);
    print "$message_text\n";
    &endhtml;
}
push @resultset, 
    \@{[$id_head, $etext_head, $col_head, $auth_head, $title_head]};
while (1) {
    $r = SQLFetch ($sth);
    last if $r == $SQL_NO_DATA;
    $r = SQLGetData ($sth, 1, $SQL_C_CHAR, $id, 255, $id_len);
    $r = SQLGetData ($sth, 2, $SQL_C_CHAR, $etext_no, 255, $etext_no_len);
    $r = SQLGetData ($sth, 3, $SQL_C_CHAR, $col, 255, $col_len);
    $r = SQLGetData ($sth, 4, $SQL_C_CHAR, $auth, 255, $auth_len);
    $r = SQLGetData ($sth, 5, $SQL_C_CHAR, $title, 255, $title_len);
    push @resultset, \@{[$id, $etext_no, $col, $auth, $title]};
}
DBIx::HTMLTable::HTMLTableByRef (\@resultset, {'border' => 'all'});
if (($r!=$SQL_SUCCESS)&&($r!=$SQL_NO_DATA)) {
    SQLGetDiagRec ($SQL_HANDLE_STMT, $sth, 1, $sqlstate, 
                   $native, $message_text, 255, $len);
    print "$message_text\n";
    &endhtml;
}
$r = SQLFreeHandle ($SQL_HANDLE_STMT, $sth);
if (($r!=$SQL_SUCCESS)&&($r!=$SQL_NO_DATA)) {
    SQLGetDiagRec ($SQL_HANDLE_STMT, $sth, 1, $sqlstate, 
                   $native, $message_text, 255, $len);
    print "$message_text\n";
    &endhtml;
}
$r = SQLDisconnect ($cnh);
if (($r!=$SQL_SUCCESS)&&($r!=$SQL_NO_DATA)) {
    SQLGetDiagRec ($SQL_HANDLE_DBC, $cnh, 1, $sqlstate, 
                   $native, $message_text, 255, $len);
    print "$message_text\n";
    &endhtml;
}
$r = SQLFreeConnect ($cnh);
if (($r!=$SQL_SUCCESS)&&($r!=$SQL_NO_DATA)) {
    SQLGetDiagRec ($SQL_HANDLE_DBC, $cnh, 1, $sqlstate, 
                   $native, $message_text, 255, $len);
    print "$message_text\n";
    &endhtml;
}
$r = SQLFreeHandle ($SQL_HANDLE_ENV, $evh);
if (($r!=$SQL_SUCCESS)&&($r!=$SQL_NO_DATA)) {
    SQLGetDiagRec ($SQL_HANDLE_ENV, $evh, 1, $sqlstate, 
                   $native, $message_text, 255, $len);
    print "$message_text\n";
    &endhtml;
}
sub endhtml {
    print qq|</body>|;
    print $q -> end_html;
}