#!/usr/bin/perl -- use utf8; use open ':std', ':encoding(UTF-8)'; unshift(@INC, '../../cgi/'); require "./cgi-lib.pl"; $home = ".."; &ReadParse(*input); $editing = $input{'editing'}; $oneid = $input{'oneid'}; $concise = $input{'concise'}; print "Content-Type: text/html; charset=utf-8\n\n"; # Print page header with consistent site styling print <<'HEADER'; PLUM - Programming Languages Used for Music
HEADER if ( $ENV{'REMOTE_ADDR'} eq '99.34.229.246' ) { $editing = "true"; } if ( $ENV{'REMOTE_ADDR'} eq '108.193.3.210' ) { $editing = "true"; } if ( $oneid eq "" ) { print "
Click on each language name for more details
\n"; } open(DB,"cat ".$home."/db/list.db | sort -f -t \";\" -k 2 |"); if ( ! $concise eq "" ) { print "
\n"; } while ( ) { ($id,$lang,$compos,$impl,$year,$auth,$desc,$url,$ref,$manip) = split(/[; \n]/); if ( $id eq "ID" ) { next; } if ( $lang eq "" ) { next; } if ( $oneid ne "" && $oneid ne $id ) { next; } $_ = $desc; s/\x07/ /g; s/<((http|ftp):[^>]*)>/\1<\/a>/g; $desc = $_; if ( $concise eq "" ) { print "
\n"; print "

$lang

\n"; if ( ! $editing eq "" ) { print "
"; print ""; print ""; print "
"; } print "\n"; print ""; print "\n"; print ""; print "\n"; print ""; print "\n"; print "\n"; print "\n"; print "
Computer/OS:$composYear:$year
Author:$authManipulates:$manip
Web:$urlImplementation:$impl
Paper:$ref
Description:$desc
\n"; print "
\n"; } else { print "
$lang
\n"; print "
$desc
\n"; } } if ( ! $concise eq "" ) { print "
\n"; } print "
\n"; print "← Back\n"; print "
\n"; print <<'FOOTER';
FOOTER