diff --git a/data/cgi/pds.cgi b/data/cgi/pds.cgi new file mode 100755 index 0000000000..f45a3acd81 --- /dev/null +++ b/data/cgi/pds.cgi @@ -0,0 +1,53 @@ +#!/bin/sh +# Copyright (c) 1997 Wolfram Schneider , Berlin. +# All rights reserved. +# +# pds.cgi - FreeBSD Ports download sources cgi script +# print a list of source files for a port +# + +file="$QUERY_STRING" +file2="$file/Makefile" +CVSROOT=/home/ncvs; export CVSROOT + +# set DISTDIR to a dummy directory. +DISTDIR=/tmp/___pds.cgi___; export DISTDIR + +cat < + +Sources for $file + + + +

Sources for $file

+ +EOF +cvs -Q co -p $file2 | make -I /home/fenner/mk -f - bill-fetch | + perl -ne 'print qq{$1
\n} + if m%((http|ftp)://\S+)%' +cat < + +EOF diff --git a/data/cgi/ports.cgi b/data/cgi/ports.cgi new file mode 100755 index 0000000000..0cbf27f150 --- /dev/null +++ b/data/cgi/ports.cgi @@ -0,0 +1,613 @@ +#!/usr/bin/perl +# +# Copyright (c) 1996-1997 Wolfram Schneider , Berlin. +# All rights reserved. +# +# Redistribution and use in source and binary forms, with or without +# modification, are permitted provided that the following conditions +# are met: +# 1. Redistributions of source code must retain the above copyright +# notice, this list of conditions and the following disclaimer. +# 2. Redistributions in binary form must reproduce the above copyright +# notice, this list of conditions and the following disclaimer in the +# documentation and/or other materials provided with the distribution. +# +# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND +# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +# ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE +# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS +# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) +# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT +# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY +# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF +# SUCH DAMAGE. +# +# $Id: ports.cgi,v 1.1 1997-09-19 16:47:40 wosch Exp $ +# +# ports.cgi - search engine for FreeBSD ports +# o search for a port by name or description +# o search for new or updated ports +# +# +# If you want use this script on your own host this line must +# work for you: $ cvs rdiff -D'last week' ports/INDEX + + +sub init_variables { + $cvsroot = '/home/ncvs'; # $CVSROOT + $localPrefix = '/usr/ports'; # ports prefix + $ports_database = 'ports/INDEX'; + # unset $ENV{'CVSROOT'}; + + @cvscmd = ('cvs', '-Q', '-d', $cvsroot); + + # URL of ports tree for browsing + $remotePrefixFtp = + 'http://ftp.freebsd.org/pub/FreeBSD/FreeBSD-current/ports'; + + # URL of ports tree for download + $remotePrefixFtpDownload = + # 'ftp://ftp.cs.tu-berlin.de/pub/FreeBSD/FreeBSD-current/ports'; + 'ftp://ftp.freebsd.org/pub/FreeBSD/FreeBSD-current/ports'; + + # where to get -current packages + local($p) = 'ftp://ftp.freebsd.org/pub/FreeBSD'; + $remotePrefixFtpPackagesDefault = 'current'; + %remotePrefixFtpPackages = + ('current', "$p/packages-stable/All", + '2.2.2', "$p/packages-2.2.2/All", + '2.1.6', "$p/packages-2.1.6/All", + '2.1.0', "$p/packages-2.1/All", + ); + + %relDate = + ('current', 'today', + '2.2.2', '5/16/97', + '2.1.6', '11/16/96', + '2.1.0', '11/19/95', + ); + + # + $remotePrefixHtml = + 'http://www.freebsd.org/ports'; + + # CVS Web interface + $remotePrefixCvs = + 'http://www.freebsd.org/cgi/cvsweb.cgi/ports'; + + # Ports documentation + $portsDesc = 'http://www.freebsd.org/ports/'; + + # location of the tiny BSD daemon + $daemonGif = '

'; + + # visible E-Mail address, plain text + $mailto = 'wosch@FreeBSD.org'; + + # Mailinglist for FreeBSD Ports + $mailtoList = 'ports@FreeBSD.org'; + + # use mailto:email?subject + $mailtoAdvanced = 'yes'; + + # the URL if you click at the E-Mail address (see below) + $mailtoURL = 'http://www.apfel.de/~wosch/'; + $mailtoURL = "mailto:$mailto" if !$mailtoURL; + + # security + $ENV{'PATH'} = '/bin:/usr/bin'; + + # ports download sources script + $pds = 'pds.cgi'; +} + +# return the date of the last ports database update +sub last_update { + local($file) = "$cvsroot/$ports_database,v"; + local($date) = 'unknown'; + + open(DB, $file) || do { + &warn("$file: $!\n"); &exit; + }; + while() { + if (/^date/ && /^date\s+([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+);\s+/) { + $date = ($1 + 1900) . qq{/$2/$3 $4:$5:$6 UTC}; + last; + } + } + close DB; + return $date; +} + +sub last_update_message { + return "

Last database update: " . &last_update . "
\n"; +} + +sub dec { + local($_) = @_; + + s/\+/ /g; # '+' -> space + s/%(..)/pack("c",hex($1))/ge; # '%ab' -> char ab + + return($_); +} + +sub header { + print "Content-type: text/html\n"; + print "\n"; +} + + +# $indent is a bit of optional data processing I put in for +# formatting the data nicely when you are emailing it. +# This is derived from code by Denis Howe +# and Thomas A Fine +sub decode_form { + local($form, *data, $indent, $key, $_) = @_; + foreach $_ (split(/&/, $form)) { + ($key, $_) = split(/=/, $_, 2); + $_ =~ s/\+/ /g; # + -> space + $key =~ s/\+/ /g; # + -> space + $_ =~ s/%([\da-f]{1,2})/pack(C,hex($1))/eig; # undo % escapes + $key =~ s/%([\da-f]{1,2})/pack(C,hex($1))/eig; # undo % escapes + $_ =~ s/[\r\n]+/\n\t/g if defined($indent); # indent data after \n + $data{$key} = $_; + } +} + + +# encode unknown data for use in a URL +sub encode_url { + local($_) = @_; + s/([\000-\032\;\/\?\:\@\&\=\%\'\"\`\<\>\177-\377 ])/sprintf('%%%02x',ord($1))/eg; + # s/%20/+/g; + $_; +} + +sub warn { print "$_[0]" } +sub env { defined($ENV{$_[0]}) ? $ENV{$_[0]} : undef; } +sub exit { exit 0 }; + +sub readindex { + local($date, *var, *msec) = @_; + local(@co) = ('co', '-p', '-D', $date, $ports_database); + local(@tmp, @s); + + open(C, "-|") || exec (@cvscmd, @co); + + while() { + chop; + @tmp = split(/\|/); + $var{"$tmp[4]"} = $_; + @s = split(/\s+/, $tmp[6]); + foreach (@s) { + $msec{"$tmp[4],$_"} = 1; + } + } + close C; +} + +# extract sub collections +sub readcoll { + local(@co) = ('co', '-p', 'ports/INDEX'); + + open(C, "-|") || exec (@cvscmd, @co); + + local(@a, @b, %key); + while() { + chop; + + @a = split('\|'); + @b = split(/\s+/, $a[6]); + + foreach (@b) { + if (!defined($key{$_})) { + $key{$_} = 1; + } + } + } + close C; + + @a = (); + foreach (sort keys %key) { + push(@a, $_); + } + + return @a; +} + +# basic function for HTML output +sub out { + local($line, $old) = @_; + local($version, $path, $local, $comment, $descfile, + $email, $sections, $depends, @rest) = split(/\|/, $line); + + if ($path =~ m%^$localPrefix/([^/]+)%o) { + if (!$out_sec || $1 ne $out_sec) { + print "\n" if $counter > 0; + print qq{\n

} . + qq{Category $1} . + "

$version\n}; + print qq{: $comment
\n}; + + if ($old) { + local($l) = $descfile; + $l =~ s%^$remotePrefixFtp%$remotePrefixCvs%o; + $l =~ s%/([^/]+)$%/Attic/$1%; + + print qq{Was Maintained by: $email
} . + qq{Removed why

\n"; +} + +print "

\n"; +&footer; +&footer2; diff --git a/en/cgi/pds.cgi b/en/cgi/pds.cgi new file mode 100755 index 0000000000..f45a3acd81 --- /dev/null +++ b/en/cgi/pds.cgi @@ -0,0 +1,53 @@ +#!/bin/sh +# Copyright (c) 1997 Wolfram Schneider , Berlin. +# All rights reserved. +# +# pds.cgi - FreeBSD Ports download sources cgi script +# print a list of source files for a port +# + +file="$QUERY_STRING" +file2="$file/Makefile" +CVSROOT=/home/ncvs; export CVSROOT + +# set DISTDIR to a dummy directory. +DISTDIR=/tmp/___pds.cgi___; export DISTDIR + +cat < + +Sources for $file + + + +

Sources for $file

+ +EOF +cvs -Q co -p $file2 | make -I /home/fenner/mk -f - bill-fetch | + perl -ne 'print qq{$1
\n} + if m%((http|ftp)://\S+)%' +cat < + +EOF diff --git a/en/cgi/ports.cgi b/en/cgi/ports.cgi new file mode 100755 index 0000000000..0cbf27f150 --- /dev/null +++ b/en/cgi/ports.cgi @@ -0,0 +1,613 @@ +#!/usr/bin/perl +# +# Copyright (c) 1996-1997 Wolfram Schneider , Berlin. +# All rights reserved. +# +# Redistribution and use in source and binary forms, with or without +# modification, are permitted provided that the following conditions +# are met: +# 1. Redistributions of source code must retain the above copyright +# notice, this list of conditions and the following disclaimer. +# 2. Redistributions in binary form must reproduce the above copyright +# notice, this list of conditions and the following disclaimer in the +# documentation and/or other materials provided with the distribution. +# +# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND +# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +# ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE +# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS +# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) +# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT +# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY +# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF +# SUCH DAMAGE. +# +# $Id: ports.cgi,v 1.1 1997-09-19 16:47:40 wosch Exp $ +# +# ports.cgi - search engine for FreeBSD ports +# o search for a port by name or description +# o search for new or updated ports +# +# +# If you want use this script on your own host this line must +# work for you: $ cvs rdiff -D'last week' ports/INDEX + + +sub init_variables { + $cvsroot = '/home/ncvs'; # $CVSROOT + $localPrefix = '/usr/ports'; # ports prefix + $ports_database = 'ports/INDEX'; + # unset $ENV{'CVSROOT'}; + + @cvscmd = ('cvs', '-Q', '-d', $cvsroot); + + # URL of ports tree for browsing + $remotePrefixFtp = + 'http://ftp.freebsd.org/pub/FreeBSD/FreeBSD-current/ports'; + + # URL of ports tree for download + $remotePrefixFtpDownload = + # 'ftp://ftp.cs.tu-berlin.de/pub/FreeBSD/FreeBSD-current/ports'; + 'ftp://ftp.freebsd.org/pub/FreeBSD/FreeBSD-current/ports'; + + # where to get -current packages + local($p) = 'ftp://ftp.freebsd.org/pub/FreeBSD'; + $remotePrefixFtpPackagesDefault = 'current'; + %remotePrefixFtpPackages = + ('current', "$p/packages-stable/All", + '2.2.2', "$p/packages-2.2.2/All", + '2.1.6', "$p/packages-2.1.6/All", + '2.1.0', "$p/packages-2.1/All", + ); + + %relDate = + ('current', 'today', + '2.2.2', '5/16/97', + '2.1.6', '11/16/96', + '2.1.0', '11/19/95', + ); + + # + $remotePrefixHtml = + 'http://www.freebsd.org/ports'; + + # CVS Web interface + $remotePrefixCvs = + 'http://www.freebsd.org/cgi/cvsweb.cgi/ports'; + + # Ports documentation + $portsDesc = 'http://www.freebsd.org/ports/'; + + # location of the tiny BSD daemon + $daemonGif = '

} . + qq{Category $1} . + "

$version\n}; + print qq{: $comment
\n}; + + if ($old) { + local($l) = $descfile; + $l =~ s%^$remotePrefixFtp%$remotePrefixCvs%o; + $l =~ s%/([^/]+)$%/Attic/$1%; + + print qq{Was Maintained by: $email
} . + qq{Removed why

\n"; +} + +print "

\n"; +&footer; +&footer2;

Sources for $file

} . + qq{Category $1} . + "

FreeBSD Ports Changes $daemonGif

FreeBSD Ports Changed FAQ

Keywords

Misc

Sources for $file

} . + qq{Category $1} . + "

FreeBSD Ports Changes $daemonGif

FreeBSD Ports Changed FAQ

Keywords

Misc