# Formatter for Blosxom Plugin 'submission'
# Author(s): DJ Adams <dj.adams@pobox.com>

# Receives a hashref parameter name/values from a POSTed HTML form
# and creates the content for a new blosxom entry file, with a title
# and a nice bit of HTML containing the Blosxom plugin information
# submitted (name, author, category, description, URL). It returns
# a suggestion for the filename too.

package article;

sub format {

  my ($pkg, $formref) = @_;

  # Take filename and title from this parameter
  my $titleparam = 'name';
  my $getdate = `date '+%m_%d_%y_%H_%M_%S'`;
  chomp ($getdate); 

  my $name = $getdate || $$;
  my $content = "<h4>".$formref->{name}."</h4>\n";

  $content .= "<p>\n";
  $content .= "<a href='".$formref->{url}."'>".$formref->{url}."</a>\n" if ($formref->{email} ne "");
  $content .= "<p>\n";
  $content .= "<em>".$formref->{description}."</em>\n";
  $content .= "<ul>\n";
  $content .= "<li><strong>Author: </strong>".$formref->{author}."</li>\n" if ($formref->{author} ne "");
  $content .= "<li><a href='".$formref->{authorurl}."'>".$formref->{authorurl}."</a>\n" if ($formref->{authorurl} ne "");
  $content .= '<li><a href="mailto:' . $formref->{email} .'">'.$formref->{email}."</a>\n" if ($formref->{email} ne "");
  $content .= "</ul>\n";
  $content .= "</p>\n";
  
  return ($name, $content);

}

1;