NAME

Maypole::Plugin::AutoUntaint - CDBI::AutoUntaint for Maypole

SYNOPSIS

package BeerDB;
use Maypole::Application qw( AutoUntaint );

BeerDB->auto_untaint;

setup

If the -Setup flag is passed in the call to Maypole::Application, auto_untaint will be called automatically, with no arguments. [not tested]

auto_untaint( %args )

Takes the same arguments as Class::DBI::AutoUntaint::auto_untaint(), but the untaint_columns and skip_columns hashrefs must be further keyed by table:

 untaint_columns => { $table => { $untaint_as => [ qw( col1 col2 ) ], 
                                  ...,
                                  },
                      ...,
                      },

 skip_columns => { $table => [ qw( colx coly ) ],
                   ...,
                   },
                   

Accepts two additional arguments. match_cols_by_table is the same as the match_cols argument, but only applies to specific tables:

match_cols_by_table => { $table => { $col_regex => $untaint_as,
                                     ...,
                                     },
                         ...,
                         },
                         

Column regexes in <match_cols_by_table> that are the same as any in <match_cols> will take precedence.

untaint_tables specifies the tables to untaint as an arrayref. Defaults to $r-config->{display_tables}>.

TODO

Tests!

SEE ALSO

Class::DBI::Plugin::AutoUntaint does the hard work, and describes the arguments in more detail.

Maypole::Plugin::Untaint.

AUTHOR

David Baird, <cpan@riverside-cms.co.uk>

BUGS

Please report any bugs or feature requests to bug-maypole-plugin-autountaint@rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Maypole-Plugin-AutoUntaint. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

ACKNOWLEDGEMENTS

COPYRIGHT & LICENSE

Copyright 2005 David Baird, All Rights Reserved.