Pod/HtmlPsPdf/Common.pm

package Pod::HtmlPsPdf::Common;

use strict;
use Symbol ();
use File::Basename ();
use File::Copy ();

use Pod::HtmlPsPdf::Config ();
my $config = Pod::HtmlPsPdf::Config->new();

### Common functions

# copy_file($src_filename,$dest_filename); $src_filename will be
# placed into the specified path, if one of the directories in the
# target path doesn't exist -- it'll be created.
###############
sub copy_file{
    my ($src,$dst) = @_;
    
    # make sure that the directory exist or create one
    
    my $base_dir = File::Basename::dirname $dst;
    create_dir($base_dir) unless (-d $base_dir);
    
    File::Copy::copy($src,$dst);
    
} # end of sub copy_file


# write_file($filename,$ref_to_array);
# content will be written to the file from the passed array of
# paragraphs
###############
sub write_file{
    my ($fn,$ra_content) = @_;
    
    # make sure that the directory exist or create one
    
    my $base_dir = File::Basename::dirname $fn;
    create_dir($base_dir) unless (-d $base_dir);
    
    my $fh = Symbol::gensym;
    open $fh, ">$fn" or die "Can't open $fn for writing: $!\n";
    print $fh @$ra_content;
    close $fh;

} # end of sub write_file


# recursively creates a multi-layer directory
###############
sub create_dir{
    my $dir = shift || '';
    return if !$dir or -d $dir;
    my $ancestor_dir = File::Basename::dirname $dir;
    create_dir($ancestor_dir);
    my $mode = $config->get_param('dir_mode');
    mkdir $dir, $mode;
}

# read_file_paras($filename,$ref_to_array);
# content will be returned in the passed array of paragraphs
###############
sub read_file{
  my ($fn,$ra_content) = @_;

  my $fh = Symbol::gensym;
  open $fh, $fn  or die "Can't open $fn for reading: $!\n";
  local $/ = "";
  @$ra_content = <$fh>;
  close $fh;

} # end of sub read_file


1;
__END__
1	package Pod::HtmlPsPdf::Common;
2
3	use strict;
4	use Symbol ();
5	use File::Basename ();
6	use File::Copy ();
7
8	use Pod::HtmlPsPdf::Config ();
9	my $config = Pod::HtmlPsPdf::Config->new();
10
11	### Common functions
12
13	# copy_file($src_filename,$dest_filename); $src_filename will be
14	# placed into the specified path, if one of the directories in the
15	# target path doesn't exist -- it'll be created.
16	###############
17	sub copy_file{
18	my ($src,$dst) = @_;
19
20	# make sure that the directory exist or create one
21
22	my $base_dir = File::Basename::dirname $dst;
23	create_dir($base_dir) unless (-d $base_dir);
24
25	File::Copy::copy($src,$dst);
26
27	} # end of sub copy_file
28
29
30	# write_file($filename,$ref_to_array);
31	# content will be written to the file from the passed array of
32	# paragraphs
33	###############
34	sub write_file{
35	my ($fn,$ra_content) = @_;
36
37	# make sure that the directory exist or create one
38
39	my $base_dir = File::Basename::dirname $fn;
40	create_dir($base_dir) unless (-d $base_dir);
41
42	my $fh = Symbol::gensym;
43	open $fh, ">$fn" or die "Can't open $fn for writing: $!\n";
44	print $fh @$ra_content;
45	close $fh;
46
47	} # end of sub write_file
48
49
50	# recursively creates a multi-layer directory
51	###############
52	sub create_dir{
53	my $dir = shift \|\| '';
54	return if !$dir or -d $dir;
55	my $ancestor_dir = File::Basename::dirname $dir;
56	create_dir($ancestor_dir);
57	my $mode = $config->get_param('dir_mode');
58	mkdir $dir, $mode;
59	}
60
61	# read_file_paras($filename,$ref_to_array);
62	# content will be returned in the passed array of paragraphs
63	###############
64	sub read_file{
65	my ($fn,$ra_content) = @_;
66
67	my $fh = Symbol::gensym;
68	open $fh, $fn or die "Can't open $fn for reading: $!\n";
69	local $/ = "";
70	@$ra_content = <$fh>;
71	close $fh;
72
73	} # end of sub read_file
74
75
76	1;
77	__END__