create frontpage from scratch
git-svn-id: http://yolanda.mister-muffin.de/svn@50 7eef14d0-6ed0-489d-bf55-20463b2d70db
This commit is contained in:
parent
1437a10178
commit
d8d4bd14e3
2 changed files with 4 additions and 10 deletions
|
@ -6,11 +6,13 @@ require "functions.pl";
|
|||
CGI::Session->name($session_name);
|
||||
my $session = new CGI::Session;
|
||||
|
||||
#read xml
|
||||
$page = XMLin("$gnutube_root/index.xml", ForceArray => 1, KeyAttr => {} );
|
||||
%page = ();
|
||||
|
||||
#if a username is associated with session id, username is nonempty
|
||||
$page->{username} = get_username_from_sid($session->id);
|
||||
$page->{locale} = "en-US";
|
||||
$page->{stylesheet} = "./style/gnutube.css";
|
||||
$page->{frontpage} = [''];
|
||||
|
||||
fill_tagcloud;
|
||||
|
||||
|
@ -20,4 +22,3 @@ print $session->header(-type=>'text/xml');
|
|||
#print xml
|
||||
print XMLout($page, KeyAttr => {}, XMLDecl => $XMLDecl, RootName => 'page');
|
||||
|
||||
|
||||
|
|
|
@ -1,7 +0,0 @@
|
|||
<page
|
||||
locale="en-US"
|
||||
stylesheet="./style/gnutube.css"
|
||||
username=""
|
||||
>
|
||||
<frontpage />
|
||||
</page>
|
Loading…
Reference in a new issue