Subversion Repositories wimsdev

Rev

Rev 2221 | Rev 2487 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
23 reyssat 1
!set MAX=102400
2
 
3
!if $download=yes
4
 Here is the file for download ($flen bytes):
5
 <p><center>
6
 !getfile $fname $file
7
 <p>
8
 !goto end2
9
!endif
10
 
11
!if $erase=ask
12
 Do you really want to erase the file
13
 <tt><font color=green>$file</font></tt>? <br>
14
 <small>($flen bytes, $facc, last modified $fdat)</small>
1045 bpr 15
 <p> <center> <font size="+2">
2221 bpr 16
 !href cmd=reply&job=$job&job2=eraseconfirm $wims_name_yes
23 reyssat 17
 &nbsp;&nbsp;
2221 bpr 18
 !href cmd=reply&job=fs $wims_name_no
23 reyssat 19
 </font> <p> <hr>
20
 !goto end2
21
!endif
22
 
23
!if $ftype=image
24
 <tt><font color=green>$file</font></tt> is an image. ($flen bytes,
25
 $facc, last modified $fdat)
26
 !if $pubimg!=$empty
27
  <p><center>
28
  <img border=2 src=$pubimg>
29
  </center>
30
 !endif
31
 !goto end
32
!endif
33
 
34
!if $ftype=binary
35
 <tt><font color=green>$file</font></tt> is a binary file. ($flen bytes,
36
 $facc, last modified $fdat)
37
 !goto end
38
!endif
39
 
40
!if $flen>$MAX
41
 <tt><font color=green>$file</font></tt> is too long ($flen bytes)
42
 to be shown or edited.
43
 !goto end
44
!endif
45
 
46
!set wims_form_method=post
47
!form reply
48
<input type=hidden name=job value=file>
49
<input type=hidden name=job2 value=first>
50
<center>
51
 Content of <tt><font color=green>$file</font></tt> <br>
52
 <small>($flen bytes, $facc, last modif. $fdat)</small> <br>
53
 !if $modifok!=yes
54
  This file belongs to the distribution, it should not be modified. <br>
55
  !set textarea_ro=readonly
56
 !endif
57
 !mexec scripts/textarea.sh
58
<br>
59
!if $modifok=yes
2221 bpr 60
 <input type=submit name=save value="$wims_name_tosave">
61
 <input type=submit name=abandon value="$wims_name_giveup">
23 reyssat 62
!endif
63
</center>
64
</form>
65
 
66
:end
67
 
68
<p> <center>
69
!href cmd=reply&job=file&job2=download Download the file
70
. &nbsp;
71
!if $modifok=yes
2221 bpr 72
 !href cmd=reply&job=file&job2=erase $wims_name_erase
23 reyssat 73
. &nbsp;
74
!endif
75
 
76
:end2
2486 bpr 77
!href cmd=reply&job=fs $wims_name_back2
23 reyssat 78
.
79
 
80
</center>
81