version 1.19, 2006/03/19 22:22:49
|
version 1.20, 2006/12/05 02:55:52
|
Line 33 use Apache::lonnet;
|
Line 33 use Apache::lonnet;
|
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::lonenc(); |
use Apache::lonenc(); |
|
use LONCAPA(); |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
Line 53 sub handler {
|
Line 54 sub handler {
|
my $title=&Apache::lonnet::gettitle($feedurl); |
my $title=&Apache::lonnet::gettitle($feedurl); |
my $showurl=&Apache::lonenc::check_encrypt($feedurl); |
my $showurl=&Apache::lonenc::check_encrypt($feedurl); |
|
|
my ($rdomain,$rauth)=($feedurl=~/^(\w+)\/(\w+)\//); |
my ($rdomain,$rauth)=($feedurl=~/^($LONCAPA::domain_re)\/($LONCAPA::username_re)\//); |
|
|
my $prefix=$env{'user.name'}.'@'.$env{'user.domain'}.'___'. |
my $prefix=$env{'user.name'}.'@'.$env{'user.domain'}.'___'. |
$feedurl.'___'; |
$feedurl.'___'; |