All pastes #296541 Raw Edit

Mine

public text v1 · immutable
#296541 ·published 2006-12-30 08:37 UTC
rendered paste body
; SITE CONFIG
menu * {
  &Trader
  .&Site Manager
  ..Add Site:addsite
  ..Delete Site:delsite
  ..-
  ..Enable Site:enablesite
  ..Disable Site:disablesite
  .&Trader Manager
  ..Enable Trader:set %tstatus on 
  ..Disable Trader:set %tstatus off
  ..-
  ..Show Stats:fstats
  .Say Addline:gaddline
}

alias addsite { 
  set %sname $?="Site Name:"
  set %scountry $?="Country:"
  set %sspeed $?="Speed:"
  set %sstatus $?!="Enabled?"
  writeini -n trader/sites.ini %sname Country %scountry
  writeini -n trader/sites.ini %sname Speed %sspeed
  if (%sstatus == $true) {
    writeini -n trader/sites.ini %sname Status Online
  } 
  elseif (%sstatus == $false) {
    writeini -n trader/sites.ini %sname Status Offline
  }
  echo -a Creating Rules Directory for %sname . . .
  mkdir trader/RULES/ $+ %sname
  echo -a Done . . . Output Folder: trader/RULES/ $+ %sname
}

alias delsite {
  set %sname $?="Site Name:"
  echo -a Cleaning up folders and files . . .
  remini trader/sites.ini %sname
  remove trader/RULES/ $+ %sname $+ /allow.ini
  remove trader/RULES/ $+ %sname $+ /skip.ini
  rmdir trader/RULES/ $+ %sname
  echo -a Done!
}

alias enablesite {
  set %sname $?="Site Name:"
  writeini -n trader/sites.ini %sname Status Online
}

alias disablesite {
  set %sname $?="Site Name:"
  writeini -n trader/sites.ini %sname Status Offline
}

alias fstats {
  while ($exists(%[FRush]Dir $+ RushCfg.xml) == $false) { set %[FRush]Dir $sdir(c:\,Select your FTPRush's folder) }

  var %line = $read(%[FRush]Dir $+ rushcfg.xml,w,*<TSTATS START="*" UP="*" DN="*" FXP="*" />*)
  var %[FtpRSTS]tmpdate = $gettok(%line,2,34)
  var %[FtpRSTS]UP = $gettok(%line,4,34)
  var %[FtpRSTS]DN = $gettok(%line,6,34)
  var %[FtpRSTS]FXP = $gettok(%line,8,34)
  var %[FtpRSTS]date = $ctime($and($calc(%[FtpRSTS]tmpdate /65536),31) $+ $chr(47) $+ $and($calc(%[FtpRSTS]tmpdate /2097152),15) $+ $chr(47) $+ $left($calc(%[FtpRSTS]tmpdate /33554432 +1980),4))
  var %[FtpRSTS]days = $calc(($ctime - %[FtpRSTS]date)/86400)

  say - I have 3Uploaded7 $bytes(%[FtpRSTS]UP,3).suf - 3Downloaded7 $bytes(%[FtpRSTS]DN,3).suf - 3FXPed7 $bytes(%[FtpRSTS]FXP,3).suf - since 3 $asctime(%[FtpRSTS]date,d/mm/yyyy)
  say - Average of 7 $bytes($calc(%[FtpRSTS]UP / %[FtpRSTS]days),3).suf $+ /day 3Uploaded,7 $bytes($calc(%[FtpRSTS]DN / %[FtpRSTS]days),3).suf $+ /day 3Downloaded,7 $bytes($calc(%[FtpRSTS]FXP / %[FtpRSTS]days),3).suf $+ /day 3FXPed for3 %[FtpRSTS]days days. 
}

alias gip {
  set %gip $1
  echo -a IP Updated To: $1
}

alias gaddline {
  echo -a site adduser jame n4std4s Jame@ $+ %gip
  echo -a Your IP is: $ip
}