#!/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>$title Resume, Sample $title Resumes, Examples of $title Resumes</TITLE> print qq~ <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <HTML> <HEAD> <META http-equiv=Content-Type content="text/html; charset=iso-8859-1"> <TITLE>Sample $title Resume</TITLE> <META http-equiv=rating content=general> <META content=all name=robots> <META name=description content="$title Resume Sample provides information on how to prepare $dir_name resume. Also, find samples of resume writing guidelines on $title."> <META name=keywords content="$title resumes, $title resume examples, examples of $title resume"> <LINK href="/sample-resume.css" type="text/css" rel=stylesheet> <LINK href="/resume.css" type="text/css" rel=stylesheet> </HEAD> <BODY> ~; open(LATEST, "header_article.txt"); @bnr_all = <LATEST>; 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~ <table width=672 border=0 align=left cellpadding=0 cellspacing=0><tr><td height=25 class=blueheader><strong>$u_dir_name</strong></td></tr></table><br><br> <div style="text-align:right;"> <script type="text/javascript" src="https://apis.google.com/js/plusone.js"></script> <g:plusone></g:plusone> </div> ~; @heir = split('/',$filename); pop(@heir); print "<a href=\"http://www.aroj.com\">Home</a> »"; $i=0; foreach $tag (@heir) { push @inarray, $tag; print " <a href=\"/Sample-"; foreach $intag (@inarray) { print "$intag-Resume"; } $tag = ucfirst($tag); $tag =~ s/-/ /g; print "\">$tag Resume</a>\n"; $i++; } print "» Sample $title Resume<p>\n"; if ($heir[0] eq "Education") { print qq~<font color=red><b>New!!!</b></font><br><script>document.write('<a href="http://jimkarter.fireboat.hop.clickbank.net/?tid=AROJ" target="_blank">Guide To Getting A Teaching Job</a> - Everything You Need To Know To Find The Teaching Job Thats Right For You. Includes 50 Teacher Interview Questions and Answers.');</script>~; } print qq~ <div style="width: 340px; float:right; padding: 0 0 0 10px;"> <br> <!-- /37742840/Aroj_336x280 --> <div id='div-gpt-ad-1476432313355-0' style='height:280px; width:336px;'> <script> googletag.cmd.push(function() { googletag.display('div-gpt-ad-1476432313355-0'); }); </script> </div> </div> ~; #Print the file content here open(LATEST, $fullpath); @bnr_all = <LATEST>; close(LATEST); print "@bnr_all\n"; open(LATEST, "footer_article.txt"); @bnr_all = <LATEST>; close(LATEST); print "@bnr_all\n"; print qq~ </body> </html> ~; exit;