2011-12-29 00:57:18 +00:00
|
|
|
#!/mod/bin/jimsh
|
|
|
|
|
|
|
|
|
|
package require cgi
|
2013-02-09 22:46:15 +00:00
|
|
|
source /mod/webif/lib/setup
|
2011-12-29 00:57:18 +00:00
|
|
|
|
2013-02-09 22:46:15 +00:00
|
|
|
httpheader
|
2011-12-29 00:57:18 +00:00
|
|
|
|
|
|
|
|
set dir [cgi_get dir -]
|
|
|
|
|
set name [cgi_get newdirname "New Folder"]
|
|
|
|
|
|
|
|
|
|
file mkdir "$dir/$name"
|
|
|
|
|
|
