Subj : Uploading files
To : Beta
From : PistolGrip
Date : Fri Dec 03 1999 01:44 am
RE: Uploading files
BY: Beta to Pistolgrip on Fri Dec 03 1999 05:47 am
> > Have you tried running it on an account that doesn't have sysop access?
> > it's a stupid question.. but I am not exactly sure what you are trying to
> > accomplish.
>
> That's what I just said. It works fine here because I have the #1 account,
> on Talamasca not having 99 and not having the System password it won't work.
> designed it so that ppl who had Flag K would be able to upload and maintain
> database, but alas it also seems that they must be a SysOp... :(
Ok it's more clear what you are trying to do. But, what database are you
trying to modify? The BBS File Directories as Configured in SCFG? If so this
works, but be warned that a file removed by a User with ;USERREMOVEFILE is
deleted from the Hard Disk Instantly. Unlike if a SysOp does a "R" Command from
the File Menu. It will not ask you if you want to delete it from the disk
also.
NOTE :
For this to work a user must have "FLAG K" *and* "Exemption R" (Remove Files)
Now, if you are talking about something other than the File Directories please
ignore this :-)
I just inserted this into the top of the STR_CMDS.SRC File in SBBS\EXEC.
------------------------------------------------------------------------
# STR_CMDS.SRC
# Global String Command Module for Synchronet
# This is NOT a command shell, DO NOT add to SCFG->Command Shells
# This module is loaded from command shells with the EXEC_BIN function
# It contains mostly sysop commands (i.e. ;DOS)
# The command string must be the current string (obtained with SETSTR, GETSTR
# or similar function) before this module is loaded.
!include nodedefs.inc
# Remove any trailing spaces
truncsp str
logstr
# End Original Code
# -------------------------------------
# Begin Inserted Code
compare_str "USERUPLOAD"
if_true
compare_ars FLAG K
if_true
file_upload_bulk
return
end_if
end_if
compare_str "USERREMOVEFILE"
if_true
compare_ars FLAG K
if_true
print "\r\nchRemove/Edit File(s)\r\n"
getfilespec
if_true
file_remove
end_if
return
end_if
end_if
# End Inserted Code
# --------------------------------------
# Resume Original Code
