1. #!/usr/bin/perl -w
2. use CGI::Carp "fatalsToBrowser";
3. use strict;
4. use warnings;
5. use DBI;
6. use CGI qw (:standard escapeHTML escape);
7. my ($driver_name, $db_name, $db_host, $db_sock, $db_port, $db_user, $db_pswd, $dsn);
8. $driver_name = 'mysql';
9. $db_name = 'mydata';
10. $db_host = 'localhost';
11. $db_sock = '/tmp/mysql.sock';
12. $db_port = '3306';
13. $db_user = 'cnangel';
14. $db_pswd = 'cnangel';
15. $dsn = "dbi:mysql:database=${db_name};hostname=${db_host};mysql_socket=${db_sock};port=${db_port}";
16. # ... set up connection to database (not shown) ...
17. my $dbh = DBI -> connect ($dsn, $db_user, $db_pswd,
18. { RaiseError => 1, PrintError => 0 });
19. # put out initial part of page
20. my $title = "$db_name Database Browser";
21. print header ();
22. print start_html (-title => $title, -bgcolor => "white");
23. print h1 ($title);
24. # parameters to look for in URL
25. my $tbl_name = param ("tbl_name");
26. my $sort_col = param ("sort_col");
27. # If $tbl_name has no value, display a clickable list of tables.
28. # Otherwise, display contents of the given table. $sort_col, if
29. # set, indicates which column to sort by.
30. !defined ($tbl_name) ? display_table_names ($dbh, $db_name) : display_table_contents ($dbh, $tbl_name, $sort_col);
31. print end_html ();
32. sub display_table_names
33. {
34. my ($dbh, $db_name) = @_;
35. print p ("Select a table by clicking on its name:");
36. # retrieve reference to single-column array of table names
37. my $ary_ref = $dbh -> selectcol_arrayref (qq{ SHOW TABLES FROM $db_name });
38. # Construct a bullet list using the ul() (unordered list) and
39. # li() (list item) functions. Each item is a hyperlink that
40. # re-invokes the script to display a particular table.
41. my @item;
42. foreach my $tbl_name (@{$ary_ref})
43. {
44. my $url = sprintf ("%s?tbl_name=%s", url (), escape ($tbl_name));
45. my $link = a ({-href => $url}, escapeHTML ($tbl_name));
46. push (@item, li ($link));
47. }
48. print ul (@item);
49. }
50. sub display_table_contents
51. {
52. my ($dbh, $tbl_name, $sort_col) = @_;
53. my @rows;
54. my @cells;
55. # if sort column not specified, use first column
56. $sort_col = "1" if !defined ($sort_col);
57. # present a link that returns user to table list page
58. print p (a ({-href => url ()}, "Show Table List"));
59. print p (strong ("Contents of $tbl_name table:"));
60. my $sth = $dbh -> prepare (qq{
61. SELECT * FROM $tbl_name ORDER BY $sort_col
62. LIMIT 200
63. });
64. $sth -> execute ();
65. # Use the names of the columns in the database table as the
66. # headings in an HTML table. Make each name a hyperlink that
67. # causes the script to be reinvoked to redisplay the table,
68. # sorted by the named column.
69. foreach my $col_name (@{$sth -> {NAME}})
70. {
71. my $url = sprintf ("%s?tbl_name=%s;sort_col=%s",
72. url (),
73. escape ($tbl_name),
74. escape ($col_name));
75. my $link = a ({-href => $url}, escapeHTML ($col_name));
76. push (@cells, th ($link));
77. }
78. push (@rows, Tr (@cells));
79. # display table rows
80. while (my @ary = $sth -> fetchrow_array ())
81. {
82. @cells = ();
83. foreach my $val (@ary)
84. {
85. # display value if non-empty, else display non-breaking space
86. if (defined ($val) && $val ne "")
87. {
88. $val = escapeHTML ($val);
89. }
90. else
91. {
92. $val = " ";
93. }
94. push (@cells, td ($val));
95. }
96. push (@rows, Tr (@cells));
97. }
98. # display table with a border
99. print table ({-border => "1"}, @rows);
100. }

### We're not expecting binary data of more than 512 KB...$dbh->{LongReadLen} = 512 * 1024;### Select the raw media data from the database$sth = $dbh->prepare( "            SELECT mega.name, med.media_data            FROM megaliths mega, media med            WHERE mega.id = med.megaliths_id       " );$sth->execute();while ( ($name, $data) = $sth->fetchrow_array ) {    ...}