Config Page

☞ redirected from cp

package Odd Muse;
$Cookie Name = 'akiw';
$Site Name = 'Auriea L';
$Home Page = 'AurieaL';
$RCName = 'About';
$Keep Days = 365;
$defaultTZ = 2;

$Upload Allowed = 1;
@Upload Types = ('image/jpg','image/jpeg','image/gif','image/png','image/png','application/pdf', 'image/svg+xml');

#$Style Sheet = 'http://auriea.org/iphone.css';
$User Goto Bar = '

';;
@User Goto Bar Pages = ($Config Page, 'css', $RCName); # List of pagenames
%Admin Pages = ( $Inter Map, $Rss Exclude, $Near Map, $RCName, $Config Page, $Style Sheet Page );

sub Get Feeds {};
push(@My Init Variables, &Add My Rss Feeds);

  $Html Headers =

sub Add My Rss Feeds {

  $Html Headers .= $q->Link({-rel => "alternate",
                -type => "application/rss+xml",
	    -title => "$Site Name: autobiography, list of changed pages.",
	    -href => "http://auriea.org/index.pl?action=rss"
	    })
  . $q->Link({-rel => "alternate",
	    -type => "application/rss+xml",
	    -title => "$Site Name: <a class="wikilink autolink" href="/Diary">diary</a>, images, words.",
	    -href => "http://auriea.org/index.pl?action=journal;full=1;title="
	    . Url Encode("Diary")});
  # Per page full feed only if looking at a page                                                                                                
  my $id = Get Id();
  return unless $id;
  my $title = Free To Normal($id);
  my $utitle = Url Encode($title);
  $Html Headers .= $q->Link({-rel => "alternate",
			-type => "application/rss+xml",
			-title => "$Site Name: this page, when it changes, you see changes.",
			-href => "$Script Name?action=rss;full=1;rcidonly=$id;title=$utitle"})

}

$Not Found Pg = *;
$Edit Allowed = 0;
$Site Base = *;
$Bracket Wiki = 1;
$Logo Url = *;
$Surge Protection = 1;
$Surge Protection Time = 30;
$Surge Protection Views = 100;
$Max Post = 10000 * 4096;
$Page Cluster = *;
$Page Types Name = 'Cluster';
$Use Questionmark = 0;

$Raw Html = 1;
$Html Links = 1;
$Html Tags = 1;
$Top Link Bar = 1;
$Footer Note ='';
$Edit Note = 'Text Formatting Rules';

$New Text = 'One Moment After Another';
$New Comment = 'non. désolé.';
$Calendar On Every Page = 0; # 1=on every page is a month-div situated in the header, use css to control
$Cal As Table = 1; # 0=every month-div is "free", 1=every month-div is caught in a table, use css to control
$Cal Start Monday = 1; # 0=week starts with Su, 1=week starts with Mo
$Use Mod Markup In Titles = 1;
$Page Trail Length = 8;
$Image Url Path = '/static';
$Sound Url Path = '/mp3'; # URL where the mp3 files are to be found
$Local Names Collect = 0;
$Markup Quotes = 1;

my %Recurring Days = (
'1971-06-02'=>"Auriea, it is your birthday! %s years",
'1968-06-28'=>"Today is Michaels birthday! – %s years",
'1999-01-29'=>"Michael and Auriea met in hell %s years ago today.",
'1999-01-30'=>"Michael sends Auriea breath.html beginning skinonskinonskin %s years ago today.",
'1999-03-18'=>"Michael and Auriea met in the flesh in San Francisco and launched http://entropy8zuper.org %s years",
'1999-05-13'=>"Auriea moved to Belgium for good http://entropy8zuper.org %s years ago today!",
'2003-01-08'=>"Auriea and Michael are married %s years as of today!",
);

push(@My Init Variables,
sub {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) = localtime(time);
$year += 1900;
$mon += 1;
for my $date (keys %Recurring Days) {
my ($y, $m, $d) = split(/-[ 0]?/, $date);
$Special Days{"$m-$d"}
= Script Link($date, Ts($Recurring Days{$date}, $year - $y));
}
});

sub My Rules {
if (m/\G(.?)</comment>[ \t]/cgs) {
return Close Html Environments()
. '<!---'

      . '--->';

  }

if (m/\G<source>\n?(.?\n)</source>[ \t]\n?/cgs) { # source must be on column 1
return Close Html Environments()
. '

return undef;
}

link in new window
push(@My Rules, &newWindowLink);
sub newWindowLink
{

compare sub Link Rules in oddmuse.pl

if ($Bracket Text && m/\G([new:$Full Url Pattern\s+([^]]+?)])/cog
or m/\G([new:$Full Url Pattern])/cog)
{
my ($url, $text) = ($2, $3);
$url =~ /^($Url Protocols)/;
my $class = "url $1"; # get protocol (http, ftp, ...)
$text = $url unless $text; # use url as link text if text empty
$url = Unquote Html($url); # quote special chars
$class .= ' newwindow'; # add newwindow to class

output link

my $link = $q->a({-href=>$url, -class=>$class, -target=>"_new"}, $text);
return $link;
}
return undef;
}
div foo
push(@My Rules, &divRule);

sub divRule {
if (m/\G<(div class="[^"]+")>/cgi or m/\G<(/div)>/cgi) {
return Close Html Environments() . '<' . UrlDecode($1) . '>';
}
return undef;
}
sub Print My Content {
Get Back Link($_[0]);
};

Config Page

compare sub Link Rules in oddmuse.pl

output link