SL/Template/HTML.pm

   1 package SL::Template::HTML;
   2
   3 use parent qw(SL::Template::LaTeX);
   4
   5 use strict;
   6
   7 sub new {
   8   my $type = shift;
   9
  10   return $type->SUPER::new(@_);
  11 }
  12
  13 sub format_string {
  14   my ($self, $variable) = @_;
  15   my $form = $self->{"form"};
  16
  17   $variable = $main::locale->quote_special_chars('Template/HTML', $variable);
  18
  19   # Allow some HTML markup to be converted into the output format's
  20   # corresponding markup code, e.g. bold or italic.
  21   my @markup_replace = ('b', 'i', 's', 'u', 'sub', 'sup');
  22
  23   foreach my $key (@markup_replace) {
  24     $variable =~ s/\&lt;(\/?)${key}\&gt;/<$1${key}>/g;
  25   }
  26
  27   return $variable;
  28 }
  29
  30 sub get_mime_type() {
  31   my ($self) = @_;
  32
  33   if ($self->{"form"}->{"format"} =~ /postscript/i) {
  34     return "application/postscript";
  35   } elsif ($self->{"form"}->{"format"} =~ /pdf/i) {
  36     return "application/pdf";
  37   } else {
  38     return "text/html";
  39   }
  40 }
  41
  42 sub uses_temp_file {
  43   my ($self) = @_;
  44
  45   if ($self->{"form"}->{"format"} =~ /postscript/i) {
  46     return 1;
  47   } elsif ($self->{"form"}->{"format"} =~ /pdf/i) {
  48     return 1;
  49   } else {
  50     return 0;
  51   }
  52 }
  53
  54 sub convert_to_postscript {
  55   my ($self) = @_;
  56   my ($form, $userspath) = ($self->{"form"}, $self->{"userspath"});
  57
  58   # Convert the HTML file to postscript
  59
  60   if (!chdir("$userspath")) {
  61     $self->{"error"} = "chdir : $!";
  62     $self->cleanup();
  63     return 0;
  64   }
  65
  66   $form->{"tmpfile"} =~ s/\Q$userspath\E\///g;
  67   my $psfile = $form->{"tmpfile"};
  68   $psfile =~ s/.html/.ps/;
  69   if ($psfile eq $form->{"tmpfile"}) {
  70     $psfile .= ".ps";
  71   }
  72
  73   system("html2ps -f html2ps-config < $form->{tmpfile} > $psfile");
  74   if ($?) {
  75     $self->{"error"} = $form->cleanup();
  76     $self->cleanup();
  77     return 0;
  78   }
  79
  80   $form->{"tmpfile"} = $psfile;
  81
  82   $self->cleanup();
  83
  84   return 1;
  85 }
  86
  87 sub convert_to_pdf {
  88   my ($self) = @_;
  89   my ($form, $userspath) = ($self->{"form"}, $self->{"userspath"});
  90
  91   # Convert the HTML file to PDF
  92
  93   if (!chdir("$userspath")) {
  94     $self->{"error"} = "chdir : $!";
  95     $self->cleanup();
  96     return 0;
  97   }
  98
  99   $form->{"tmpfile"} =~ s/\Q$userspath\E\///g;
 100   my $pdffile = $form->{"tmpfile"};
 101   $pdffile =~ s/.html/.pdf/;
 102   if ($pdffile eq $form->{"tmpfile"}) {
 103     $pdffile .= ".pdf";
 104   }
 105
 106   system("html2ps -f html2ps-config < $form->{tmpfile} | ps2pdf - $pdffile");
 107   if ($?) {
 108     $self->{"error"} = $form->cleanup();
 109     $self->cleanup();
 110     return 0;
 111   }
 112
 113   $form->{"tmpfile"} = $pdffile;
 114
 115   $self->cleanup();
 116
 117   return 1;
 118 }
 119
 120 1;