Remove the gallery SGML files, the flat file database, and the Perl scripts
used to build them. The XSLT stylesheets and gallery.xml file now handle all this.
This commit is contained in:
Nik Clayton
parent
0ac4959eff
commit
9d919a7137
Notes:
svn2git
2020-12-08 03:00:23 +00:00
svn path=/www/; revision=10226
7 changed files with 0 additions and 2772 deletions
|
|
@ -1,19 +0,0 @@
|
|||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN" [
|
||||
<!ENTITY base CDATA "..">
|
||||
<!ENTITY date "$FreeBSD: www/en/gallery/cgallery.sgml,v 1.27 1999/09/06 07:02:43 peter Exp $">
|
||||
<!ENTITY title "Gallery - Commercial">
|
||||
<!ENTITY % includes SYSTEM "../includes.sgml"> %includes;
|
||||
<!ENTITY cgallery SYSTEM "cgallery.inc">
|
||||
]>
|
||||
|
||||
<html>
|
||||
&header;
|
||||
<P>All over the world, FreeBSD is powering innovative Internet applications and services. This gallery is a showcase of commercial organizations who have put FreeBSD to work for them. Browse and find out more about what FreeBSD can do for <STRONG>you</STRONG>!</P><P></P>
|
||||
|
||||
<ul>
|
||||
&cgallery;
|
||||
</ul>
|
||||
|
||||
<p></p><a href="gallery.html">Gallery Home</a>
|
||||
&footer;
|
||||
</body></html>
|
||||
File diff suppressed because it is too large
Load diff
|
|
@ -1,59 +0,0 @@
|
|||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN" [
|
||||
<!ENTITY base CDATA "..">
|
||||
<!ENTITY date "$FreeBSD: www/en/gallery/gallery.sgml,v 1.50 2000/04/07 13:09:21 phantom Exp $">
|
||||
<!ENTITY title "The FreeBSD Gallery">
|
||||
<!ENTITY % includes SYSTEM "../includes.sgml"> %includes;
|
||||
<!ENTITY % gallery SYSTEM "./gallery.inc"> %gallery;
|
||||
]>
|
||||
|
||||
<HTML>
|
||||
&header;
|
||||
<P>All over the world, FreeBSD is powering innovative Internet applications
|
||||
and services. This gallery is a showcase of &num.total; organizations and
|
||||
individuals who have put FreeBSD to work for them. Browse and find out
|
||||
more about what FreeBSD can do for <STRONG>you</STRONG>!</P>
|
||||
|
||||
<P></P>
|
||||
|
||||
<A NAME="commercial"></A>
|
||||
<A NAME="non-profit"></A>
|
||||
<A NAME="personal"></A>
|
||||
<UL>
|
||||
<LI><A HREF="cgallery.html">&num.commercial; commercial organizations</A></LI>
|
||||
<LI><A HREF="npgallery.html">&num.non-profit; non-profit organizations</A></LI>
|
||||
<LI><A HREF="pgallery.html">&num.personal; personal sites</A></LI>
|
||||
</UL>
|
||||
<P>To have your site added to these lists, simply fill out
|
||||
<A HREF="http://www.FreeBSD.org/cgi/gallery.cgi">this form</A>.</P>
|
||||
<TABLE WIDTH="100%" BORDER="0">
|
||||
<TR>
|
||||
<TD ALIGN="LEFT"><IMG SRC="../gifs/powerlogo.gif" ALT="" ALIGN="LEFT" BORDER="0"></TD>
|
||||
<TD ALIGN="LEFT"><IMG SRC="../gifs/power-button.gif" ALT="" ALIGN="LEFT" BORDER="0"></TD>
|
||||
</TR>
|
||||
<TR>
|
||||
<TD ALIGN="RIGHT"><IMG SRC="../gifs/pbfbsd2.gif" WIDTH=171 HEIGHT=64 BORDER=0></TD>
|
||||
<TD ALIGN="RIGHT"><IMG SRC="../gifs/powerani.gif" WIDTH=171 HEIGHT=64></TD>
|
||||
<TD ALIGN="RIGHT"><IMG SRC="../gifs/fhp_mini.jpg" WIDTH=171 HEIGHT=64></TD>
|
||||
</TR>
|
||||
</TABLE>
|
||||
<P>
|
||||
<CENTER>
|
||||
<IMG SRC="../gifs/banner1.gif" ALT="" WIDTH=446 HEIGHT=63 BORDER=0><P>
|
||||
<IMG SRC="../gifs/banner2.gif" ALT="" WIDTH=310 HEIGHT=63 BORDER=0><P>
|
||||
<IMG SRC="../gifs/banner3.gif" ALT="" WIDTH=250 HEIGHT=35 BORDER=0><P>
|
||||
<IMG SRC="../gifs/banner4.gif" ALT="" WIDTH=225 HEIGHT=46 BORDER=0><P>
|
||||
</CENTER>
|
||||
<P>The "Powered by FreeBSD" logos above may be
|
||||
<A HREF="../gifs/powerlogo.gif">downloaded</A> and displayed on personal or
|
||||
commercial home pages served by FreeBSD machines. Use of this logo or the
|
||||
likeliness of the <A HREF="../copyright/daemon.html">BSD Daemons</A> for
|
||||
profitable gain requires the consent of
|
||||
<A HREF="mailto:taob@risc.org">Brian Tao</A> (creator of the "power" logo)
|
||||
and <A HREF="mailto:mckusick@mckusick.com">Marshall Kirk McKusick</A>
|
||||
(trademark holder for the BSD Daemon image).
|
||||
<P>
|
||||
&footer;
|
||||
</BODY>
|
||||
</HTML>
|
||||
|
||||
|
||||
|
|
@ -1,84 +0,0 @@
|
|||
#!/usr/bin/perl
|
||||
#
|
||||
# gengallery.pl - script to convert tab-delimited gallery db file to
|
||||
# a section of an SGML list (not a full SGML file!) for inclusion
|
||||
# into another SGML file where the <UL></UL> list element pair is
|
||||
# already in existence.
|
||||
#
|
||||
# Syntax: gengallery.pl type < galleryfile.db > galleryfile.inc
|
||||
# where type is one of: commerical, nonprofit, personal
|
||||
#
|
||||
# yymmdd own comments
|
||||
# ------ ------- ------------------------------------------------
|
||||
# 980311 nsj First pass
|
||||
# 980312 jrf Added sorting
|
||||
# 980313 nsj Wrapped file input routine with error checking
|
||||
# 981229 nsj Tried to be more intelligent in eliminating any
|
||||
# possible blank entries in the .db file and
|
||||
# malformed url entries (missing http://).
|
||||
# 991221 phantom Allow `ftp://' and `telnet://' as url prefixes. It allows
|
||||
# to avoid "http://ftp://site" cases.
|
||||
|
||||
# Setup
|
||||
# Which sort program are we using?
|
||||
$sort = "/usr/bin/sort";
|
||||
|
||||
# What gallery are we processing?
|
||||
$type = $ARGV[0];
|
||||
if ($type =~ m/commercial/i) {
|
||||
$type = "commercial";
|
||||
} elsif ($type =~ m/nonprofit/i) {
|
||||
$type = "non profit";
|
||||
} elsif ($type =~ m/personal/i) {
|
||||
$type = "personal";
|
||||
} else {
|
||||
die "I don't understand type $type";
|
||||
}
|
||||
|
||||
# Open a pipe from a unix sort of the db file (case insensitive)
|
||||
if (-f $ARGV[1])
|
||||
{
|
||||
$infile = $ARGV[1];
|
||||
} else {
|
||||
die "File $ARGV[1] is unreadable or does not exist";
|
||||
}
|
||||
|
||||
# Open the (sorted) file
|
||||
open(DBFILE, "$sort -f $infile |");
|
||||
|
||||
# Iterate through each line, throwing out those that don't
|
||||
# go in this gallery. Output each entry as list elements.
|
||||
while (<DBFILE>)
|
||||
{
|
||||
# We only want entries of type $type; throw the rest out.
|
||||
next unless m/^$type/;
|
||||
|
||||
# Translate out characters special to SGML (and HTML)
|
||||
s/&/&/g;
|
||||
s/</</g;
|
||||
|
||||
# Split the db line into its component parts.
|
||||
($dummy, $name, $url, $description, $email, $dateadd, $datever) =
|
||||
m/([^\t]+)\t([^\t]+)\t([^\t]+)\t([^\t]*)\t([^\t]+)\t([^\t]+)\t([^\t]+)/;
|
||||
|
||||
# Skip bogus entries (in lieu of actually checking to
|
||||
# eliminate them from the .db file.)
|
||||
next if ($name =~ m/^$|^\s+$/);
|
||||
next if ($url =~ m/^$|^\s+$|^http:\/\/\s+$/);
|
||||
|
||||
# Be semi-intelligent about entries without "http://" (or "ftp://" or
|
||||
# "telnet://") in front by prepending that to any that are missing it.
|
||||
$url = "http://" . $url unless ($url =~ m/^(http|ftp|telnet):\/\/.*$/);
|
||||
|
||||
# Dump it out to the file, in SGML <LI> format
|
||||
if ($description ne "")
|
||||
{
|
||||
print "<LI><A HREF=\"$url\"><STRONG>$name</STRONG></A> -- $description</LI>\n";
|
||||
} else {
|
||||
print "<LI><A HREF=\"$url\"><STRONG>$name</STRONG></A></LI>\n";
|
||||
};
|
||||
|
||||
};
|
||||
|
||||
# Close the pipe like good little daemons.
|
||||
close(DBFILE);
|
||||
|
|
@ -1,19 +0,0 @@
|
|||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN" [
|
||||
<!ENTITY base CDATA "..">
|
||||
<!ENTITY date "$FreeBSD: www/en/gallery/npgallery.sgml,v 1.22 1999/09/06 07:02:44 peter Exp $">
|
||||
<!ENTITY title "Gallery - Non-profit">
|
||||
<!ENTITY % includes SYSTEM "../includes.sgml"> %includes;
|
||||
<!ENTITY npgallery SYSTEM "npgallery.inc">
|
||||
]>
|
||||
|
||||
<html>
|
||||
&header;
|
||||
<P>All over the world, FreeBSD is powering innovative Internet applications and services. This gallery is a showcase of non-profit organizations who have put FreeBSD to work for them. Browse and find out more about what FreeBSD can do for <STRONG>you</STRONG>!</P><P></P>
|
||||
|
||||
<ul>
|
||||
&npgallery;
|
||||
</ul>
|
||||
|
||||
<p></p><a href="gallery.html">Gallery Home</a>
|
||||
&footer;
|
||||
</body></html>
|
||||
|
|
@ -1,19 +0,0 @@
|
|||
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN" [
|
||||
<!ENTITY base CDATA "..">
|
||||
<!ENTITY date "$FreeBSD: www/en/gallery/pgallery.sgml,v 1.20 1999/09/06 07:02:44 peter Exp $">
|
||||
<!ENTITY title "Gallery - Personal">
|
||||
<!ENTITY % includes SYSTEM "../includes.sgml"> %includes;
|
||||
<!ENTITY pgallery SYSTEM "pgallery.inc">
|
||||
]>
|
||||
|
||||
<html>
|
||||
&header;
|
||||
<P>All over the world, FreeBSD is powering innovative Internet applications and services. This gallery is a showcase of personal sites who have put FreeBSD to work for them. Browse and find out more about what FreeBSD can do for <STRONG>you</STRONG>!</P><P></P>
|
||||
|
||||
<ul>
|
||||
&pgallery;
|
||||
</ul>
|
||||
|
||||
<p></p><a href="gallery.html">Gallery Home</a>
|
||||
&footer;
|
||||
</body></html>
|
||||
|
|
@ -1,111 +0,0 @@
|
|||
#!/usr/bin/perl
|
||||
#
|
||||
# prune.pl - Script to prune gallery.db file of malformed
|
||||
# and otherwise worthless entries. And while we're at it,
|
||||
# count the damned things.
|
||||
#
|
||||
# Syntax: prune.pl galleryfile.db outfile.db
|
||||
#
|
||||
# yymmdd own comment
|
||||
# ------ --- ------------------------------------------------
|
||||
# 981229 nsj First pass
|
||||
|
||||
# Setup
|
||||
# Which sort and uniq programs are we using?
|
||||
$sort = "/usr/bin/sort";
|
||||
$uniq = "/usr/bin/uniq";
|
||||
|
||||
# Open a pipe from a unix sort of the db file (case insensitive)
|
||||
if (-f $ARGV[0])
|
||||
{
|
||||
$infile = $ARGV[0];
|
||||
} else {
|
||||
die "File $ARGV[0] is unreadable or does not exist";
|
||||
}
|
||||
|
||||
if ($ARGV[1] eq "") {
|
||||
die "You must supply an output filename.";
|
||||
} else {
|
||||
# Open the output file for writing.
|
||||
open(OUTFILE,">$ARGV[1]");
|
||||
};
|
||||
|
||||
# Open the (sorted) file
|
||||
open(DBFILE, "$sort -f $infile | $uniq |");
|
||||
|
||||
# Set variables so that we can remove dupe entries.
|
||||
my $lastname = "";
|
||||
my $lasturl = "";
|
||||
|
||||
# Initialize counter variables.
|
||||
$numc = 0;
|
||||
$numnp = 0;
|
||||
$nump = 0;
|
||||
|
||||
# Iterate through each line, throwing out those that don't
|
||||
# go in this gallery. Output each entry as list elements.
|
||||
while (<DBFILE>)
|
||||
{
|
||||
chomp;
|
||||
|
||||
# Split the db line into its component parts.
|
||||
($type, $name, $url, $description, $email, $dateadd, $datever) =
|
||||
m/([^\t]+)\t([^\t]+)\t([^\t]+)\t([^\t]*)\t([^\t]+)\t([^\t]+)\t([^\t]+)/;
|
||||
|
||||
# Skip bogus and worthless entries while cleaning up malformed
|
||||
# http headers.
|
||||
next if ($name =~ m/^$|^\s+$/);
|
||||
next if ($url =~ m/^$|^\s+$|^http:\/\/\s+$/);
|
||||
next if ( ($lastname eq $name) && ($lasturl eq $url) );
|
||||
$url = "http://" . $url unless ($url =~ m/^http:\/\/.*$/);
|
||||
|
||||
print OUTFILE "$type\t$name\t$url\t$description\t$email\t$dateadd\t$datever\n";
|
||||
|
||||
if ($type =~ m/commercial/) {
|
||||
$numc++;
|
||||
if (defined $chash{$url}) {
|
||||
$chash{$url}++;
|
||||
} else {
|
||||
$chash{$url} = 1;
|
||||
}
|
||||
};
|
||||
if ($type =~ m/non\s?profit/) {
|
||||
$numnp++;
|
||||
if (defined $nphash{$url}) {
|
||||
$nphash{$url}++;
|
||||
} else {
|
||||
$nphash{$url} = 1;
|
||||
}
|
||||
};
|
||||
if ($type =~ m/personal/) {
|
||||
$nump++;
|
||||
if (defined $phash{$url}) {
|
||||
$phash{$url}++;
|
||||
} else {
|
||||
$nphash{$url} = 1;
|
||||
}
|
||||
};
|
||||
|
||||
$lastname = $name;
|
||||
$lasturl = $url;
|
||||
|
||||
};
|
||||
|
||||
# Close the pipe & file like good little daemons.
|
||||
close(DBFILE);
|
||||
close(OUTFILE);
|
||||
|
||||
# Print Statistics
|
||||
print "Commercial: $numc\n";
|
||||
foreach $key (sort keys %chash) {
|
||||
print "$chash{$key}: $key\n" if ($chash{$key} > 1);
|
||||
}
|
||||
print "Non-profit: $numnp\n";
|
||||
foreach $key (sort keys %nphash) {
|
||||
print "$nphash{$key}: $key\n" if ($nphash{$key} > 1);
|
||||
}
|
||||
print "Personal: $nump\n";
|
||||
foreach $key (sort keys %phash) {
|
||||
print "$phash{$key}: $key\n" if ($phash{$key} > 1);
|
||||
}
|
||||
print "Total: ",$numc+$numnp+$nump,"\n";
|
||||
Loading…
Reference in a new issue