\documentclass[12pt,notitlepage]{article}
%
% =====================================================================
%                     Concordia Telephone Directory
%                         version 1.0 (release)
% LaTeX/Perl/METAFONT magick by Rich Lafferty <rich@alcor.concordia.ca>
% =====================================================================
%
\usepackage{fancyhdr}
%\usepackage{colortbl}
\usepackage[latin1]{inputenc}
\usepackage{longtable}
\usepackage[pdftex]{graphics}
% --------------------------------------------------------------------
% General layout
\topmargin=-0.4in
\headheight=0in
\textheight=9in % 6.5 landscape
\textwidth=7.3in % 9.5 landscape
\oddsidemargin=-.4in % was -.25
\evensidemargin=-.4in
\setlength{\parindent}{0pt}
%\setlength{\parskip}{.8ex plus 0.5ex minus 0.2ex}
\setlength\LTleft{0pt}  % longtable
\setlength\LTright{0pt}
%
% --------------------------------------------------------------------
% Use our own fonts
\renewcommand{\sfdefault}{phv}
\newcommand{\mcseries}{\fontseries{mc}\selectfont}
\DeclareTextFontCommand{\textmc}{\mcseries}
\newcommand{\bcseries}{\fontseries{bc}\selectfont}
\DeclareTextFontCommand{\textbc}{\bcseries}
\newcommand{\pbfont}{\fontfamily{phv}\fontseries{mc}\fontsize{9pt}{13.5pt}\selectfont}
\newcommand{\pbfontbig}{\fontfamily{phv}\fontseries{bc}\fontsize{10pt}{13.5pt}\selectfont}
%
% --------------------------------------------------------------------
% Use our own fancyhdr header style
\pagestyle{fancy}
\lhead{\pbfont\textbc{META Section Name}}
\chead{}
\rhead{\pbfont\textbc{\rightmark{}--\leftmark{}}}
\lfoot{\pbfont\textbc{Concordia University Telephone Directory}}
\cfoot{}
\rfoot{\pbfont\textbc{\today{} Snapshot}}
\renewcommand{\headrulewidth}{3pt}
\renewcommand{\footrulewidth}{3pt}
\renewcommand{\sectionmark}[1]{}     % disable section headings
%
% ===========================================================================
% Document begins here -- new commands and inputs only
%
\begin{document}
\pbfont
%
% --------------------------------------------------------------------
% Formatting commands
%
% Names are in form \pb[cdp](section|header|entry|begintable|endtable)
% where 'c' is for contact list,
%       'd' is for department list,
%       'p' is for personnel list, and
%       'f' is for fax-number list.
%
% A 'section' might be a letter of the alphabet.
% A 'header' might be the name of a department.
% An 'entry' contains one phonebook listing.
% 'Begintable' and 'endtable', unsurprisingly, begin and end a
% multiple-page longtable.
%
% Notes:
%  - pbcsection doesn't end with a newline because it will ALWAYS
%    be followed by pbcheader which begins with a newline (because)
%    there's an extra newline needed when blocks follow each other.
%  - pbpsection *does* end with a newline and an hline because it'll 
%    *never* be followed by a 'pbpheader'.
%  - pbcendtable starts with a \\ to close off the last entry in the table.
%
% Section header (alphabet, divisions)
\newcommand{\pbcSection}[1]{ \\\multicolumn{5}{r}{\Huge{\textbc{#1}}}}
\newcommand{\pbdSection}[1]{ \\\multicolumn{4}{r}{\Huge{\textbc{#1}}}\\\hline}
\newcommand{\pbpSection}[1]{ \\\multicolumn{6}{r}{\Huge{\textbc{#1}}}\\\hline}
\newcommand{\pbfSection}[1]{ \\\multicolumn{3}{r}{\Huge{\textbc{#1}}}\\\hline}
%
% Subsection divider (small tables)
\newcommand{\pbcHeader}[1]{ \\\multicolumn{5}{l}{{\pbfontbig \textbc{#1}}}\\\hline}
\newcommand{\pbcSubhead}[1]{\multicolumn{5}{l}{\textbc{\hskip 1.3em #1}}\\\hline}
%
% Individual entry.
\newcommand{\pbcEntry}[5]{#1&#2&#3&#4&#5\\\hline}
\newcommand{\pbdEntry}[4]{#1&#2&#3&#4\\\hline}
\newcommand{\pbpEntry}[6]{#1&#2&#3&#4&#5&#6\\\hline}
\newcommand{\pbfEntry}[3]{#1&#2&#3\\\hline}
%
% Column headers.
\newcommand{\pbcCols}{\textbc{Phone}&\textbc{Title}&\textbc{Name}&\textbc{Email}&\textbc{Location}\endhead}
\newcommand{\pbdCols}{\textbc{Phone}&\textbc{Department}&\textbc{Email}&\textbc{Location}\endhead}
\newcommand{\pbpCols}{\textbc{Phone}&\textbc{Name}&\textbc{Title}&\textbc{Department}&\textbc{Email}&\textbc{Location}\endhead}
\newcommand{\pbfCols}{\textbc{Fax}&\textbc{Department}&\textbc{Location}\endhead}
%
% Begin and end tables.
\newcommand{\pbcBeginTable}{\lhead{\pbfont\textbc{Departmental Contacts}}\begin{center}\begin{longtable}{ll@{\extracolsep{\fill}}lll}\pbcCols}
\newcommand{\pbcEndTable}{\end{longtable}\end{center}}
%
\newcommand{\pbdBeginTable}{\lhead{\pbfont\textbc{Departments}}\begin{center}\begin{longtable}{@{\extracolsep{\fill}}llll}\pbdCols}
\newcommand{\pbdEndTable}{\end{longtable}\end{center}}
%
\newcommand{\pbpBeginTable}{\lhead{\pbfont\textbc{Faculty and Staff}}\begin{center}\begin{longtable}{@{\extracolsep{\fill}}llllll}\pbpCols}
\newcommand{\pbpEndTable}{\end{longtable}\end{center}\pbfont}
%
\newcommand{\pbfBeginTable}{\lhead{\pbfont\textbc{Fax Numbers}}\begin{center}\begin{longtable}{@{\extracolsep{\fill}}llll}\pbfCols}
\newcommand{\pbfEndTable}{\end{longtable}\end{center}}
%
%
% ====================================================================
% Include sections one by one.
%
\input pbfront.tex
\eject
\input pbmaps.tex
\eject
% pbmaps resets \rhead
\rhead{\pbfont\textbc{\rightmark{}--\leftmark{}}} 
\input pbptitle.tex
\eject
\input pbpeople.tex
\eject
\input pbdtitle.tex
\eject
\input pbdept.tex
\eject
\input pbctitle.tex
\eject
\input pbcontact.tex
\eject
\input pbftitle.tex
\eject
\input pbfax.tex
\eject
\input pbback.tex
% ====================================================================
% Exeunt!
\end{document}
\bye