diff --git a/en/cgi/Makefile b/en/cgi/Makefile index fe2dc7a4e6..fc1fc63ad5 100644 --- a/en/cgi/Makefile +++ b/en/cgi/Makefile @@ -1,46 +1,45 @@ -# $FreeBSD: www/en/cgi/Makefile,v 1.28 2005/12/04 12:50:17 ceri Exp $ +# $FreeBSD: www/en/cgi/Makefile,v 1.29 2005/12/04 16:18:40 ceri Exp $ .if exists(../Makefile.conf) .include "../Makefile.conf" .endif .if exists(../Makefile.inc) .include "../Makefile.inc" .endif DATA= DATA+= Gnats.pm DATA+= cgi-lib.pl DATA+= cgi-style.pl DATA+= cvsweb.conf DATA+= cvsweb.conf-freebsd DATA+= cvsweb.conf-netbsd DATA+= cvsweb.conf-openbsd DATA+= ftp.mirrors DATA+= html.pl CGI= CGI+= confirm-code.cgi CGI+= cvsweb.cgi CGI+= dosendpr.cgi CGI+= ftp.cgi -CGI+= gallery.cgi CGI+= getmsg.cgi CGI+= mailindex.cgi CGI+= man.cgi CGI+= mid.cgi CGI+= mirror.cgi CGI+= missing_handler.cgi CGI+= monthly.cgi CGI+= pds.cgi CGI+= ports.cgi CGI+= query-pr.cgi CGI+= query-pr-summary.cgi CGI+= search.cgi CGI+= url.cgi .SUFFIXES: .C .cgi .C.cgi: ${CXX} ${CFLAGS} -o ${.TARGET} ${.IMPSRC} .include "${WEB_PREFIX}/share/mk/web.site.mk" diff --git a/en/cgi/gallery.cgi b/en/cgi/gallery.cgi deleted file mode 100755 index 2157e0cbbe..0000000000 --- a/en/cgi/gallery.cgi +++ /dev/null @@ -1,126 +0,0 @@ -#!/usr/bin/perl -################################################################## -# A CGI form processor for FreeBSD Gallery submissions -# -# John Fieber -# Modified for new gallery.db format by Nate Johnson -# $FreeBSD: www/en/cgi/gallery.cgi,v 1.20 2002/01/08 13:29:12 phantom Exp $ -################################################################## - -$curator = "gallery\@FreeBSD.org"; -$subject = "Another gallery submission..."; - -require 'cgi-lib.pl'; -&ReadParse; - -$hsty_date = '$FreeBSD: www/en/cgi/gallery.cgi,v 1.20 2002/01/08 13:29:12 phantom Exp $'; -# Replace Id string with commit date and time. -$hsty_date =~ s%\$FreeBSD. .* (.* .*) .* .* \$%Last modified: $1%; - -#$h_base = ".."; -#$d_author = " -require 'cgi-style.pl'; - -# Construct the gallery entry in HTML form -$entry = "
  • $in{'organization'} " . - "-- $in{'description'}
  • "; - -# Try and figure out where the person came from so we can provide -# links back to the correct place. -$return = ""; -if ($in{'return'} eq "") { - if ($ENV{'HTTP_REFERER'} ne "") { - $in{'return'} = $ENV{'HTTP_REFERER'}; - } -} -if ($in{'return'} ne "") { - $return = "Return to the Gallery"; -} - - -# This is the form where the user enters the information. -$forma = &html_header("Gallery Submission") . -" - - - - - - -
    Because of the hard maintaince and low benefit the gallery - pages bring to both the Project and the listed websites, it has been - decided to spend the time working on other stuff related to FreeBSD - than these pages. The gallery will be removed in two weeks, no - further submissions will be processed. -
    Note: This has no influence on the commercial gallery! -
    -

    $return

    -" . &html_footer(); - -# This is the form where the user CHECKS the information they typed -$formb = &html_header("Your Gallery Submission") . -"

    Here is your entry as it will appear in the -FreeBSD Gallery page.

    -

    Please check that the category and your e-mail -address are correct, and that the link actually works. -If anything is wrong, use your -browser's back button and correct it. -If everything is okay, press the submit button -below.

    -

    Contact person: $in{'contact'}

    -

    $in{'category'}

    - -
    -
    - - - - - - - - -
    -

    $return

    -" . &html_footer(); - -# And this is where we thank them for submitting an entry. -$formc = &html_header("Thank You!") . -"

    Thank you for your entry! Please allow a few days for your -entry to be added to the Gallery.

    -

    $return

    -" . &html_footer(); - - -if ($in{'action'} eq "preview") { - print $formb; -} -elsif ($in{'action'} eq "submit") { - print $formc; -# close(STDOUT); - - open(M, "| mail -s \"$subject\" $curator"); -# print M "\"$in{'category'}\" gallery entry:\n\n"; -# print M "\n"; -# print M "$entry\n"; - - $category = $in{'category'}; - $category =~ tr/A-Z/a-z/; - $category =~ tr/ //; - - ($mo,$da,$year) = $timestamp =~ m/(\d\d?)-(\d\d?)-(\d\d\d\d)/; - $year -= 2000; - $mo = join('','0',$mo) if ($mo =~ /^\d$/); - $da = join('','0',$da) if ($da =~ /^\d$/); - $date = join("",$year,$mo,$da); - print M "$category\t$in{'organization'}\t$in{'url'}\t$in{'description'}\t$in{'contact'}\t$date\t000000\n"; - - close(M); -} -else { - print $forma; -} - -exit 0;