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

output uploadform

Browse source 
git-svn-id: http://yolanda.mister-muffin.de/svn@63 7eef14d0-6ed0-489d-bf55-20463b2d70db
This commit is contained in:
josch 2007-10-12 15:48:30 +00:00
parent 32a57b9f79
commit 8c0e59d753
1 changed files with 12 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
trunk/upload.pl
View file

@ -10,16 +10,18 @@ my $username = get_username_from_sid($session->id);
if($username) if($username)
{ {
print $session->header(); %page = ();
print '<form action="uploader.pl" method="post" enctype="multipart/form-data">
Upload: <input type="file" name="file"> #if a username is associated with session id, username is nonempty
<br><br> $page->{username} = get_username_from_sid($session->id);
Title: <input type="text" name="title"> $page->{locale} = $locale;
<br><br> $page->{stylesheet} = $stylesheet;
Beschreibung: <input type="text" name="caption"> $page->{uploadform} = [''];
<br><br>
<input type="submit" name="submit" value=" upload "> #print xml http header along with session cookie
</form>'; print $session->header(-type=>'text/xml');
print XMLout($page, KeyAttr => {}, XMLDecl => $XMLDecl, RootName => 'page');
} }
else else
{ {