josch/yolanda
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

create frontpage from scratch

Browse source 
git-svn-id: http://yolanda.mister-muffin.de/svn@50 7eef14d0-6ed0-489d-bf55-20463b2d70db
This commit is contained in:
josch 2007-10-12 10:35:56 +00:00
parent 1437a10178
commit d8d4bd14e3
2 changed files with 4 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
trunk/index.pl
View file

@ -6,11 +6,13 @@ require "functions.pl";
CGI::Session->name($session_name); CGI::Session->name($session_name);
my $session = new CGI::Session; my $session = new CGI::Session;
#read xml %page = ();
$page = XMLin("$gnutube_root/index.xml", ForceArray => 1, KeyAttr => {} );
#if a username is associated with session id, username is nonempty #if a username is associated with session id, username is nonempty
$page->{username} = get_username_from_sid($session->id); $page->{username} = get_username_from_sid($session->id);
$page->{locale} = "en-US";
$page->{stylesheet} = "./style/gnutube.css";
$page->{frontpage} = [''];
fill_tagcloud; fill_tagcloud;
@ -20,4 +22,3 @@ print $session->header(-type=>'text/xml');
#print xml #print xml
print XMLout($page, KeyAttr => {}, XMLDecl => $XMLDecl, RootName => 'page'); print XMLout($page, KeyAttr => {}, XMLDecl => $XMLDecl, RootName => 'page');

7
trunk/index.xml
View file

@ -1,7 +0,0 @@
<page
locale="en-US"
stylesheet="./style/gnutube.css"
username=""
>
<frontpage />
</page>