package Continuity::Application;

=head1 NAME

Continuity::Application - Base class for Continuity applications

=cut

use strict;
use warnings qw( all );
use base 'Continuity::Module';

sub render
{
  my $self = shift;
  my $out = $self->{content};
  $self->{content} = '';
  $self->nocache('post_filter'); # I think this shouldn't be filtered...
  $out = $self->post_filter_content($out);
  print $out;
}

sub post_filter_content
{
  my ($self, $text) = @_;
  my $nextpid = $self->{nextpid};
  $text =~ s/(<a\s.*?href=("|'))(.*?\?.*?)(\2.*?>)/$1$3&pid=$nextpid$4/gm;
  $text =~ s/(<a\s.*?href=("|'))([^\?]*?)(\2.*?>)/$1$3?pid=$nextpid$4/gm;
  return $text;
}

sub addContent
{
  my ($self, $content) = @_;
  $self->{content} .= $content;
  return $content;
}

sub setContent
{
  my ($self, $content) = @_;
  $self->{content} = $content;
  return $content;
}

1;