blob: bc9534af15f98c3aa6c8fdf92c67a471b9f5f1f4 (
plain)
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
|
#!/depot/path/tclsh
package require cgi
cgi_eval {
source example.tcl
cgi_input
cgi_title "Remove old CGI files from /tmp"
cgi_body {
if {0==[catch {cgi_import FileList}]} {
catch {cgi_import Refresh;set FileList {}}
h4 "If this were not a demo, the following commands would have been executed:"
foreach File $FileList {
# prevent deletion of this dir or anything outside it
set File [file tail $File]
switch $File . - .. - "" {
h3 "Illegal filename: $File"
continue
}
# to undemoize this and allow files to be killed,
# remove h5 and quotes
if {[catch {h5 "file delete -force /tmp/$File"} msg]} {
h4 "$msg"
}
}
}
cgi_form rm {
set f [open "|/bin/ls -Alt /tmp" r]
table border=2 {
table_row {
table_data {puts "rm -rf"}
table_data {cgi_preformatted {puts "permissions ln owner group size date filename"}}
}
while {-1 != [gets $f buf]} {
if {![regexp " http " $buf]} continue
table_row {
table_data {
regexp ".* (\[^ ]+)$" $buf dummy File
cgi_checkbox FileList=$File
}
table_data {
cgi_preformatted {puts $buf}
}
}
}
}
submit_button "=Removed selected files"
submit_button "Refresh=Refresh listing"
reset_button
}
}
}
|
