User:Flubot/move2.sh
Jump to navigation
Jump to search
This script is a variation of User:Flubot/move.sh. It moves Romanian entries from cedillas to commas and appends an additional text to the redirect created by the moving.
Please note that what seems to be "s/'/'/g;" is actually "s/& # 0 3 9 ;/'/g;"
move.sh[edit]
#!/bin/bash
cookiesfile="enwikt-login-cookies.txt"
wiki="en.wiktionary.org"
#username, password
lgname="Flubot"
lgpassword="XXXXXXXXXXXXX"
reason1="according_to_[[WT:RONV]];redirect_should_be_kept"
# do not insert spaces into reason1, reason2 variables
reason2="add_text_to_redirect"
curlargs="-s -S --retry 10 -H 'Expect:' -c $cookiesfile -b $cookiesfile -f"
curlurl="http://$wiki/w/api.php?action="
if [ ! -z "$reason1" ]; then
reason_arg="--data-urlencode reason=$reason1"
#summary_arg="--data-urlencode 'summary=$reason1'"
else
reason_arg=""
#summary_arg=""
fi
tosee=""
function getxmlitem()
{
xmlitemval=`echo $xmltext | tr '>' '\n' | grep ${tokenname}= | awk -F${tokenname}= '{ print $2 }' | awk -F'"' '{ print $2 }'`
}
function loginerrcheck() {
if [ $loginresult -ne "0" ]; then
echo "Login failed, maybe wrong password"
if [ -e "$cookiesfile" ]; then
rm -f $cookiesfile
fi
exit 1
fi
loginerr=`echo $login | grep Illegal`
if [ ! -z "$loginerr" ]; then
echo "Login failed, maybe wrong password"
echo " More information:"
echo " $loginerr" | sed -e "s/'/'/g;"
if [ -e "$cookiesfile" ]; then
rm -f $cookiesfile
fi
exit 1
fi
return
}
function login() {
if [ -z "$lgname" -o -z "$lgpassword" ]; then
echo "Edit this file and change variables"
echo "lgname και lgpassword."
exit 1
fi
login=`curl -s -S --retry 10 -H 'Expect:' -c $cookiesfile -f --data-urlencode "lgname=$lgname" --data-urlencode "lgpassword=$lgpassword" --data-urlencode "format=xml" "${curlurl}login"`
loginresult=$?
loginerrcheck
loginneedtoken=`echo $login | grep NeedToken`
if [ ! -z "$loginneedtoken" ]; then
tokenname=token
xmltext="$login"
getxmlitem
lgtoken="$xmlitemval"
login=`curl -s -S --retry 10 -H 'Expect:' -c $cookiesfile -b $cookiesfile -f --data-urlencode "lgname=$lgname" --data-urlencode "lgpassword=$lgpassword" --data-urlencode "lgtoken=$lgtoken" --data-urlencode "format=xml" "${curlurl}login"`
loginresult=$?
loginerrcheck
loginneedtoken=`echo $login | grep NeedToken`
if [ ! -z "$loginneedtoken" ]; then
echo "Login failed (NeedToken after second attempt)"
if [ -e "$cookiesfile" ]; then
rm -f $cookiesfile
fi
exit 1
fi
fi
echo "You are logged in as $lgname"
}
function movepagefromtitle() {
xmltext=`curl $curlargs -d "prop=info" -d "format=xml" --data-urlencode "titles=$title" "${curlurl}query"`
redir=`echo $xmltext | grep 'redirect' -c`
if [ "$redir" -eq "0" ]; then
xmltext=`curl $curlargs --data-urlencode "prop=info" --data-urlencode "intoken=move" --data-urlencode "format=xml" --data-urlencode "titles=$title" "${curlurl}query"`
tokenname=movetoken
getxmlitem
movtoken="$xmlitemval"
if [ -z "$movtoken" ]; then
echo "Request for movetoken failed, you may have not rights"
echo " More information:"
echo " $xmltext" | sed -e "s/'/'/g;"
return 1
fi
err2=0
title1=`echo $title | sed -e 's/ţ/ț/g'`
title1=`echo $title1 | sed -e 's/Ţ/Ț/g'`
title2=`echo $title1 | sed -e 's/ş/ș/g'`
title2=`echo $title2 | sed -e 's/Ş/Ș/g'`
echo "moving $title to $title2"
result=`curl $curlargs --data-urlencode "format=xml" --data-urlencode "token=$movtoken" --data-urlencode "from=$title" --data-urlencode "to=$title2" $reason_arg "${curlurl}move" `
if [ "$?" -ne "0" ]; then
err2=1
echo "Moving failed for some reason"
return 1
fi
err=`echo $result | grep -i error`
if [ ! -z "$err" ]; then
err2=1
echo "$title" "Moving failed..."
echo " More information:"
echo "$err" | sed -e "s/'/'/g;" | awk -F 'error' '{ print $2 }' | awk -F '/>' '{ print $1 }'
fi
if [ $err2 = 1 ]; then
echo 'no additional text, error while moving'
tosee=$tosee", "$title
else
if [ "$title1" = "$title2" ]; then
echo 'no additional text, no ş'
else
appendtext
fi
fi
else
echo "$title" " : it is a redirect, not moved, no additional text for it"
return 1
fi
}
function appendtext() {
xmltext=`curl $curlargs -d "prop=info" -d "format=xml" --data-urlencode "titles=$title" "${curlurl}query"`
redir=`echo $xmltext | grep 'redirect' -c`
if [ "$redir" -ne "0" ]; then
xmltext=`curl $curlargs --data-urlencode "prop=info" --data-urlencode "intoken=edit" --data-urlencode "format=xml" --data-urlencode "titles=$title" --data-urlencode "bot=1" "${curlurl}query"`
tokenname=edittoken
getxmlitem
editoken="$xmlitemval"
if [ -z "$editoken" ]; then
echo "Request for edittoken failed, you may have not rights"
echo " More information:"
echo " $xmltext" | sed -e "s/'/'/g;"
return 1
fi
addtext=`echo ' This redirect from a cedilla form to a Romanian spelling is in accordance with Wiktionary policy. However, if another language has the word '$title' with a cedilla, then this page should be made an entry, and [[template:also]] used to link to the Romanian entry.'`
echo "adding text to $title"
result=`curl $curlargs --data-urlencode "format=xml" --data-urlencode "title=$title" --data-urlencode "token=$editoken" --data-urlencode "appendtext=$addtext" --data-urlencode summary=$reason2 "${curlurl}edit" `
if [ "$?" -ne "0" ]; then
echo "Edit failed"
return 1
fi
err1=`echo $result | grep -i error`
if [ ! -z "$err1" ]; then
echo "$title" "Not modified for some reason"
echo " More information:"
echo "$err1" | sed -e "s/'/'/g;" | awk -F 'error' '{ print $2 }' | awk -F '/>' '{ print $1 }'
fi
else
echo "$title: it is not a redirect, not modified"
return 1
fi
}
function checkusage() {
if [ "$1" -eq "0" ]; then
echo "Use: $0 1st_word 2nd_word 3rd..."
echo "Your account must have moving rights."
echo "Attention: Every headword including spaces must be written between quotes"
echo "For example:"
echo "$0 'mean vandal' 'super mean vandal' 'boring editwar type'"
echo "Alternatively, you can call this script with"
echo "cat file-with-words | $0 -"
echo "and it will read the headwords' list from stdin."
exit 1
fi
}
## MAIN
##
checkusage $#
if [ ! -e "$cookiesfile" ]; then
login
fi
if [ "$1" == "-" ]; then
while read title; do
movepagefromtitle
sleep 3
echo
done
else
for title in "$@"; do
movepagefromtitle
sleep 5
echo
done
fi
echo $tosee >> move-log.txt