diff options
| author | fukachan <fukachan> | 2001-01-23 13:14:03 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-01-23 13:14:03 +0000 |
| commit | 280215a08a6462fc2d3d5797e2429762e6718b77 (patch) | |
| tree | 3b0e745d405322bf083c1c75eeff0b480a2abfaf /fml/lib/FML/Header | |
| parent | 6d9ba63cb0ccec55c13e3548fdc7f9f188c13066 (diff) | |
| download | fml8-280215a08a6462fc2d3d5797e2429762e6718b77.tar.gz fml8-280215a08a6462fc2d3d5797e2429762e6718b77.tar.bz2 fml8-280215a08a6462fc2d3d5797e2429762e6718b77.zip | |
implement primitive ticket system (toymodel)
Diffstat (limited to 'fml/lib/FML/Header')
| -rw-r--r-- | fml/lib/FML/Header/Subject.pm | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/fml/lib/FML/Header/Subject.pm b/fml/lib/FML/Header/Subject.pm index ed104e2c..bfc7f3aa 100644 --- a/fml/lib/FML/Header/Subject.pm +++ b/fml/lib/FML/Header/Subject.pm @@ -77,6 +77,23 @@ sub _regexp_compile } +sub is_reply_message +{ + my ($self, $subject) = @_; + $subject =~ /Re:/i ? 1 : 0; +} + + +sub execute_ticket_system +{ + my ($self, $header, $config, $args) = @_; + my $model = $config->{ ticket_model }; + my $pkg = "Ticket::Model::".$model; + eval qq {require $pkg; $pkg->import();}; + + $pkg->increment_id( $config->{ ticket_sequence_file }); +} + =head1 NAME |