Skip to Content
Perl for Web Site Management
book

Perl for Web Site Management

by John Callender
October 2001
Beginner
528 pages
15h 20m
English
O'Reilly Media, Inc.
Content preview from Perl for Web Site Management

Adding Link Checking

We’re going to put just one more little embellishment into the make_page.cgi script. At the end of the &regenerate_links process, it would be nice to run the quick-and-dirty version of the link-checking script we saw back in Chapter 11 (the one that just checked for breakage in links pointing to files in the local filesystem). The idea here is that the user has just added some pages to the site, with IMG and A tags pointing to other files on the site, and it would be nice to run a quick check to let the user know if any of those links were broken.

As it turned out, nothing could be easier. We can just stick a copy of that first version of the link checker in the same directory as make_page.cgi and modify its configuration variables to point it at the CyberFair site. We should also set it to output its results as HTML.

Then we add the following to the end of the &regenerate_site_links subroutine in make_page.cgi:

my $report = `$fs_root/maint/link_check.plx`;

if ($report =~ /<BODY>(.+)<\/BODY>/s) {
    $content .= $1;
}

&show_links;

That just runs the link checker using backticks (`), captures the output into $report, and then uses a regular expression to extract just the portion of the report between the <BODY> and </BODY> tags. That report is appended to the $content variable, so any broken links are reported to the user in the results page he sees after invoking &regenerate_site_links.

There are several things that the scripts described in these last four chapters ...

Become an O’Reilly member and get unlimited access to this title plus top books and audiobooks from O’Reilly and nearly 200 top publishers, thousands of courses curated by job role, 150+ live events each month,
and much more.

Read now

Unlock full access

More than 5,000 organizations count on O’Reilly

AirBnbBlueOriginElectronic ArtsHomeDepotNasdaqRakutenTata Consultancy Services

QuotationMarkO’Reilly covers everything we've got, with content to help us build a world-class technology community, upgrade the capabilities and competencies of our teams, and improve overall team performance as well as their engagement.
Julian F.
Head of Cybersecurity
QuotationMarkI wanted to learn C and C++, but it didn't click for me until I picked up an O'Reilly book. When I went on the O’Reilly platform, I was astonished to find all the books there, plus live events and sandboxes so you could play around with the technology.
Addison B.
Field Engineer
QuotationMarkI’ve been on the O’Reilly platform for more than eight years. I use a couple of learning platforms, but I'm on O'Reilly more than anybody else. When you're there, you start learning. I'm never disappointed.
Amir M.
Data Platform Tech Lead
QuotationMarkI'm always learning. So when I got on to O'Reilly, I was like a kid in a candy store. There are playlists. There are answers. There's on-demand training. It's worth its weight in gold, in terms of what it allows me to do.
Mark W.
Embedded Software Engineer

You might also like

Web Client Programming with Perl

Web Client Programming with Perl

Clinton Wong
Embedding Perl in HTML with Mason

Embedding Perl in HTML with Mason

Ken Williams, Dave Rolsky

Publisher Resources

ISBN: 1565926471Catalog PageErrata