Add atom feed
This commit is contained in:
Olivier Berten
parent
a37c2d5c12
commit
c8d1ff2175
|
|
@ -0,0 +1,52 @@
|
|||
<?php
|
||||
$dir = 'http'.(empty($_SERVER['HTTPS'])?'':'s').'://'.$_SERVER['HTTP_HOST'].substr($_SERVER['REQUEST_URI'],0,-8);
|
||||
|
||||
include('include/db.php');
|
||||
include('include/functions.php');
|
||||
header('Content-Type:application/atom+xml; charset=UTF-8');
|
||||
echo '<?xml version="1.0" encoding="utf-8"?>
|
||||
<feed xmlns="http://www.w3.org/2005/Atom">
|
||||
|
||||
<id>'.$dir.'scores.php</id>
|
||||
<title>GregoBase</title>
|
||||
<subtitle>A database of gregorian scores</subtitle>
|
||||
<link href="'.$dir.'scores.php" />
|
||||
<link href="'.$dir.'feed.php" rel="self" />
|
||||
';
|
||||
$sql1 = 'SELECT * FROM '.db('changesets').' ORDER BY `time` DESC LIMIT 10';
|
||||
$req1 = $mysqli->query($sql1) or die('Erreur SQL !<br />'.$sql1.'<br />'.$mysqli->error);
|
||||
|
||||
$m = $req1->fetch_assoc();
|
||||
echo '<updated>'.date(DATE_ATOM,$m['time']).'</updated>
|
||||
|
||||
';
|
||||
$user_info = get_userdata($m['user_id']);
|
||||
echo '<entry>
|
||||
<title type="html">'.format_incipit(chant_from_id($m['chant_id'])[1]).'</title>
|
||||
<link href="'.$dir.'chant.php?id='.$m['chant_id'].'" />
|
||||
<summary>'.$m['comment'].'</summary>
|
||||
<updated>'.date(DATE_ATOM,$m['time']).'</updated>
|
||||
<author>
|
||||
<name>'.$user_info->display_name.'</name>
|
||||
</author>
|
||||
<id>'.$dir.'history.php?changeset='.$m['time'].'%7C'.$m['chant_id'].'%7C'.$m['user_id'].'</id>
|
||||
</entry>
|
||||
|
||||
';
|
||||
|
||||
while($m = $req1->fetch_assoc()) {
|
||||
$user_info = get_userdata($m['user_id']);
|
||||
echo '<entry>
|
||||
<title type="html">'.format_incipit(chant_from_id($m['chant_id'])[1]).'</title>
|
||||
<link href="http://test.selapa.net/gregobase/chant.php?id='.$m['chant_id'].'" />
|
||||
<summary>'.$m['comment'].'</summary>
|
||||
<updated>'.date(DATE_ATOM,$m['time']).'</updated>
|
||||
<author>
|
||||
<name>'.$user_info->display_name.'</name>
|
||||
</author>
|
||||
<id>http://test.selapa.net/gregobase/history.php?changeset='.$m['time'].'%7C'.$m['chant_id'].'%7C'.$m['user_id'].'</id>
|
||||
</entry>
|
||||
';
|
||||
}
|
||||
echo '</feed>';
|
||||
?>
|
||||
|
|
@ -0,0 +1,109 @@
|
|||
<?php
|
||||
function format_incipit($incipit) {
|
||||
return $incipit = strtr($incipit, array(' Ps.' => ' <i>Ps.</i>',' cum Alleluia' => ' <i>cum</i> Alleluia',' sine Alleluia' => ' <i>sine</i> Alleluia','('=>'<i>(',')'=>')</i>'));
|
||||
}
|
||||
|
||||
class RomanNumber {
|
||||
//array of roman values
|
||||
public static $roman_values=array(
|
||||
'I' => 1, 'V' => 5,
|
||||
'X' => 10, 'L' => 50,
|
||||
'C' => 100, 'D' => 500,
|
||||
'M' => 1000,
|
||||
);
|
||||
//values that should evaluate as 0
|
||||
public static $roman_zero=array('N', 'nulla');
|
||||
//Regex - checking for valid Roman numerals
|
||||
public static $roman_regex='/^M{0,3}(CM|CD|D?C{0,3})(XC|XL|L?X{0,3})(IX|IV|V?I{0,3})$/';
|
||||
|
||||
//Roman numeral validation function - is the string a valid Roman Number?
|
||||
static function IsRomanNumber($roman) {
|
||||
return preg_match(self::$roman_regex, $roman) > 0;
|
||||
}
|
||||
|
||||
//Conversion: Roman Numeral to Integer
|
||||
static function Roman2Int ($roman) {
|
||||
//checking for zero values
|
||||
if (in_array($roman, self::$roman_zero)) {
|
||||
return 0;
|
||||
}
|
||||
//validating string
|
||||
if (!self::IsRomanNumber($roman)) {
|
||||
return false;
|
||||
}
|
||||
|
||||
$values=self::$roman_values;
|
||||
$result = 0;
|
||||
//iterating through characters LTR
|
||||
for ($i = 0, $length = strlen($roman); $i < $length; $i++) {
|
||||
//getting value of current char
|
||||
$value = $values[$roman[$i]];
|
||||
//getting value of next char - null if there is no next char
|
||||
$nextvalue = !isset($roman[$i + 1]) ? null : $values[$roman[$i + 1]];
|
||||
//adding/subtracting value from result based on $nextvalue
|
||||
$result += (!is_null($nextvalue) && $nextvalue > $value) ? -$value : $value;
|
||||
}
|
||||
return $result;
|
||||
}
|
||||
}
|
||||
|
||||
$days = array('sund','sunday','sundays','monday','tuesday','wednesday','thursday','friday','saturday');
|
||||
$hours = array('matins','lauds','prime','terce','sext','none','vespers','compline');
|
||||
|
||||
function custom_split($str) {
|
||||
global $days, $hours;
|
||||
$test = preg_split('/(?<=\D)\d|(?<=\d)\D|[ \.,\(\)]/', $str,0,PREG_SPLIT_NO_EMPTY);
|
||||
$i = 1;
|
||||
while(count($test) > $i) {
|
||||
if(ctype_alpha($test[$i]) && ctype_alpha($test[$i-1]) &&
|
||||
!RomanNumber::IsRomanNumber($test[$i]) && !RomanNumber::IsRomanNumber($test[$i-1]) &&
|
||||
!(RomanNumber::IsRomanNumber(substr($test[$i],0,-1)) && in_array(substr($test[$i],-1), array('a','b','c'))) &&
|
||||
!in_array(strtolower($test[$i]),$days) && !in_array(strtolower($test[$i-1]),$days) &&
|
||||
!in_array(strtolower($test[$i]),$hours) && !in_array(strtolower($test[$i-1]),$hours)) {
|
||||
$test[$i-1] = $test[$i-1].$test[$i];
|
||||
unset($test[$i]);
|
||||
$test = array_values($test);
|
||||
} elseif(RomanNumber::IsRomanNumber(substr($test[$i],0,-1)) && in_array(substr($test[$i],-1), array('a','b','c'))) {
|
||||
array_splice($test, $i+1, 0, array(substr($test[$i],-1)));
|
||||
$test[$i] = substr($test[$i],0,-1);
|
||||
$i+=2;
|
||||
} else {
|
||||
$i++;
|
||||
}
|
||||
}
|
||||
return $test;
|
||||
}
|
||||
|
||||
function custom_cmp($a,$b) {
|
||||
global $days, $hours;
|
||||
$u = array($a['office-part'],$b['office-part']);
|
||||
$v = array($a['version'],$b['version']);
|
||||
$a = custom_split($a['incipit']);
|
||||
$b = custom_split($b['incipit']);
|
||||
for($i = 0; $i < min(count($a),count($b)); $i++) {
|
||||
if(RomanNumber::IsRomanNumber($a[$i]) && RomanNumber::IsRomanNumber($b[$i])) {
|
||||
$a[$i] = RomanNumber::Roman2Int($a[$i]);
|
||||
$b[$i] = RomanNumber::Roman2Int($b[$i]);
|
||||
} elseif(in_array(strtolower($a[$i]), $days) && in_array(strtolower($b[$i]), $days)) {
|
||||
$a[$i] = array_search(strtolower($a[$i]), $days);
|
||||
$b[$i] = array_search(strtolower($b[$i]), $days);
|
||||
} elseif(in_array(strtolower($a[$i]), $hours) && in_array(strtolower($b[$i]), $hours)) {
|
||||
$a[$i] = array_search(strtolower($a[$i]), $hours);
|
||||
$b[$i] = array_search(strtolower($b[$i]), $hours);
|
||||
}
|
||||
if(strtolower($a[$i]) != strtolower($b[$i])) {
|
||||
return (strtolower($a[$i]) < strtolower($b[$i])) ? -1 : 1;
|
||||
}
|
||||
}
|
||||
if($a < $b) {
|
||||
return -1;
|
||||
} else {
|
||||
return 1;
|
||||
}
|
||||
if($u[0] != $u[1]) {
|
||||
return ($u[0] < $u[1]) ? -1 : 1;
|
||||
}
|
||||
return ($v[0] < $v[1]) ? -1 : 1;
|
||||
}
|
||||
|
||||
?>
|
||||
|
|
@ -1,111 +1,5 @@
|
|||
<?php
|
||||
function format_incipit($incipit) {
|
||||
return $incipit = strtr($incipit, array(' Ps.' => ' <i>Ps.</i>',' cum Alleluia' => ' <i>cum</i> Alleluia',' sine Alleluia' => ' <i>sine</i> Alleluia','('=>'<i>(',')'=>')</i>'));
|
||||
}
|
||||
|
||||
class RomanNumber {
|
||||
//array of roman values
|
||||
public static $roman_values=array(
|
||||
'I' => 1, 'V' => 5,
|
||||
'X' => 10, 'L' => 50,
|
||||
'C' => 100, 'D' => 500,
|
||||
'M' => 1000,
|
||||
);
|
||||
//values that should evaluate as 0
|
||||
public static $roman_zero=array('N', 'nulla');
|
||||
//Regex - checking for valid Roman numerals
|
||||
public static $roman_regex='/^M{0,3}(CM|CD|D?C{0,3})(XC|XL|L?X{0,3})(IX|IV|V?I{0,3})$/';
|
||||
|
||||
//Roman numeral validation function - is the string a valid Roman Number?
|
||||
static function IsRomanNumber($roman) {
|
||||
return preg_match(self::$roman_regex, $roman) > 0;
|
||||
}
|
||||
|
||||
//Conversion: Roman Numeral to Integer
|
||||
static function Roman2Int ($roman) {
|
||||
//checking for zero values
|
||||
if (in_array($roman, self::$roman_zero)) {
|
||||
return 0;
|
||||
}
|
||||
//validating string
|
||||
if (!self::IsRomanNumber($roman)) {
|
||||
return false;
|
||||
}
|
||||
|
||||
$values=self::$roman_values;
|
||||
$result = 0;
|
||||
//iterating through characters LTR
|
||||
for ($i = 0, $length = strlen($roman); $i < $length; $i++) {
|
||||
//getting value of current char
|
||||
$value = $values[$roman[$i]];
|
||||
//getting value of next char - null if there is no next char
|
||||
$nextvalue = !isset($roman[$i + 1]) ? null : $values[$roman[$i + 1]];
|
||||
//adding/subtracting value from result based on $nextvalue
|
||||
$result += (!is_null($nextvalue) && $nextvalue > $value) ? -$value : $value;
|
||||
}
|
||||
return $result;
|
||||
}
|
||||
}
|
||||
|
||||
$days = array('sund','sunday','sundays','monday','tuesday','wednesday','thursday','friday','saturday');
|
||||
$hours = array('matins','lauds','prime','terce','sext','none','vespers','compline');
|
||||
|
||||
function custom_split($str) {
|
||||
global $days, $hours;
|
||||
$test = preg_split('/(?<=\D)\d|(?<=\d)\D|[ \.,\(\)]/', $str,0,PREG_SPLIT_NO_EMPTY);
|
||||
$i = 1;
|
||||
while(count($test) > $i) {
|
||||
if(ctype_alpha($test[$i]) && ctype_alpha($test[$i-1]) &&
|
||||
!RomanNumber::IsRomanNumber($test[$i]) && !RomanNumber::IsRomanNumber($test[$i-1]) &&
|
||||
!(RomanNumber::IsRomanNumber(substr($test[$i],0,-1)) && in_array(substr($test[$i],-1), array('a','b','c'))) &&
|
||||
!in_array(strtolower($test[$i]),$days) && !in_array(strtolower($test[$i-1]),$days) &&
|
||||
!in_array(strtolower($test[$i]),$hours) && !in_array(strtolower($test[$i-1]),$hours)) {
|
||||
$test[$i-1] = $test[$i-1].$test[$i];
|
||||
unset($test[$i]);
|
||||
$test = array_values($test);
|
||||
} elseif(RomanNumber::IsRomanNumber(substr($test[$i],0,-1)) && in_array(substr($test[$i],-1), array('a','b','c'))) {
|
||||
array_splice($test, $i+1, 0, array(substr($test[$i],-1)));
|
||||
$test[$i] = substr($test[$i],0,-1);
|
||||
$i+=2;
|
||||
} else {
|
||||
$i++;
|
||||
}
|
||||
}
|
||||
return $test;
|
||||
}
|
||||
|
||||
function custom_cmp($a,$b) {
|
||||
global $days, $hours;
|
||||
$u = array($a['office-part'],$b['office-part']);
|
||||
$v = array($a['version'],$b['version']);
|
||||
$a = custom_split($a['incipit']);
|
||||
$b = custom_split($b['incipit']);
|
||||
for($i = 0; $i < min(count($a),count($b)); $i++) {
|
||||
if(RomanNumber::IsRomanNumber($a[$i]) && RomanNumber::IsRomanNumber($b[$i])) {
|
||||
$a[$i] = RomanNumber::Roman2Int($a[$i]);
|
||||
$b[$i] = RomanNumber::Roman2Int($b[$i]);
|
||||
} elseif(in_array(strtolower($a[$i]), $days) && in_array(strtolower($b[$i]), $days)) {
|
||||
$a[$i] = array_search(strtolower($a[$i]), $days);
|
||||
$b[$i] = array_search(strtolower($b[$i]), $days);
|
||||
} elseif(in_array(strtolower($a[$i]), $hours) && in_array(strtolower($b[$i]), $hours)) {
|
||||
$a[$i] = array_search(strtolower($a[$i]), $hours);
|
||||
$b[$i] = array_search(strtolower($b[$i]), $hours);
|
||||
}
|
||||
if(strtolower($a[$i]) != strtolower($b[$i])) {
|
||||
return (strtolower($a[$i]) < strtolower($b[$i])) ? -1 : 1;
|
||||
}
|
||||
}
|
||||
if($a < $b) {
|
||||
return -1;
|
||||
} else {
|
||||
return 1;
|
||||
}
|
||||
if($u[0] != $u[1]) {
|
||||
return ($u[0] < $u[1]) ? -1 : 1;
|
||||
}
|
||||
return ($v[0] < $v[1]) ? -1 : 1;
|
||||
}
|
||||
|
||||
include('include/functions.php');
|
||||
echo <<<HEADER1
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
|
||||
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
|
||||
|
|
|
|||
Loading…
Reference in New Issue