Twitter Bot (bat file)

culturegridne.1.4.bat

@echo off
rem ==============================
rem test for user input
rem ==============================
if [%1]==[] goto error
if [%2]==[] goto error
rem ==============================
rem set password and user name
rem ==============================
set user=%1
set pass=%2
rem ==============================
rem set url
rem ==============================
set url="http://www.culturegrid.org.uk/discover/xsl/default?operation=searchRetrieve&version=1.1&query=dcterms.isPartOf+adj+%%22BeamishTreasures%%22+OR+dcterms.isPartOf+adj+%%22Bowes%%22+OR+dcterms.isPartOf+adj+%%22DurhamCountyCouncil%%22+OR+dcterms.isPartOf+adj+%%22Farne%%22+OR+dcterms.isPartOf+adj+%%22TWImagine%%22+OR+dcterms.isPartOf+adj+%%22iSeeGateshaed%%22+OR+dcterms.isPartOf+adj+%%22BedesWorld%%22"
rem ==============================
rem get number of records
rem ==============================
set xsl=xml sel -N "srw=http://www.loc.gov/zing/srw/" -T -t -v //srw:numberOfRecords
for /f %%a in ('curl -s %url%^|%xsl%') do set numberOfRecords=%%a
rem ==============================
rem set random number
rem ==============================
:loop
set rand=%random%
if %rand% == 0 goto :loop
if %rand% GTR %numberOfRecords% goto :loop
rem ==============================
rem concat record selection to url
rem ==============================
set url="%url:~1,-1%&startRecord=%rand%&maximumRecords=1"
set xsl=xml sel -T -t -m //doc -v "substring-after(str[@name='dc.related.link'],'http://')"
rem ==============================
rem set searchdate
rem ==============================
for /f %%a in ('doff yyyy-mm-ddThh:mi:ss') do set searchdate=%%a
rem ==============================
rem set status
rem ==============================
for /f "tokens=*" %%a in ('curl -s %url%^|%xsl%^|sed "s/:/%%253A/g;s/&/%%26/g"') do set status="status=%searchdate% http://%%a"
rem ==============================
rem twitter
rem ==============================
curl --basic --user "%user%:%pass%" --data-ascii %status% http://twitter.com/statuses/update.json >nul
rem ==============================
rem unset variables
rem ==============================
for %%a in (rand,url,xsl,user,pass,status,searchdate) do set %%a=
goto EOF

:error
echo.
echo  ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo  ³ culturegridne.1.4.bat                                  ³
echo  ³ twitterbot                                             ³
echo  ³ Mike Hirst                                             ³
echo  ³ 15:22 06 July 2010                                     ³
echo  ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   Usage: CultureGridNE [username] [password]
echo.
pause
cls

:EOF