Skip to content
GitLab
Explore
Sign in
Register
Primary navigation
Search or go to…
Project
Synchronet
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Wiki
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Snippets
Build
Pipelines
Jobs
Pipeline schedules
Artifacts
Deploy
Releases
Package registry
Container registry
Model registry
Operate
Environments
Terraform modules
Monitor
Incidents
Analyze
Value stream analytics
Contributor analytics
CI/CD analytics
Repository analytics
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
Main
Synchronet
Commits
fba72643
Commit
fba72643
authored
23 years ago
by
rswindell
Browse files
Options
Downloads
Patches
Plain Diff
Added to repository.
parent
6f665c51
No related branches found
No related tags found
No related merge requests found
Changes
1
Show whitespace changes
Inline
Side-by-side
Showing
1 changed file
exec/getimlst.src
+73
-0
73 additions, 0 deletions
exec/getimlst.src
with
73 additions
and
0 deletions
exec/getimlst.src
0 → 100644
+
73
−
0
View file @
fba72643
# getimlst.src
# $Id$
# @format.tab-size 8, @format.use-tabs true
###############################################################################
# Baja module for obtaining Instant Message List from ftp.synchro.net #
# Requires Synchronet v3.00d and Baja v2.30 #
# Developed 2001 by Rob Swindell #
###############################################################################
# Add "GETIMLST" as a timed-event in SCFG->External Programs->Timed Events
!include sbbsdefs.inc
!include file_io.inc
# Variables
int sock port
str addr user password
str local_file
set _ftp_mode FTP_PASV
# Process command line arguments
set addr "ftp.synchro.net"
set user "anonymous"
set password "getimlst@%q"
socket_open sock
if_false
lprintf "GETIMLST: !socket_open failure socket_error=%d" _socket_error
goto exit
end_if
set port 21 # default FTP port
lprintf "GETIMLST: Connecting to %s ... " addr
socket_connect sock addr port
if_false
lprintf "GETIMLST: !socket_connect failed socket_error=%d" _socket_error
goto exit
end_if
lprintf "GETIMLST: Connected to %s" addr
lprintf "GETIMLST: Logging in as '%s' (PW: '%s')" user password
ftp_login sock user password
if_false
lprintf "GETIMLST: !ftp_login failed socket_error=%d" _socket_error
goto exit
end_if
lprintf "GETIMLST: Logged in successfully"
#################
# Download List #
#################
set str "sbbsimsg.lst"
sprintf local_file "%%k%s" str
lprintf "GETIMLST: Downloading Instant Message system list: %s" str
ftp_get sock str local_file
if_true
lprintf "GETIMLST: Downloaded %s successfully" str
else
lprintf "GETIMLST: %s NOT downloaded!" str
end_if
#################
# Exit routine #
#################
:exit
lprintf "GETIMLST: Done."
# End of GETIMLST.SRC
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Save comment
Cancel
Please
register
or
sign in
to comment