I am trying to make RTF's using RTF::Document. It's not bad, just had a bunch of flags come up. I can still have it generate a file on my computer, but on my server inside my application it won't run due to these same flags (I'm using Mason). So I am trying to edit the module on my server to get rid of the problems. Only 2 left...but I can't figure out how to do it. Any suggestions?
Here is the error:
Use of uninitialized value in concatenation (.) or string at /usr/local/lib/perl5/site_perl/5.8.0/RTF/Document.pm line 472.
splice() offset past end of array at /usr/local/lib/perl5/site_perl/5.8.0/RTF/Document.pm line 805.
And here are the lines of code around those numbers...
sub import {
my $self = shift;
$self->set_properties (\%DOCINFO, @_);
## here comes 472 ##
$self->splice_raw ($self->{DOCUMENT}, 1, 1, "\\".$self->{charset});
# --- Insert creation time in Information Group
if ($self->{creatim})
{
my ($ss, $mn, $hr, $dd, $mm, $yy) = localtime($self->{creatim}
+);
$yy+=1900; $mm++;
my $creatim = $self->add_group($self->{info});
$self->add_raw( $creatim, '\creatim',
"\\yr$yy", "\\mo$mm", "\\dy$dd", "\\hr$hr", "\\min$mn", "\
+\sec$ss"
);
$self->{creatim} = 0;
};
}
Here's the code around line 805.
sub splice_raw # splice a raw value into a section
{
my $self = shift;
my $section = shift;
my $position = shift;
my $length = shift;
## here comes 805 ##
splice @{$section}, $position, $length, @_;
}
Any help or suggestions are appreciated!