version 1.5, 2005/11/20 02:12:35
|
version 1.17, 2006/04/22 20:58:32
|
Line 36 use Apache::lontexconvert;
|
Line 36 use Apache::lontexconvert;
|
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::lonhtmlcommon; |
use Apache::lonhtmlcommon; |
|
|
|
|
sub filterfeedname { |
sub filterfeedname { |
my $filename=shift; |
my $filename=shift; |
$filename=~s/(\_rss\.html|\.rss)$//; |
$filename=~s/(\_rss\.html|\.rss)$//; |
$filename=~s/\W//g; |
$filename=~s/\W//g; |
|
$filename=~s/\_rssfeed$//; |
|
$filename=~s/^nohist\_//; |
return $filename; |
return $filename; |
} |
} |
|
|
Line 74 sub renamefeed {
|
Line 77 sub renamefeed {
|
} |
} |
|
|
sub advertisefeeds { |
sub advertisefeeds { |
my ($uname,$udom)=@_; |
my ($uname,$udom,$edit)=@_; |
my $feeds=''; |
my $feeds=''; |
my %feednames=&Apache::lonnet::dump('nohist_all_rss_feeds',$udom,$uname); |
my %feednames=&Apache::lonnet::dump('nohist_all_rss_feeds',$udom,$uname); |
|
my $mode='public'; |
|
if ($edit) { |
|
$mode='adm'; |
|
} |
foreach my $feed (sort(keys(%feednames))) { |
foreach my $feed (sort(keys(%feednames))) { |
if ($feed!~/^error\:/) { |
if ($feed!~/^error\:/) { |
my $feedurl='feed://'.$ENV{'HTTP_HOST'}.'/public/'.$udom.'/'.$uname.'/'.$feed.'.rss'; |
my $feedurl='http://'.$ENV{'HTTP_HOST'}.'/public/'.$udom.'/'.$uname.'/'.$feed.'.rss'; |
my $htmlurl='http://'.$ENV{'HTTP_HOST'}.'/public/'.$udom.'/'.$uname.'/'.$feed.'_rss.html'; |
my $htmlurl='http://'.$ENV{'HTTP_HOST'}.'/'.$mode.'/'.$udom.'/'.$uname.'/'.$feed.'_rss.html'; |
$feeds.='<li>'.$feednames{$feed}. |
$feeds.='<li>'.$feednames{$feed}. |
'<br />HTML: <a href="'.$htmlurl.'"><tt>'.$htmlurl.'</tt></a>'. |
'<br />'.($edit?&mt('Edit'):'HTML').': <a href="'.$htmlurl.'"><tt>'.$htmlurl.'</tt></a>'. |
'<br />RSS: <a href="'.$feedurl.'"><tt>'.$feedurl.'</tt></a></li>'; |
($edit?'':'<br />RSS: <a href="'.$feedurl.'"><tt>'.$feedurl.'</tt></a>').'</li>'; |
} |
} |
} |
} |
if ($feeds) { |
if ($feeds) { |
Line 93 sub advertisefeeds {
|
Line 100 sub advertisefeeds {
|
} |
} |
} |
} |
|
|
|
sub rss_link { |
|
my ($url) = @_; |
|
return qq|<link rel="alternate" type="application/rss+xml" title="Course Announcements" href="$url" />|; |
|
} |
|
|
{ |
{ |
my $feedcounter; |
my $feedcounter; |
sub addentry { |
sub get_new_feed_id { |
$feedcounter++; |
$feedcounter++; |
my $id=time.'00000'.$$.'00000'.$feedcounter; |
return time().'00000'.$$.'00000'.$feedcounter; |
return &editentry($id,@_); |
|
} |
} |
} |
} |
|
|
|
sub addentry { |
|
my $id=&get_new_feed_id(); |
|
return &editentry($id,@_); |
|
} |
|
|
sub editentry { |
sub editentry { |
my ($id,$uname,$udom,$filename,$title,$description,$url,$status,$encurl,$enclength,$enctype)=@_; |
my ($id,$uname,$udom,$filename,$title,$description,$url,$status,$encurl,$enctype)=@_; |
|
if ($status eq 'deleted') { |
|
return &changestatus($id,$uname,$udom,$filename,$status); |
|
} |
my $feedname=&feedname($filename); |
my $feedname=&feedname($filename); |
&Apache::lonnet::put('nohist_all_rss_feeds', |
&Apache::lonnet::put('nohist_all_rss_feeds', |
{ &filterfeedname($filename) => &displayfeedname($filename,$uname,$udom) }, |
{ &filterfeedname($filename) => &displayfeedname($filename,$uname,$udom) }, |
Line 113 sub editentry {
|
Line 132 sub editentry {
|
$id.'_description' => $description, |
$id.'_description' => $description, |
$id.'_link' => $url, |
$id.'_link' => $url, |
$id.'_enclosureurl' => $encurl, |
$id.'_enclosureurl' => $encurl, |
$id.'_enclosurelength' => $enclength, |
|
$id.'_enclosuretype' => $enctype, |
$id.'_enclosuretype' => $enctype, |
$id.'_status' => $status},$udom,$uname); |
$id.'_status' => $status},$udom,$uname); |
} |
} |
Line 126 sub changestatus {
|
Line 144 sub changestatus {
|
$id.'_description', |
$id.'_description', |
$id.'_link', |
$id.'_link', |
$id.'_enclosureurl', |
$id.'_enclosureurl', |
$id.'_enclosurelength', |
|
$id.'_enclosuretype', |
$id.'_enclosuretype', |
$id.'_status'],$udom,$uname); |
$id.'_status'],$udom,$uname); |
} else { |
} else { |
Line 134 sub changestatus {
|
Line 151 sub changestatus {
|
} |
} |
} |
} |
|
|
|
sub changed_js { |
|
return <<ENDSCRIPT; |
|
<script type="text/javascript"> |
|
function changed(tform,id) { |
|
tform.elements[id+"_modified"].checked=true; |
|
} |
|
</script> |
|
ENDSCRIPT |
|
} |
|
|
|
sub determine_enclosure_types { |
|
my ($url)=@_; |
|
my ($ending)=($url=~/\.(\w+)$/); |
|
return &Apache::loncommon::filemimetype($ending); |
|
} |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my ($r) = @_; |
|
|
my $edit=0; |
my $edit=0; |
my $html=0; |
my $html=0; |
Line 161 sub handler {
|
Line 194 sub handler {
|
my $feedname=&feedname($filename); |
my $feedname=&feedname($filename); |
my $displayfeedname=&displayfeedname($filename,$uname,$udom); |
my $displayfeedname=&displayfeedname($filename,$uname,$udom); |
if ($html) { |
if ($html) { |
$r->print(&Apache::lonxml::xmlbegin().&Apache::loncommon::bodytag |
$r->print(&Apache::loncommon::start_page($displayfeedname,undef, |
($displayfeedname,'','','',$udom, |
{'domain' => $udom, |
$env{'form.register'})); |
'force_register' => |
|
$env{'form.register'}}). |
|
&changed_js()); |
} else { |
} else { |
$r->print("<rss version='2.0' xmlns:dc='http://purl.org/dc/elements/1.1'>\n<channel>". |
$r->print("<rss version='2.0' xmlns:dc='http://purl.org/dc/elements/1.1'>\n<channel>". |
"\n<link>http://".$ENV{'HTTP_HOST'}.'/public/'.$udom.'/'.$uname.'/'. |
"\n<link>http://".$ENV{'HTTP_HOST'}.'/public/'.$udom.'/'.$uname.'/'. |
Line 172 sub handler {
|
Line 207 sub handler {
|
&mt('An RSS Feed provided by the LON-CAPA Learning Content Management System'). |
&mt('An RSS Feed provided by the LON-CAPA Learning Content Management System'). |
'</description>'); |
'</description>'); |
} |
} |
|
# Do we have stuff to store? |
|
if ($edit) { |
|
my %newsfeed=&Apache::lonnet::dump($feedname,$udom,$uname); |
|
foreach my $entry (sort(keys(%newsfeed)),$env{'form.newid'}.'_status') { |
|
if ($entry=~/^(\d+)\_status$/) { |
|
my $id=$1; |
|
if ($env{'form.'.$id.'_modified'}) { |
|
&editentry($id,$uname,$udom,$feedname, |
|
$env{'form.'.$id.'_title'}, |
|
$env{'form.'.$id.'_description'}, |
|
$env{'form.'.$id.'_url'}, |
|
$env{'form.'.$id.'_status'}); |
|
} |
|
} |
|
} |
|
} |
|
my $newid = &get_new_feed_id(); |
# Is this user for real? |
# Is this user for real? |
my $homeserver=&Apache::lonnet::homeserver($uname,$udom); |
my $homeserver=&Apache::lonnet::homeserver($uname,$udom); |
|
if ($html) { |
|
$r->print(&advertisefeeds($uname,$udom,$edit)); |
|
} |
if ($homeserver eq 'no_host') { |
if ($homeserver eq 'no_host') { |
$r->print(($html?'<h3>':'<title>').&mt('No feed available').($html?'</h3>':'</title>')); |
$r->print(($html?'<h3>':'<title>').&mt('No feed available').($html?'</h3>':'</title>')); |
} else { |
} else { |
Line 188 sub handler {
|
Line 243 sub handler {
|
$r->print("\n". |
$r->print("\n". |
($html?'<h3>':'<title>'). |
($html?'<h3>':'<title>'). |
&mt('LON-CAPA Feed "[_1]" for [_2]',$displayfeedname,$name). |
&mt('LON-CAPA Feed "[_1]" for [_2]',$displayfeedname,$name). |
($html?'</h3>'.($edit?'<form method="post">':'').'<ul>':'</title>')); |
($html?'</h3>'.($edit?'<form method="post"><br />'. |
|
&mt('Name of blog/journal'). |
|
': <input type="text" size="50" name="newblogname" value="'. |
|
$displayfeedname.'" />':'').'<ul>':'</title>')); |
# Render private items? |
# Render private items? |
my $viewpubliconly=1; |
my $viewpubliconly=1; |
if (($env{'user.name'} eq $uname) && ($env{'user.domain'} eq $udom)) { |
if (($env{'user.name'} eq $uname) && ($env{'user.domain'} eq $udom)) { |
Line 196 sub handler {
|
Line 254 sub handler {
|
} |
} |
# Get feed items |
# Get feed items |
my %newsfeed=&Apache::lonnet::dump($feedname,$udom,$uname); |
my %newsfeed=&Apache::lonnet::dump($feedname,$udom,$uname); |
foreach my $entry (sort(keys(%newsfeed))) { |
foreach my $entry (sort(keys(%newsfeed)),$newid.'_status') { |
if ($entry=~/^(\d+)\_status$/) { |
if ($entry=~/^(\d+)\_status$/) { |
my $id=$1; |
my $id=$1; |
if ($edit) { |
if ($edit) { |
my %lt=&Apache::lonlocal::texthash('public' => 'public', |
my %lt=&Apache::lonlocal::texthash('public' => 'public', |
'private' => 'private', |
'private' => 'private', |
'hidden' => 'hidden', |
'hidden' => 'hidden', |
'delete' => 'delete'); |
'delete' => 'delete', |
|
'store' => 'Store changes'); |
my %status=(); |
my %status=(); |
|
unless ($newsfeed{$id.'_status'}) { $newsfeed{$id.'_status'}='public'; } |
$status{$newsfeed{$id.'_status'}}='checked="checked"'; |
$status{$newsfeed{$id.'_status'}}='checked="checked"'; |
$r->print(<<ENDEDIT); |
$r->print(<<ENDEDIT); |
<li> |
<li> |
<input name='$id\_modified' type='hidden' value='0' /> |
<label><input name='$id\_modified' type='checkbox' value="modified" /> $lt{'store'}</label> |
<label><input name='$id\_status' type="radio" value="public" $status{'public'}> $lt{'public'}</label> |
|
|
<label><input name='$id\_status' type="radio" value="public" $status{'public'} onClick="changed(this.form,'$id');" /> $lt{'public'}</label> |
|
|
<label><input name='$id\_status' type="radio" value="private" $status{'private'}> $lt{'private'}</label> |
<label><input name='$id\_status' type="radio" value="private" $status{'private'} onClick="changed(this.form,'$id');" /> $lt{'private'}</label> |
|
|
<label><input name='$id\_status' type="radio" value="hidden" $status{'hidden'}> $lt{'hidden'}</label> |
<label><input name='$id\_status' type="radio" value="hidden" $status{'hidden'} onClick="changed(this.form,'$id');" /> $lt{'hidden'}</label> |
|
|
<label><input name='$id\_status' type="radio" value="delete"> $lt{'delete'}</label> |
<label><input name='$id\_status' type="radio" value="deleted" onClick="changed(this.form,'$id');" /> $lt{'delete'}</label> |
<br /> |
<br /> |
<input name='$id\_title' type='text' size='80' value='$newsfeed{$id.'_title'}' /><br /> |
<input name='$id\_title' type='text' size='80' value='$newsfeed{$id.'_title'}' onChange="changed(this.form,'$id');" /><br /> |
<textarea name='$id\_description' rows="6" cols="80">$newsfeed{$id.'_description'}</textarea> |
<textarea name='$id\_description' rows="6" cols="80" onChange="changed(this.form,'$id');">$newsfeed{$id.'_description'}</textarea><br /> |
</li> |
<input name='$id\_link' type='text' size='80' value='$newsfeed{$id.'_link'}' onChange="changed(this.form,'$id');" /> |
|
<hr /></li> |
ENDEDIT |
ENDEDIT |
} else { |
} else { |
if (($newsfeed{$id.'_status'} ne 'public') && ($viewpubliconly)) { next; } |
if (($newsfeed{$id.'_status'} ne 'public') && ($viewpubliconly)) { next; } |
Line 231 ENDEDIT
|
Line 293 ENDEDIT
|
"http://".$ENV{'HTTP_HOST'}. |
"http://".$ENV{'HTTP_HOST'}. |
$newsfeed{$id.'_link'}. |
$newsfeed{$id.'_link'}. |
($html?("'>".&mt('Read more')."</a><br />\n"):"</link>\n")); |
($html?("'>".&mt('Read more')."</a><br />\n"):"</link>\n")); |
|
# Enclosure? Get stats |
if ($newsfeed{$id.'_enclosureurl'}) { |
if ($newsfeed{$id.'_enclosureurl'}) { |
$r->print(($html?"<a href='":"\n<enclosure url='"). |
my @stat=&Apache::lonnet::stat_file($newsfeed{$id.'_enclosureurl'}); |
$newsfeed{$id.'_enclosureurl'}."' length='".$newsfeed{$id.'_enclosurelength'}. |
if ($stat[7]) { |
"' type='".$newsfeed{$id.'_enclosuretype'}.($html?"'>".&mt('Enclosure')."</a>":"' />")); |
# Has non-zero length (and exists) |
|
my $enclosuretype=$newsfeed{$id.'_enclosetype'}; |
|
$r->print(($html?"<a href='":"\n<enclosure url='"). |
|
$newsfeed{$id.'_enclosureurl'}."' length='".$stat[7]. |
|
"' type='".$enclosuretype.($html?"'>".&mt('Enclosure')."</a>":"' />")); |
|
} |
} |
} |
if ($html) { |
if ($html) { |
$r->print("\n<hr /></li>\n"); |
$r->print("\n<hr /></li>\n"); |
Line 245 ENDEDIT
|
Line 313 ENDEDIT
|
} |
} |
} |
} |
} |
} |
$r->print("\n".($html?'</ul>'.($edit?'</form>':'').'</body></html>':'</channel></rss>'."\n")); |
$r->print("\n".($html?'</ul>'.($edit?'<input type="hidden" name="newid" value="'.$newid.'"/><input type="submit" value="'.&mt('Store Marked Changes').'" /></form>':'').&Apache::loncommon::end_page():'</channel></rss>'."\n")); |
return OK; |
return OK; |
} |
} |
1; |
1; |