sub init_values {


use strict;
use warnings;
use 5.011;
use Path::Tiny;
use utf8;
use Data::Dumper;

# initializations that must precede main data structure

my $images      = "images";
my $captions    = "captions";
my $ruscaptions = "ruscaptions";

my ($title, $path2, $abs) = (@_);

# page params
my %vars2 = (
  title        => $title,
  headline     => undef,
  place        => 'Vancouver',
  base_url     => 'http://www.merrillpjensen.com',
  css_file     => "${title}1.css",
  header       => path( $path2, "hc_input2.txt" ),
  footer       => path( $path2, "footer_center3.txt" ),
  body         => path( $path2, "rebus5.tmpl" ),
  print_script => "1",
  code_tmpl    => path( $path2, "code2.tmpl" ),
  oitop        => path( $path2, "oitop.txt" ),
  oibottom     => path( $path2, "oibottom.txt" ),
  to_images    => path( $path2, $images ),
  eng_captions => path( $path2, $captions ),
  rus_captions => path( $path2, $ruscaptions ),
  translations => path( $path2, 'translations' ),
  bottom       => path( $path2, "bottom1.txt" ),
  book         => 'Crosswords: ',
  chapter      => 'Кроссворды',
  make_puzzle  => 1,
  print_module => 0,
  script_file  => $abs,
  module_tmpl  => path( $path2, "code3.tmpl" ),
  server_dir   => 'perlmonks',
  image_dir    => 'pmimage',
  ts           => 'template_system',
  css_path     => $path2,
  ini_path     => path('/home/bob/Documents/html_template_data/3.ценности.ini'),
  
);


my $rvars2 = \%vars2;
#say "hash returned from init";
#say Dumper $rvars2;
return $rvars2;


}