#!/usr/bin/env perl # @(#) A webserver in perl, that generates an error page for all requests. # # Copyright (c) 2006 Dirk Jagdmann # # This software is provided 'as-is', without any express or implied # warranty. In no event will the authors be held liable for any damages # arising from the use of this software. # # Permission is granted to anyone to use this software for any purpose, # including commercial applications, and to alter it and redistribute it # freely, subject to the following restrictions: # # 1. The origin of this software must not be misrepresented; you # must not claim that you wrote the original software. If you use # this software in a product, an acknowledgment in the product # documentation would be appreciated but is not required. # # 2. Altered source versions must be plainly marked as such, and # must not be misrepresented as being the original software. # # 3. This notice may not be removed or altered from any source # distribution. use strict; my $url; my $host; while(<>) { if(/GET\s+(\S+)/) { $url=$1; } if(/Host:\s+(\S+)/) { $host=$1; } last if /^\s*$/; } print< Temporarily unavailable

Temporarily unavailable

The Website http://$host$url is currently unaccessible due to maintainance. Please try again in 60 minutes.

EOF exit 0;