1 |
adcroft |
1.1 |
#=============================================================================== |
2 |
|
|
# This just dumps out the results object. |
3 |
|
|
# Need to use a query string to do anything interesting |
4 |
|
|
# |
5 |
|
|
# $Id: TemplateDumper.pm,v 1.1 2001/12/06 07:32:11 whmoseley Exp $ |
6 |
|
|
# |
7 |
|
|
#=============================================================================== |
8 |
|
|
package TemplateDumper; |
9 |
|
|
use strict; |
10 |
|
|
|
11 |
|
|
use Data::Dumper; |
12 |
|
|
|
13 |
|
|
sub show_template { |
14 |
|
|
my ( $class, $template_params, $results ) = @_; |
15 |
|
|
|
16 |
|
|
$Data::Dumper::Quotekeys = 0; |
17 |
|
|
print "Content-Type: text/plain\n\n", |
18 |
|
|
Dumper $template_params, |
19 |
|
|
Dumper $results; |
20 |
|
|
} |
21 |
|
|
|
22 |
|
|
1; |
23 |
|
|
|
24 |
|
|
|