1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
<?vsp
--
-- $Id$
--
-- This file is part of the OpenLink Software Virtuoso Open-Source (VOS)
-- project.
--
-- Copyright (C) 1998-2024 OpenLink Software
--
-- This project is free software; you can redistribute it and/or modify it
-- under the terms of the GNU General Public License as published by the
-- Free Software Foundation; only version 2 of the License, dated June 1991.
--
-- This program is distributed in the hope that it will be useful, but
-- WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-- General Public License for more details.
--
-- You should have received a copy of the GNU General Public License along
-- with this program; if not, write to the Free Software Foundation, Inc.,
-- 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
--
--
-- vs_b_8_media
declare thisvsp varchar;
if ({?'add'} = 'Add' and {?'file'} <> '')
{
declare ss any;
declare pos int;
pos := position ('file', params);
ss := aref_set_0 (params, pos);
insert replacing VS_B_8 values (get_keyword ('filename', {?'attr-file'}), ss, get_keyword ('Content-Type', {?'attr-file'}, 'application/octet-stream'));
}
else if ({?'download_file'} is not null)
{
declare fcontent, ftype varchar;
select CONTENT, TYPE into fcontent, ftype from VS_B_8 where NAME = {?'download_file'};
http (fcontent);
http_header (sprintf ('Content-Type: %s\r\n', ftype));
return 0;
}
thisvsp := aref(path,length(path)-1);
?>
<HTML>
<HEAD><link rel="stylesheet" type="text/css" href="../demo.css"></HEAD>
<BODY>
<H2>Media Archive</H2>
<FORM action="<?=thisvsp?>" method="POST" enctype="multipart/form-data">
<TABLE class="tableentry">
<TR><TD colspan="2">Browse to any file, then click Add.</TD></TR>
<TR>
<TD><input type="file" size="60%" name="file"></TD>
<TD><input type="submit" name="add" value="Add"></TD>
</TR>
</TABLE>
</FORM>
<TABLE class="tableresult" BORDER="1">
<TR>
<TH>File Name</TH>
<TH>Media Type</TH>
</TR>
<?vsp for select name, type from VS_B_8 do { ?>
<TR>
<TD><a href="/INLINEFILE/<?/name?>?VSP=<?/http_path()?>&download_file=<?/name?>"><?=name?></a></TD>
<TD><?=type?></TD>
</TR>
<?vsp } ?>
</TABLE>
</BODY>
</HTML>
|
