Code: Select all
which bacon Code: Select all
which baconCode: Select all
which bacon 
Code: Select all
'
' original code Small utility to get all BaCon programs over HTTP from the BaCon website
'
' Dec 2010 - PvE.
' Small utility to get TXZ packages for a test over HTTP from a different website and different content
'-----------------------------------------------------------------------------------
OPTION COLLAPSE TRUE
website$ = "www.puppy2.org"
OPEN CONCAT$(website$, ":80") FOR NETWORK AS mynet
SEND CONCAT$("GET /slaxer/files.txt HTTP/1.1\r\nHost: ", website$, "\r\n\r\n") TO mynet
REPEAT
RECEIVE dat$ FROM mynet
IF LEN(dat$) > 0 THEN total$ = CONCAT$(total$, dat$)
UNTIL ISFALSE(WAIT(mynet, 500))
SPLIT MID$(total$, INSTR(total$, "\r\n\r\n")+4) BY NL$ TO file$ SIZE amount
FOR x = 0 TO amount-1
PRINT "Fetching ", file$[x], "... ";
SEND CONCAT$("GET /", file$[x], " HTTP/1.1\r\nHost: ", website$, "\r\n\r\n") TO mynet
total$ = ""
REPEAT
RECEIVE dat$ FROM mynet
IF LEN(dat$) > 0 THEN total$ = CONCAT$(total$, dat$)
UNTIL ISFALSE(WAIT(mynet, 500))
OPEN file$[x] FOR WRITING AS baconfile
WRITELN MID$(total$, INSTR(total$, "\r\n\r\n")+4) TO baconfile
CLOSE FILE baconfile
PRINT "done."
NEXT
CLOSE NETWORK mynet
Code: Select all
MYURL="http://puppy2.org/slaxer/"
#where the packages are downloaded to
cd /root/slaxer_updater
for package in `cat /root/slaxer_updater/files.txt`
do wget -c -N $MYURL$package
echo $package
done
Code: Select all
OPTION COLLAPSE TRUE
website$ = "www.yourwebsite.org"
OPEN "files.txt" FOR READING AS myconfig
WHILE NOT(ENDFILE(myconfig))
READLN dat$ FROM myconfig
IF LEN(dat$) > 0 THEN total$ = CONCAT$(total$, " ", dat$)
WEND
CLOSE FILE myconfig
SPLIT total$ BY " " TO file$ SIZE amount
OPEN CONCAT$(website$, ":80") FOR NETWORK AS mynet
FOR x = 0 TO amount-1
PRINT "Fetching ", file$[x], "... ";
SEND CONCAT$("GET /", file$[x], " HTTP/1.1\r\nHost: ", website$, "\r\n\r\n") TO mynet
total$ = ""
REPEAT
RECEIVE dat$ FROM mynet
IF LEN(dat$) > 0 THEN total$ = CONCAT$(total$, dat$)
UNTIL ISFALSE(WAIT(mynet, 500))
OPEN file$[x] FOR WRITING AS baconfile
WRITELN MID$(total$, INSTR(total$, "\r\n\r\n")+4) TO baconfile
CLOSE FILE baconfile
PRINT "done."
NEXT
CLOSE NETWORK mynet
big_bass,big_bass wrote:Hey Peter (PjotAwake)
excellent !
I did a very simple hack to your app to down files on the server I am using
very quickly it was easy to edit your code
now I can make a bacon powered TXZ package updater
after seeing what you did to get the files to download
1.)first I made a file called files.txt
#that contained this
hexedit-1.2.12-i486-3_SLXR.txz
TXZpackageMgmt-1-i486-4_SLXR.txz
xrefresh-1.0.2-i486-3_SLXR.txz
2.) I uploaded files.txt to the server I am using
# just for a quick test I selected some very small files
# to use to download
3.) edit fetch.bac the server location and the path to where you
have your packages or other stuff you want to download
website$ = "www.puppy2.org"
OPEN CONCAT$(website$, ":80") FOR NETWORK AS mynet
SEND CONCAT$("GET /slaxer/files.txt HTTP/1.1\r\nHost: ", website$, "\r\n\r\n") TO mynet
4.) change the name fetch-TXZ or any other name that you will remember what it does
5.) recompile the "new fetch bac "
thanks a million
Joe
was renamed fetch-TXZ.bac for a demoCode: Select all
' ' original code Small utility to get all BaCon programs over HTTP from the BaCon website ' ' Dec 2010 - PvE. ' Small utility to get TXZ packages for a test over HTTP from a different website and different content '----------------------------------------------------------------------------------- OPTION COLLAPSE TRUE website$ = "www.puppy2.org" OPEN CONCAT$(website$, ":80") FOR NETWORK AS mynet SEND CONCAT$("GET /slaxer/files.txt HTTP/1.1\r\nHost: ", website$, "\r\n\r\n") TO mynet REPEAT RECEIVE dat$ FROM mynet IF LEN(dat$) > 0 THEN total$ = CONCAT$(total$, dat$) UNTIL ISFALSE(WAIT(mynet, 500)) SPLIT MID$(total$, INSTR(total$, "\r\n\r\n")+4) BY NL$ TO file$ SIZE amount FOR x = 0 TO amount-1 PRINT "Fetching ", file$[x], "... "; SEND CONCAT$("GET /", file$[x], " HTTP/1.1\r\nHost: ", website$, "\r\n\r\n") TO mynet total$ = "" REPEAT RECEIVE dat$ FROM mynet IF LEN(dat$) > 0 THEN total$ = CONCAT$(total$, dat$) UNTIL ISFALSE(WAIT(mynet, 500)) OPEN file$[x] FOR WRITING AS baconfile WRITELN MID$(total$, INSTR(total$, "\r\n\r\n")+4) TO baconfile CLOSE FILE baconfile PRINT "done." NEXT CLOSE NETWORK mynet
Thanks vovchik,vovchik wrote:Dear Joe and seaside,
It works for me. Please note that any TCP/IP communication needs a port, hence 80 for http. Joe's site is not http://www.puppy2.org/slaxer but just www.puppy2.org. That is what is needed by OPEN, and that works. The rest is the GET bit, with the file then fully specified.
With kind regards,
vovchik
Code: Select all
#!/bin/bash
# this is the config file it makes a plain txt file
# what the program does is look for a list
# of files outside of the compiled bin
# this way you can edit a list of files
# to download only what you want to download
# and there is no need to upload anything to the server first
# called files.txt
# edit this file for other files to download
# edit fetch-TXZ.bac to change the website and path to files
# note after you compile the bin place it in /tmp alongside the files.txt
# /slaxer is just a folder I use you can edit that name
# this is just a test example
cat << 'EOF' >/tmp/files.txt
hexedit-1.2.12-i486-3_SLXR.txz
TXZpackageMgmt-1-i486-4_SLXR.txz
xrefresh-1.0.2-i486-3_SLXR.txz
EOF
Code: Select all
'
' original code Small utility to get all BaCon programs over HTTP from the BaCon website
'
' Dec 2010 - PvE.
' Small utility to get TXZ packages for a test over HTTP from a different website and different content
'-----------------------------------------------------------------------------------
OPTION COLLAPSE TRUE
website$ = "www.puppy2.org"
OPEN CONCAT$(website$, ":80") FOR NETWORK AS mynet
SEND CONCAT$("GET /slaxer/files.txt HTTP/1.1\r\nHost: ", website$, "\r\n\r\n") TO mynet
REPEAT
RECEIVE dat$ FROM mynet
IF LEN(dat$) > 0 THEN total$ = CONCAT$(total$, dat$)
UNTIL ISFALSE(WAIT(mynet, 500))
SPLIT MID$(total$, INSTR(total$, "\r\n\r\n")+4) BY NL$ TO file$ SIZE amount
FOR x = 0 TO amount-1
PRINT "Fetching ", file$[x], "... ";
SEND CONCAT$("GET /", file$[x], " HTTP/1.1\r\nHost: ", website$, "\r\n\r\n") TO mynet
total$ = ""
REPEAT
RECEIVE dat$ FROM mynet
IF LEN(dat$) > 0 THEN total$ = CONCAT$(total$, dat$)
UNTIL ISFALSE(WAIT(mynet, 500))
OPEN file$[x] FOR WRITING AS baconfile
WRITELN MID$(total$, INSTR(total$, "\r\n\r\n")+4) TO baconfile
CLOSE FILE baconfile
PRINT "done."
NEXT
CLOSE NETWORK mynet
Code: Select all
SEND CONCAT$("GET /", file$[x], " HTTP/1.1\r\nHost: ", website$, "\r\n\r\n") TO mynet Code: Select all
SEND CONCAT$("GET /slaxer/", file$[x], " HTTP/1.1\r\nHost: ", website$, "\r\n\r\n") TO mynetI am totally perplexed ......Below files as downloaded with BaCon
# ls -l *.txz
-rw-r--r-- 1 root root 11967 2010-12-05 15:35 hexedit-1.2.12-i486-3_SLXR.txz
-rw-r--r-- 1 root root 400 2010-12-05 15:35 TXZpackageMgmt-1-i486-4_SLXR.txz
-rw-r--r-- 1 root root 3448 2010-12-05 15:35 xrefresh-1.0.2-i486-3_SLXR.txz
#
Below files as they are downloaded with wget
ls -l *.txz
-rw-r--r-- 1 root root 24408 2010-12-05 15:38 hexedit-1.2.12-i486-3_SLXR.txz
-rw-r--r-- 1 root root 764 2010-12-05 15:41 TXZpackageMgmt-1-i486-4_SLXR.txz
-rw-r--r-- 1 root root 11492 2010-12-05 15:46 xrefresh-1.0.2-i486-3_SLXR.tx
well, now I am partially perplexed too (since it did work with the bac downloadI am totally perplexed ......
) program in BaCon.Code: Select all
' slack-desc-template.bac
OPTION BASE 1
' Display usage:
SUB print_usage
PRINT "Usage:", NL$, \
" ", arg$[1], " -p <program name> [-o <output file>]", NL$, NL$, \
"If no output file is specified, then stdout is used."
END
END SUB
prgnam$ = ""
outfile$ = ""
' Parse command line arguments:
SPLIT ARGUMENT$ BY " " TO arg$ SIZE dim
FOR i=1 TO dim
SELECT arg$[i]
CASE "-h";
CASE "--help";
CASE "-?"
print_usage
CASE "-p"
IF dim > i THEN prgnam$ = arg$[i+1]
CASE "-o"
IF dim > i THEN outfile$ = arg$[i+1]
END SELECT
NEXT
' If no program named specified:
IF EQUAL(prgnam$, "") THEN
print_usage
END IF
header$ = CONCAT$("# HOW TO EDIT THIS FILE:", NL$, \
"# The \"handy ruler\" below makes it easier to edit a package description. Line", NL$, \
"# up the first '|' above the ':' following the base package name, and the '|'", NL$, \
"# on the right side marks the last column you can put a character in. You must", NL$, \
"# make exactly 11 lines for the formatting to be correct. It's also", NL$, \
"# customary to leave one space after the ':' except on otherwise blank lines.", NL$, NL$)
' spaces to prepend to handy_ruler
FOR i=1 TO LEN(prgnam$)
spaces$ = CONCAT$(spaces$, " ")
NEXT
handy_ruler$ = CONCAT$("|-----handy-ruler------------------------------------------------------|", NL$)
FOR i=1 TO 11
IF i EQ 11 THEN
' avoid extra newline at the end of file:
desc$ = CONCAT$(desc$, prgnam$, ":")
ELSE
desc$ = CONCAT$(desc$, prgnam$, ":", NL$)
END IF
NEXT
' full slack-desc:
slack_desc$ = CONCAT$(header$, spaces$, handy_ruler$, desc$)
IF EQUAL(outfile$, "") THEN
' write to stdout
PRINT slack_desc$
ELSE
' write to outfile$
OPEN outfile$ FOR WRITING AS outfile
WRITELN slack_desc$ TO outfile
CLOSE FILE outfile
PRINT "slack-desc template written to '", outfile$, "'"
END IF
As I don't want to spoil all the fun, I'll leave it up to you guys implementing it in the program above Smile
'
' This program shows how to implement binary downloads over HTTP.
'
' Needs BaCon 1.0 build 18 or higher - September 2010, PvE - GPL.
'----------------------------------------------------------------------------------------
OPTION MEMSTREAM TRUE
TRAP LOCAL
' Define HTTP separator
CONST Separator$ = CONCAT$(CHR$(13), CHR$(10), CHR$(13), CHR$(10))
' This is the size of the memory buffer
CONST ChunkSize = 1024
' Website we're downloading from
website$ = "www.puppy2.org"
port$ = "80"
' The actual file to download
file$ = "sfind-3.1-i486-3_SLXR.txz"
' Reserve memory
area = MEMORY(ChunkSize)
' The area should be readable as memory stream because
' we need to strip off HTTP headers
OPEN area FOR MEMORY AS data$
' The file where the binary data will be written to
OPEN file$ FOR WRITING AS download
' Open network connection
OPEN CONCAT$(website$, ":", port$) FOR NETWORK AS mynet
' Send a HTTP GET
SEND CONCAT$("GET /slaxer/", file$, " HTTP/1.1\r\nHost: ", website$, Separator$) TO mynet
stripped = FALSE
' Get the binary content
REPEAT
' Print progress on sreen
PRINT ".";
' Receive binary data into memory buffer
RECEIVE area FROM mynet CHUNK ChunkSize SIZE amount
' Strip off HTTP header
IF NOT(stripped) THEN
x = INSTR(data$, Separator$)-1
IF x THEN
PUTBYTE area + x + LEN(Separator$) TO download SIZE amount-x-LEN(Separator$)
stripped = TRUE
END IF
' If stripped add binary data to file
ELSE
PUTBYTE area TO download SIZE amount
END IF
UNTIL ISFALSE(WAIT(mynet, 1000))
' Close all open handles
CLOSE NETWORK mynet
CLOSE FILE download
CLOSE MEMORY data$
' Finished!
PRINT "Downloading '", file$, "' done!"
Code: Select all
#!/bin/bash
# Joe Arose aka..big_bass
# call it dnd-slack-desc-maker
# dragNdrop a *tar.gz ,*tgz , or whatever it gets cut off anyway
# or even better a folder with a version number that way
# the install folder is auto made
# make a blank slack-desc
# it opens in leafpad to add info
# make a new file with time stamp
# strip off the path
basename "$@" >/root/nameofpackage
mkdir -p "$@"/install
# filter the name by removing the version numbers
# since this is a drag N drop you may need to edit the field cut
# this cuts off everything after the first "-" cut -f 1 -d '-'`
# this cuts off everything after the second "-" cut -f 1,2 -d '-'`
#
PKGNAME=`grep '-' /root/nameofpackage| cut -f 1 -d '-'`
# clean up old files
rm /root/nameofpackage
CHAR=`echo "$PKGNAME" | wc -c | sed s/^\ *//`
echo $CHAR
COUNTER="1"
cat << COMMENT > /root/slack-desc
# HOW TO EDIT THIS FILE:
# The "handy ruler" below makes it easier to edit a package description. Line
# up the first '|' above the ':' following the base package name, and the '|' on
# the right side marks the last column you can put a character in. You must make
# exactly 11 lines for the formatting to be correct. It's also customary to
# leave one space after the ':'.
COMMENT
while [ $COUNTER -lt $CHAR ]; do
echo -n " " >> /root/slack-desc
COUNTER=`expr $COUNTER + 1`
done
echo "|-----handy-ruler------------------------------------------------------|" >>/root/slack-desc
echo "$PKGNAME: $PKGNAME
$PKGNAME:
$PKGNAME:
$PKGNAME:
$PKGNAME:
$PKGNAME:
$PKGNAME:
$PKGNAME:
$PKGNAME: Package created for TXZ_pup
$PKGNAME:
$PKGNAME:">>/root/slack-desc
leafpad /root/slack-desc
cp /root/slack-desc "$@"/install
Code: Select all
' basename clone
FUNCTION BASENAME$(STRING file$, STRING ext$)
LOCAL dim
LOCAL ret$
SPLIT file$ BY "/" TO array$ SIZE dim
ret$ = array$[dim-1]
' Chop ext$ off the end of ret$
IF NOT(EQUAL(ext$, "")) THEN ret$ = CHOP$(ret$, ext$, 2)
RETURN ret$
END FUNCTION
' basename /home/steven/somefile.bac
PRINT BASENAME$("/home/steven/somefile.bac", "")
' basename /home/steven/somefile.bac .bac
PRINT BASENAME$("/home/steven/somefile.bac", ".bac")