#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
require "./cookie.lib";
&get_input;
$filename = $in{'file'};
$fullpath = "../content/" . $filename . ".html";
@titlearray = split (/\//,$filename);
$dir_name = $titlearray[0];
$title = pop @titlearray;
$title =~ s/-/ /g;
$title1 = pop @titlearray;
$title1 =~ s/-/ /g;
$title2 = pop @titlearray;
$title2 =~ s/-/ /g;
$title3 = pop @titlearray;
$title3 =~ s/-/ /g;
$keyword_str = "$title, ";
if($title1 ne "") {
$keyword_str .= "$title1, ";
}
if($title2 ne "") {
$keyword_str .= "$title2, ";
}
if($title3 ne "") {
$keyword_str .= "$title3, ";
}
print "Content-type: text/html\n\n";
#$title Resume, Sample $title Resumes, Examples of $title Resumes
print qq~
Sample $title Resume
~;
open(LATEST, "header_article.txt");
@bnr_all = ;
close(LATEST);
print "@bnr_all\n";
@s_dir_name = split (/-/,$dir_name);
$u_dir_name = join(" ",@s_dir_name);
$u_dir_name = ucfirst ($u_dir_name);
print qq~
~;
@heir = split('/',$filename);
pop(@heir);
print "Home »";
$i=0;
foreach $tag (@heir)
{
push @inarray, $tag;
print " $tag Resume\n";
$i++;
}
print "» Sample $title Resume\n";
if ($heir[0] eq "Education") { print qq~New!!!
~; }
print qq~
~;
#Print the file content here
open(LATEST, $fullpath);
@bnr_all = ;
close(LATEST);
print "@bnr_all\n";
open(LATEST, "footer_article.txt");
@bnr_all = ;
close(LATEST);
print "@bnr_all\n";
print qq~
~;
exit;