\n";
+ last if (defined($config{'-maxrows'}) &&
+ $rowcount >= $config{'-maxrows'});
+ }
+ if ($rowcount > 0) {
+ print "
\n";
+ }
+ return $rowcount;
+}
+
+sub to_unique_key {
+ my $ret = shift;
+ $ret .= "_";
+ my $data = shift;
+ if (!defined($data)) {
+ $ret .= join("_",@_);
+ } else {
+ foreach my $i (@_) {
+ $ret .= "_" . $data->{$i};
+ }
+ }
+ return toalpha($ret);
+}
+
+sub toalpha {
+ my $ret = join("",@_);
+ $ret =~ s/([^A-Za-z0-9_])/ord($1)/eg;
+ return $ret;
+}
+
+sub getvalues {
+ my $hash = shift;
+ my @ret;
+ foreach my $i (@_) {
+ push @ret, maybe_from_hex($hash->{$i});
+ }
+ return @ret;
+}
+
+sub getquery {
+ my $q = shift;
+ my $data = shift;
+ my $keys = shift;
+ my @ret;
+ foreach my $i (@_) {
+ push @ret, maybe_from_hex($q->param(to_unique_key($i, $data, @$keys)));
+ }
+ return @ret;
+}
+
+sub maybe_to_hex {
+ my $str = shift;
+ if (!isprint($str)) {
+ $str = "0x" . (unpack("H*", $str))[0];
+ }
+ $str =~ s/\"/"/g;
+ return $str;
+}
+
+sub maybe_from_hex {
+ my $str = shift;
+ if (substr($str,0,2) eq "0x") {
+ ($str) = pack("H*", substr($str,2));
+ }
+ return $str;
+}
+
+1;
+__END__
+=head1 NAME
+
+SNMP - The Perl5 'SNMP' Extension Module v3.1.0 for the UCD SNMPv3 Library
+
+=head1 SYNOPSIS
+
+ use DBI;
+ use displaytable;
+
+ $dbh = DBI->connect(...);
+ $numshown = displaytable($dbh, 'tablename', [options]);
+
+=head1 DESCRIPTION
+
+The displaytable and displaygraph functions format the output of a DBI
+database query into an html or graph output.
+
+=head1 DISPLAYTABLE OPTIONS
+
+=over 4
+
+=item -select => VALUE
+
+Selects a set of columns, or functions to be displayed in the resulting table.
+
+Example: -select => 'column1, column2'
+
+Default: *
+
+=item -title => VALUE
+
+Use VALUE as the title of the table.
+
+=item -notitle => 1
+
+Don't print a title for the table.
+
+=item -noheaders => 1
+
+Don't print a header row at the top of the table.
+
+=item -selectorder => 1
+
+=item -selectorder => [qw(column1 column2)]
+
+Defines the order of the columns. A value of 1 will use the order of
+the -select statement by textually parsing it's comma seperated list.
+If an array is passed containing the column names, that order will be
+used.
+
+Example:
+
+ -select => distinct(column1) as foo, -selectorder => [qw(foo)]
+
+=item -maxrows => NUM
+
+Limits the number of display lines to NUM.
+
+=item -tableparms => PARAMS
+
+=item -headerparms => PARAMS
+
+The parameters to be used for formating the table contents and the
+header contents.
+
+Defaults:
+
+ -tableparms => "border=1 bgcolor='#c0c0e0'"
+
+ -headerparms => "border=1 bgcolor='#b0e0b0'"
+
+=item -dolink => \&FUNC
+
+If passed, FUNC(name) will be called on the tablename or header. The
+function should return a web url that the header/table name should be
+linked to.
+
+=item -datalink => \&FUNC
+
+Identical to -dolink, but called for the data portion of the table.
+Arguments are the column name and the data element for that column.
+
+=item -printer => \&FUNC
+
+Calls FUNC(COLUMNNAME, COLUMNDATA, DATA) to print the data from each
+column. COLUMNDATA is the data itself, and DATA is a reference to the
+hash for the entire row (IE, COLUMNDATA = $DATA->{$COLUMNNAME}).
+
+=item -beginhook => \&FUNC
+
+=item -endhook => \&FUNC
+
+displaytable will call these functions at the beginning and end of the
+printing of a row. Useful for inserting new columns at the beginning
+or end of the table. When the headers to the table are being printed,
+they will be called like FUNC($dbh, TABLENAME). When the data is
+being printed, they will be called like FUNC($dbh, TABLENAME, DATA),
+which DATA is a reference to the hash containing the row data.
+
+Example:
+
+ -endhook => sub {
+ my ($d, $t, $data) = @_;
+ if (defined($data)) {
+ print "
";
+ }
+ }
+
+=item -clauses => sql_clauses
+
+Adds clauses to the sql expression.
+
+Example: -clauses => "where column1 = 'value' limit 10 order by column2"
+
+=item -xlat => xlattable
+
+Translates column headers and the table name by looking in a table for
+the appropriate translation. Essentially uses:
+
+ SELECT newname FROM xlattable where oldname = ?
+
+to translate everything.
+
+=item -editable => 1
+
+=item -indexes => [qw(INDEX_COLUMNS)]
+
+=item -CGI => CGI_REFERENCE
+
+If both of these are passed as arguments, the table is printed in
+editable format. The INDEX_COLUMNS should be a list of columns that
+can be used to uniquely identify a row. They will be the non-editable
+columns shown in the table. Everything else will be editable. The
+form and the submit button written by the rest of the script must loop
+back to the same displaytable clause for the edits to be committed to
+the database. CGI_REFERENCE should be a reference to the CGI object
+used to query web parameters from ($CGI_REFERENCE = new CGI);
+
+=item -mark => 1
+
+=item -indexes => [qw(INDEX_COLUMNS)]
+
+=item -CGI => CGI_REFERENCE
+
+=item -onmarked => \&FUNC
+
+When the first three of these are specified, the left hand most column
+will be a check box that allows users to mark the row for future work.
+
+FUNC($dbh, TABLENAME, DATA) will be called for each marked entry when
+a submission data has been processed. $DATA is a hash reference to
+the rows dataset. See -editable above for more information.
+
+-onmarked => \&FUNC implies -mark => 1.
+
+=back
+
+=head1 Author
+
+wjhardaker@ucdavis.edu
+
+=cut