Subversion Repositories wimsdev

Rev

Rev 3070 | Rev 5734 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. !set MAX=102400
  2.  
  3. !if $download=yes
  4. $name_file ($flen $name_bytes):
  5.  <p><center>
  6.  !getfile $fname $file
  7.  <p>
  8.  !goto end2
  9. !endif
  10.  
  11. !if $erase=ask
  12. $name_erase
  13.  <tt><font color="green">$file</font></tt>? <br>
  14.  <small>($flen $name_bytes, $facc, $name_last $fdat)</small>
  15.  <p> <center> <font size="+2">
  16.  !href cmd=reply&job=$job&job2=eraseconfirm $wims_name_yes
  17.  &nbsp;&nbsp;
  18.  !href cmd=reply&job=fs $wims_name_no
  19.  </font> <p> <hr>
  20.  !goto end2
  21. !endif
  22.  
  23. !if $ftype=image
  24.  <tt><font color="green">$file</font></tt> $name_image. ($flen $name_bytes,
  25.  $facc, $name_last $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> $name_binary. ($flen $name_bytes,
  36.  $facc, $name_last $fdat)
  37.  !goto end
  38. !endif
  39.  
  40. !if $flen>$MAX
  41.  <tt><font color="green">$file</font></tt> ($flen $name_bytes)
  42.  $name_toolong
  43.  
  44.  !goto end
  45. !endif
  46.  
  47. !set wims_form_method=post
  48. !form reply
  49. <input type="hidden" name="job" value="file">
  50. <input type="hidden" name="job2" value="first">
  51. <center>
  52.  $name_content <tt><font color="green">$file</font></tt> <br>
  53.  <small>($flen $name_bytes, $facc, $name_last $fdat)</small> <br>
  54.  !if $modifok!=yes
  55.   $name_distrib <br>
  56.   !set textarea_ro=readonly
  57.  !endif
  58.  !mexec scripts/textarea.sh
  59. <br>
  60. !if $modifok=yes
  61.  <input type="submit" name="save" value="$wims_name_tosave">
  62.  <input type="submit" name="abandon" value="$wims_name_giveup">
  63. !endif
  64. </center>
  65. </form>
  66.  
  67. :end
  68.  
  69. <p> <center>
  70. !href cmd=reply&job=file&job2=download $name_download
  71.  &nbsp;
  72. !if $modifok=yes
  73. !set wims_ref_class=wims_button
  74.  !href cmd=reply&job=file&job2=erase $wims_name_erase
  75.  &nbsp;
  76. !endif
  77.  
  78. :end2
  79. !href cmd=reply&job=fs $wims_name_back2
  80. .
  81.  
  82. </center>
  83.  
  84.