Webspiding - Revision history

PhilippeTeuwen: Reverted edits by Etegohy (Talk) to last revision by PhilippeTeuwen

2010-11-24T20:38:45Z

Reverted edits by Etegohy (Talk) to last revision by PhilippeTeuwen

Can't load revision 6904

at 08:23, 24 November 2010

2010-11-24T08:23:03Z

Can't load revision 6757

PhilippeTeuwen: /* Vérification automatique des Free Skype Days */

2008-03-28T18:19:54Z

Vérification automatique des Free Skype Days

← Older revision		Revision as of 18:19, 28 March 2008
Line 893:		Line 893:
	#!/bin/bash		#!/bin/bash

	USER="~~<~~my_user~~>~~"		USER="<my_user>"
	PASS="~~<~~my_pass~~>~~"		PASS="<my_pass>"
	LOG="/var/log/skypeout.txt"		LOG="/var/log/skypeout.txt"

Line 903:		Line 903:
	# First: get a session_id		# First: get a session_id
	session_id=$(\		session_id=$(\
	echo -n "username=$USER&~~amp;~~password=$PASS&~~amp;~~login=Sign+me+in"\|\		echo -n "username=$USER&password=$PASS&login=Sign+me+in"\|\
	POST -e -H 'Host: secure.skype.com' \		POST -e -H 'Host: secure.skype.com' \
	'https://secure.skype.com/store/member/dologin.html'\|\		'https://secure.skype.com/store/member/dologin.html'\|\
Line 910:		Line 910:

	# Then try again with this session_id		# Then try again with this session_id
	echo -n "username=$USER&~~amp;~~password=$PASS&~~amp;~~login=Sign+me+in"\|\		echo -n "username=$USER&password=$PASS&login=Sign+me+in"\|\
	POST -H 'Host: secure.skype.com' \		POST -H 'Host: secure.skype.com' \
	-H "Cookie: skype_store2=$session_id; username=$USER" \		-H "Cookie: skype_store2=$session_id; username=$USER" \
Line 923:		Line 923:

	# Noe that we've collected the data, this part is up to you, depends what you want to do		# Noe that we've collected the data, this part is up to you, depends what you want to do
	date ~~>>~~ $LOG		date >> $LOG
	echo $results ~~>>~~ $LOG		echo $results >> $LOG
	echo "--------------------------------" ~~>>~~$LOG		echo "--------------------------------" >>$LOG
	subject=$(echo $results \|gawk '{gsub(/~~<~~[^~~>~~]*~~>~~/,"");gsub(/&~~amp;~~#[0-9]+;/,"");print;exit}')		subject=$(echo $results \|gawk '{gsub(/<[^>]*>/,"");gsub(/&#[0-9]+;/,"");print;exit}')
	echo $subject\|grep -q "Today is not Free Skype Day"\|\|echo $results\|mail -s "$subject" ~~<~~myself~~>~~		echo $subject\|grep -q "Today is not Free Skype Day"\|\|echo $results\|mail -s "$subject" <myself>

	# Logout		# Logout
	GET -H 'Host: secure.skype.com' \		GET -H 'Host: secure.skype.com' \
	-H "Cookie: skype_store2=$session_id; username=$USER; loggedin=1" \		-H "Cookie: skype_store2=$session_id; username=$USER; loggedin=1" \
	'https://secure.skype.com/store/member/logout.html' ~~>~~/dev/null 2&~~gt;&~~1		'https://secure.skype.com/store/member/logout.html' >/dev/null 2>&1
	</source>		</source>

PhilippeTeuwen: /* Volume mensuel consommé chez Skynet ADSL */

2008-03-28T18:19:10Z

Volume mensuel consommé chez Skynet ADSL

← Older revision		Revision as of 18:19, 28 March 2008
Line 853:		Line 853:
	<source lang=bash>		<source lang=bash>
	#!/bin/bash		#!/bin/bash
	LOGIN=~~<~~YOURLOGIN~~>~~		LOGIN=<YOURLOGIN>
	PASSW=~~<~~YOURPASSW~~>~~		PASSW=<YOURPASSW>
	#Change CFID &~~amp;~~ CFTOKEN to have a unique one		#Change CFID & CFTOKEN to have a unique one
	CFID=1234567		CFID=1234567
	CFTOKEN=12345678		CFTOKEN=12345678

	echo -n "fuseaction=CheckLoginConnection&~~amp;~~form_login=$LOGIN&~~amp;~~form_password=$PASSW&~~amp;~~Langue_Id=1&~~amp;~~Submit=Inloggen"\		echo -n "fuseaction=CheckLoginConnection&form_login=$LOGIN&form_password=$PASSW&Langue_Id=1&Submit=Inloggen"\
	\|POST -t 2 -H "Cookie: CFID=$CFID; CFTOKEN=$CFTOKEN" -d\		\|POST -t 2 -H "Cookie: CFID=$CFID; CFTOKEN=$CFTOKEN" -d\
	https://e-care.skynet.be/Login/index.cfm		https://e-care.skynet.be/Login/index.cfm
Line 865:		Line 865:
	wget -O /dev/null --quiet\		wget -O /dev/null --quiet\
	--header="Cookie: CFID=$CFID; CFTOKEN=$CFTOKEN"\		--header="Cookie: CFID=$CFID; CFTOKEN=$CFTOKEN"\
	'https://e-care.skynet.be/Login/index.cfm?fuseaction=LoginConnection&~~amp;~~NextPage=../App/ConTime/index.cfm?fuseaction=VolumeMeter'		'https://e-care.skynet.be/Login/index.cfm?fuseaction=LoginConnection&NextPage=../App/ConTime/index.cfm?fuseaction=VolumeMeter'

	wget -O - --quiet\		wget -O - --quiet\
	--header="Cookie: CFID=$CFID; CFTOKEN=$CFTOKEN"\		--header="Cookie: CFID=$CFID; CFTOKEN=$CFTOKEN"\
	'https://e-care.skynet.be/App/ConTime/index.cfm?fuseaction=VolumeMeter'\		'https://e-care.skynet.be/App/ConTime/index.cfm?fuseaction=VolumeMeter'\
	\|grep disponibles \|sed 's/~~<~~[^~~<~~]~~>~~//g;s/^\t//'		\|grep disponibles \|sed 's/<[^<]>//g;s/^\t//'

	</source>		</source>
Line 885:		Line 885:

	pour debugger : livehttpheaders de firefox ;-)		pour debugger : livehttpheaders de firefox ;-)

	=== Vérification automatique des Free Skype Days ===		=== Vérification automatique des Free Skype Days ===

PhilippeTeuwen: /* Pages blanches */

2008-03-28T18:17:53Z

Pages blanches

← Older revision		Revision as of 18:17, 28 March 2008
Line 824:		Line 824:
	#!/bin/bash		#!/bin/bash
	#Usage:		#Usage:
	#~~>~~pages 02 1234567		#>pages 02 1234567

	### Ancien site, hors service		### Ancien site, hors service
	#lynx -dump "http://www.belgacom.be/cgi-bin/whitePages?L=F&~~amp;~~TPL=IP2&~~amp;~~BYNUMBER=YES&~~amp;~~P1=$1&~~amp;~~P2=$2"\|gawk '		#lynx -dump "http://www.belgacom.be/cgi-bin/whitePages?L=F&TPL=IP2&BYNUMBER=YES&P1=$1&P2=$2"\|gawk '
	#/Votre recherche/{exit}		#/Votre recherche/{exit}
	#body==1		#body==1
Line 834:		Line 834:

	wget -O - -q --header="Cookie: language_cookie=fr;" \		wget -O - -q --header="Cookie: language_cookie=fr;" \
	"http://www.skynet.be/index.html?l1=search&~~amp;~~l2=whitepages&~~amp;~~l3=reverse\		"http://www.skynet.be/index.html?l1=search&l2=whitepages&l3=reverse\
	&~~amp;~~prefixe=$1&~~amp;~~ntel=$2&~~amp;~~search=Rechercher"\		&prefixe=$1&ntel=$2&search=Rechercher"\
	\|gawk '\		\|gawk '\
	/Résultats de la recherche/ {\		/Résultats de la recherche/ {\
	while ($0 !~ /~~<~~td class=.content_text/) getline; \		while ($0 !~ /<td class=.content_text/) getline; \
	getline;\		getline;\
	while ($0 !~ /~~<~~!--/){\		while ($0 !~ /<!--/){\
	gsub(/^[[:space:]]\|~~<~~\/?[a-z]~~>~~/,"");\		gsub(/^[[:space:]]\|<\/?[a-z]>/,"");\
	print;\		print;\
	getline\		getline\

PhilippeTeuwen: /* Autres cartes satellites */

2008-03-28T18:16:33Z

Autres cartes satellites

Show changes

PhilippeTeuwen: /* Cartes satellite Ikonos */

2008-03-28T18:13:57Z

Cartes satellite Ikonos

← Older revision		Revision as of 18:13, 28 March 2008
Line 10:		Line 10:
	# It's suited to fecth maps available at www.geo.ulg.ac.be/edusat/en/ikonos		# It's suited to fecth maps available at www.geo.ulg.ac.be/edusat/en/ikonos
	#		#
	# Version 0.3 (08/12/2002) Copyright Doegox ~~<~~philippe.teuwen@ael.be~~>~~		# Version 0.3 (08/12/2002) Copyright Doegox <philippe.teuwen@ael.be>
	# This script is released under the GNU/General Public License		# This script is released under the GNU/General Public License
	#		#
Line 77:		Line 77:
	imax=$((xbig/xsnap+1))		imax=$((xbig/xsnap+1))
	jmax=$((ybig/ysnap+1))		jmax=$((ybig/ysnap+1))
	for ((i=0;i~~<~~$imax;i++)); do		for ((i=0;i<$imax;i++)); do
	x=$(($i*$xsnap+$xsnap/2));		x=$(($i*$xsnap+$xsnap/2));
	for ((j=0;j~~<~~$jmax;j++)); do		for ((j=0;j<$jmax;j++)); do
	y=$(($j*$ysnap+$ysnap/2));		y=$(($j*$ysnap+$ysnap/2));
	echo Getting bitmap $(($j+$i$jmax+1))/$(($imax$jmax)) @ x=$x y=$y		echo Getting bitmap $(($j+$i$jmax+1))/$(($imax$jmax)) @ x=$x y=$y
	until wget --tries=inf --quiet "http://www.geo.ulg.ac.be/edusat/en/ikonos/cgi-bin/extr500.pl?nom=$imagename&~~amp;~~quicklook-x-size=$xbig&~~amp;~~quicklook-y-size=$ybig&~~amp;~~image.x=$x&~~amp;~~image.y=$y" --output-document=$savedname-$i-$j.bmp		until wget --tries=inf --quiet "http://www.geo.ulg.ac.be/edusat/en/ikonos/cgi-bin/extr500.pl?nom=$imagename&quicklook-x-size=$xbig&quicklook-y-size=$ybig&image.x=$x&image.y=$y" --output-document=$savedname-$i-$j.bmp
	do		do
	sleep 1;		sleep 1;
Line 88:		Line 88:
	done		done
	echo -n "Converting to PNM... "		echo -n "Converting to PNM... "
	anytopnm $savedname-$i-$j.bmp ~~>~~ $savedname-$i-$j.pnm		anytopnm $savedname-$i-$j.bmp > $savedname-$i-$j.pnm
	rm $savedname-$i-$j.bmp		rm $savedname-$i-$j.bmp
	if [ $j != 0 ];		if [ $j != 0 ];
Line 95:		Line 95:
	then		then
	echo "Merge 2 images in columns... "		echo "Merge 2 images in columns... "
	pnmcat -topbottom $savedname-$i-$(($j-1))-merged.pnm $savedname-$i-$j.pnm ~~>~~ $savedname-$i-$j-merged.pnm		pnmcat -topbottom $savedname-$i-$(($j-1))-merged.pnm $savedname-$i-$j.pnm > $savedname-$i-$j-merged.pnm
	rm $savedname-$i-$(($j-1))-merged.pnm $savedname-$i-$j.pnm		rm $savedname-$i-$(($j-1))-merged.pnm $savedname-$i-$j.pnm
	else		else
	echo "Cut last image of the column, there is some overlapping here... "		echo "Cut last image of the column, there is some overlapping here... "
	pnmcut -top $((-($ybig-$ybig/$ysnap*$ysnap))) $savedname-$i-$j.pnm ~~>~~ $savedname-$i-$j-cut.pnm		pnmcut -top $((-($ybig-$ybig/$ysnap*$ysnap))) $savedname-$i-$j.pnm > $savedname-$i-$j-cut.pnm
	rm $savedname-$i-$j.pnm		rm $savedname-$i-$j.pnm
	echo "Finish merging this column... "		echo "Finish merging this column... "
	pnmcat -topbottom $savedname-$i-$(($j-1))-merged.pnm $savedname-$i-$j-cut.pnm ~~>~~ $savedname-$i-$j-merged.pnm		pnmcat -topbottom $savedname-$i-$(($j-1))-merged.pnm $savedname-$i-$j-cut.pnm > $savedname-$i-$j-merged.pnm
	rm $savedname-$i-$(($j-1))-merged.pnm $savedname-$i-$j-cut.pnm		rm $savedname-$i-$(($j-1))-merged.pnm $savedname-$i-$j-cut.pnm
	fi		fi
Line 115:		Line 115:
	then		then
	echo "Merge 2 columns... "		echo "Merge 2 columns... "
	pnmcat -leftright $savedname-$(($i-1))-merged.pnm $savedname-$i.pnm ~~>~~ $savedname-$i-merged.pnm		pnmcat -leftright $savedname-$(($i-1))-merged.pnm $savedname-$i.pnm > $savedname-$i-merged.pnm
	rm $savedname-$(($i-1))-merged.pnm $savedname-$i.pnm		rm $savedname-$(($i-1))-merged.pnm $savedname-$i.pnm
	else		else
	echo "Cut last column, there is some overlapping here... "		echo "Cut last column, there is some overlapping here... "
	pnmcut -left $((-($xbig-$xbig/$xsnap*$xsnap))) $savedname-$i.pnm ~~>~~ $savedname-$i-cut.pnm		pnmcut -left $((-($xbig-$xbig/$xsnap*$xsnap))) $savedname-$i.pnm > $savedname-$i-cut.pnm
	rm $savedname-$i.pnm		rm $savedname-$i.pnm
	echo "Finish merging whole picture... "		echo "Finish merging whole picture... "
	pnmcat -leftright $savedname-$(($i-1))-merged.pnm $savedname-$i-cut.pnm ~~>~~ $savedname-$i-merged.pnm		pnmcat -leftright $savedname-$(($i-1))-merged.pnm $savedname-$i-cut.pnm > $savedname-$i-merged.pnm
	rm $savedname-$(($i-1))-merged.pnm $savedname-$i-cut.pnm		rm $savedname-$(($i-1))-merged.pnm $savedname-$i-cut.pnm
	fi		fi
Line 131:		Line 131:
	mv $savedname-$(($imax-1))-merged.pnm $savedname-merged.pnm		mv $savedname-$(($imax-1))-merged.pnm $savedname-merged.pnm
	echo Done!		echo Done!
	#pnmtopng $savedname-merged.pnm ~~>~~ $savedname-merged.png~~</nowiki>~~		#pnmtopng $savedname-merged.pnm > $savedname-merged.png
	</source>		</source>

	=== Autres cartes satellites ===		=== Autres cartes satellites ===

PhilippeTeuwen at 17:28, 28 March 2008

2008-03-28T17:28:42Z

Show changes

PhilippeTeuwen at 00:12, 2 March 2008

2008-03-02T00:12:35Z

New page

''Converted with [[MediaWiki#HTML-WikiConverter|HTML::WikiConverter::MediaWiki]] from my old phpwiki site''
----
=== Cartes satellite Ikonos ===

Status: Les coordonnées des 4 cartes de Liège ont été découvertes mais pas encore celles de Bruxelles

<nowiki>
#!/bin/bash
###########################################################################
# Purpose of this script is to fetch parts of a map and reconstruct it
# It's suited to fecth maps available at www.geo.ulg.ac.be/edusat/en/ikonos
#
# Version 0.3 (08/12/2002) Copyright Doegox <philippe.teuwen@ael.be>
# This script is released under the GNU/General Public License
#
# History:
# * Version 0.3:
# XY Coord computation made easier, no more need for bc
# Support for additional maps: all Liege Ikonos are now supported
# * Version 0.2:
# Fix parametrization of total nr of images
# Fetch more robust: retry if download failed
###########################################################################
# Here are the parameters to adapt:
###########################################################################
# imagename=
## Give just a prefix for the saved images
# savedname=
## Size of the whole image to recover, quite hard to guess I agree...
# xbig=
# ybig=
## Size of the returned snapshots
xsnap=500
ysnap=500
###########################################################################
########## IKONOS Liege fusion
# imagename="d%3A%5CEdusat-Images%5Cikonos%5Cliege-ikonos-fusion.bmp"
# savedname="lg-fusion"
# xbig=18497
# ybig=11066
########## IKONOS Liege panchromatique
# imagename="d%3A%5CEdusat-Images%5Cikonos%5Cliege-ikonos-pan.bmp"
# savedname="lg-pan"
# xbig=11024
# ybig=11008
########## IKONOS Liege multispectral
# imagename="d%3A%5CEdusat-Images%5Cikonos%5Cliege-ikonos-rgb.bmp"
# savedname="lg-rgb"
# xbig=2756
# ybig=2752
########## IKONOS Liege infrared
# imagename="d%3A%5CEdusat-Images%5Cikonos%5Cliege-ikonos-nir.bmp"
# savedname="lg-nir"
# xbig=2756
# ybig=2752
########## IKONOS Bruxelles fusion
# imagename="d%3A%5CEdusat-Images%5Cikonos%5Cbruxelles-ikonos-fusion.bmp"
# savedname="bxl-fusion"
# xbig=
# ybig=
########## IKONOS Bruxelles panchromatique
# imagename="d%3A%5CEdusat-Images%5Cikonos%5Cbruxelles-ikonos-pan.bmp"
# savedname="bxl-pan"
# xbig=
# ybig=
########## IKONOS Bruxelles multispectral
# imagename="d%3A%5CEdusat-Images%5Cikonos%5Cbruxelles-ikonos-rgb.bmp"
# savedname="bxl-rgb"
# xbig=
# ybig=
########## IKONOS Bruxelles infrared
# imagename="d%3A%5CEdusat-Images%5Cikonos%5Cbruxelles-ikonos-nir.bmp"
# savedname="bxl-nir"
# xbig=
# ybig=
###########################################################################
###########################################################################
imax=$((xbig/xsnap+1))
jmax=$((ybig/ysnap+1))
for ((i=0;i<$imax;i++)); do
x=$(($i*$xsnap+$xsnap/2));
for ((j=0;j<$jmax;j++)); do
y=$(($j*$ysnap+$ysnap/2));
echo Getting bitmap $(($j+$i*$jmax+1))/$(($imax*$jmax)) @ x=$x y=$y
until wget --tries=inf --quiet "http://www.geo.ulg.ac.be/edusat/en/ikonos/cgi-bin/extr500.pl?nom=$imagename&quicklook-x-size=$xbig&quicklook-y-size=$ybig&image.x=$x&image.y=$y" --output-document=$savedname-$i-$j.bmp
do
sleep 1;
echo "Retry...";
done
echo -n "Converting to PNM... "
anytopnm $savedname-$i-$j.bmp > $savedname-$i-$j.pnm
rm $savedname-$i-$j.bmp
if [ $j != 0 ];
then
if [ $j != $(($jmax-1)) ];
then
echo "Merge 2 images in columns... "
pnmcat -topbottom $savedname-$i-$(($j-1))-merged.pnm $savedname-$i-$j.pnm > $savedname-$i-$j-merged.pnm
rm $savedname-$i-$(($j-1))-merged.pnm $savedname-$i-$j.pnm
else
echo "Cut last image of the column, there is some overlapping here... "
pnmcut -top $((-($ybig-$ybig/$ysnap*$ysnap))) $savedname-$i-$j.pnm > $savedname-$i-$j-cut.pnm
rm $savedname-$i-$j.pnm
echo "Finish merging this column... "
pnmcat -topbottom $savedname-$i-$(($j-1))-merged.pnm $savedname-$i-$j-cut.pnm > $savedname-$i-$j-merged.pnm
rm $savedname-$i-$(($j-1))-merged.pnm $savedname-$i-$j-cut.pnm
fi
else
mv $savedname-$i-$j.pnm $savedname-$i-$j-merged.pnm
fi
done
mv $savedname-$i-$(($jmax-1))-merged.pnm $savedname-$i.pnm
if [ $i != 0 ];
then
if [ $i != $(($imax-1)) ];
then
echo "Merge 2 columns... "
pnmcat -leftright $savedname-$(($i-1))-merged.pnm $savedname-$i.pnm > $savedname-$i-merged.pnm
rm $savedname-$(($i-1))-merged.pnm $savedname-$i.pnm
else
echo "Cut last column, there is some overlapping here... "
pnmcut -left $((-($xbig-$xbig/$xsnap*$xsnap))) $savedname-$i.pnm > $savedname-$i-cut.pnm
rm $savedname-$i.pnm
echo "Finish merging whole picture... "
pnmcat -leftright $savedname-$(($i-1))-merged.pnm $savedname-$i-cut.pnm > $savedname-$i-merged.pnm
rm $savedname-$(($i-1))-merged.pnm $savedname-$i-cut.pnm
fi
else
mv $savedname-$i.pnm $savedname-$i-merged.pnm
fi
done
mv $savedname-$(($imax-1))-merged.pnm $savedname-merged.pnm
echo Done!
#pnmtopng $savedname-merged.pnm > $savedname-merged.png</nowiki>

=== Autres cartes satellites ===

Pour des raisons de copyright, ce script ne contient aucune référence à un site provider de cartes satellites, il est ici à titre purement éducatif et son éventuelle modification en vue d'une utilisation illicite au regard des licenses sur les cartes est sous votre entière responsabilité.<br />Partisans des logiciels libres, bienvenue au XXIème siècle!

<nowiki>
#!/bin/bash
# Version 0.12 (06/08/2005) Copyright {SHA}Pqzqg/tBLZdMRSC88PlRCZD4kLA=
#TODO
## detect non zoomable areas (if size=2085 and png instead of jpeg)
# for hybrid, this is already ok: break hybrid if not available
## Use long:lat
## check nr tiles possible+wrap

###############################################################
# This should not be changed:
# Zoom is currently between 0 (max) and 17 (whole world in one tile)
ZOOMLIMIT=17
# Scale between YYY and Xxxxxx data: (experimental)
SCALE_YYY=1.046613
###############################################################

# PARAMETERS

# PREFIX:
# Simply the prefix to append to temporary and final files

# UPPERLEFT:
# This script accepts UPPERLEFT input in qrst string format (as kh.xxxxxx.com)
# or in H:V:Z format (as mt.xxxxxx.com)
# To find qrst or H:V:Z coordinates, go to maps.xxxxxx.com, satellite view,
# navigates to the desired upper-left corner, page info->media->check images

# NR_H_TILES and NR_V_TILES:
# Indicate the nr of horizontal and vertical cells to retrieve

# PROJ=[2-3]
# Projection can be Mercator projection => PROJ=3
# cf http://en.wikipedia.org/wiki/Mercator_projection
# or Plate carree (equidistant cylindral projection) => PROJ=2
# cf http://en.wikipedia.org/wiki/Plate_carr%C3%A9e_projection
# When making hybrid maps, be sure to use PROJ=3!
# Default:
# PROJ=3

# SAT_SOURCE=[XXXXXX|YYY]:
# Select source of satellite views
# Remark: YYY satellite views are already with metadata
# and the script takes directly UPPERLEFT as YYY coordinates
# so providing SAT_SOURCE=YYY + some HYBRID_* will go wrong!
# Anyway who wants their poor outdated satellite views??
# Default:
# SAT_SOURCE=XXXXXX

# HYBRID_XXXXXX=[false|true]
# HYBRID_YYY=[false|true]
# Combines satellite view with vectorized data
# Can be data from Xxxxxx or from YYY
# YYY metadata are not transparent and not aligned with Xxxxxx data
# but who cares? the script make them transparent and aligned :-)
# This is particularly interesting for non-US locations where
# Xxxxxx metadata is very poor.
# Default:
# HYBRID_XXXXXX=false
# HYBRID_YYY=false

# HYBRID_YYY_CLEAN=0x[0-F]
# Bits indicate which elements to remove:
# 1: Remove land
# 2: Remove sea
# 3: Remove sea coast
# 4: Remove inner frontiers
# Best combinations are probably 0x3, 0x7 and 0xF
# Default:
# HYBRID_YYY_CLEAN=0xF

# HYBRID_YYY_WHEN=[BEFORE_HYBRID_XXXXXX|AFTER_HYBRID_XXXXXX]
# If both metadata, in which order to apply them?
# Default:
# HYBRID_YYY_WHEN=AFTER_HYBRID_XXXXXX

# For ease of use, the script can be called for direct conversions as such:
# gmaps <qrst string>
# gmaps <horizontal int> <vertical int> <zoom>

PREFIX="/tmp/test"
UPPERLEFT=
NR_H_TILES=
NR_V_TILES=

# In case of interruption while downloading, the script should
# recover automatically.
# Even if interrupted and restarted later, it detects what is
# already done and continues from there.

#############################################################
# Examples

# World Mercator:
#ZOOM=15
#PREFIX="/tmp/world-mercator"
#UPPERLEFT=0:0:$ZOOM
#NR_H_TILES=$((2**($ZOOMLIMIT-$ZOOM)))
#NR_V_TILES=$((2**($ZOOMLIMIT-$ZOOM)))
#PROJ=3

# World Plate:
#ZOOM=15
#PREFIX="/tmp/world-plate"
#UPPERLEFT=0:$(((2**($ZOOMLIMIT-$ZOOM))/4)):$ZOOM
#NR_H_TILES=$((2**($ZOOMLIMIT-$ZOOM)))
#NR_V_TILES=$((2**($ZOOMLIMIT-$ZOOM-1)))
#PROJ=2

# Europe hybrid:
#PREFIX="/tmp/europe"
#UPPERLEFT=15:10:12
#NR_H_TILES=4
#NR_V_TILES=3
#HYBRID_XXXXXX=true

#PREFIX="/tmp/europe"
#UPPERLEFT=15:10:12
#NR_H_TILES=4
#NR_V_TILES=3
#SAT_SOURCE=XXXXXX
#HYBRID_YYY=true

# Romania hybrid:
#PREFIX="/tmp/romania"
#UPPERLEFT=142:88:9
#NR_H_TILES=8
#NR_V_TILES=6
#HYBRID_XXXXXX=true
#HYBRID_YYY=true

# Oradea:
#PREFIX="/tmp/oradea"
#UPPERLEFT=4594:2878:4
#NR_H_TILES=3
#NR_V_TILES=3

# Belgium hybrid:
#PREFIX="/tmp/belgium"
#UPPERLEFT=259:170:8
#NR_H_TILES=7
#NR_V_TILES=5
#HYBRID_XXXXXX=true
#HYBRID_YYY=true

# Liege available in max resol: !! huge file
#PREFIX="/tmp/liege"
#UPPERLEFT=trtqtqtsrrrqrtstrr
#UPPERLEFT=67499:44060:0
#NR_H_TILES=89
#NR_V_TILES=93

# Manhattan hybrid: this was only to tune the SCALE_YYY parameter
#PREFIX="/tmp/manhattan"
#UPPERLEFT=tqstqrqrrqrsqtstqq
#NR_H_TILES=2
#NR_V_TILES=2
#HYBRID_XXXXXX=true
#HYBRID_YYY=true
#HYBRID_YYY_WHEN=BEFORE_HYBRID_XXXXXX

# Canberra
PREFIX="/tmp/canberra"
UPPERLEFT=tsrrtsqsqttqt
NR_H_TILES=2
NR_V_TILES=2

#########################################################################
### HELPER FUNCTIONS
# takes a qrst string and returns h, v and z into variables $h, $v and $z
# h and v are between 0 and 2^(ZOOMLIMIT-z)
# Example: qrst2hvz tqstqrrqstsrtsqsqr;echo $h $v $z
function qrst2hvz {
qrst=$1
h=0
v=0
z=$ZOOMLIMIT
# First must be always a "t"
if [ "${qrst:0:1}" != "t" ];
then
echo "Error! QRST string does not start by \"t\": \"$1\""
exit
fi
qrst=${qrst:1}
if [ ${#qrst} -gt $ZOOMLIMIT ];
then
echo "Error! QRST string too long: \"$1\" (max is $(($ZOOMLIMIT+1)))"
exit
fi
while [ ${#qrst} -ne 0 ];
do
h=$((h*2))
v=$((v*2))
z=$((z-1))
case ${qrst:0:1} in
q)
;;
r)
h=$((h+1))
;;
s)
h=$((h+1))
v=$((v+1))
;;
t)
v=$((v+1))
;;
*)
echo "Error! QRST string malformed: \"$1\" contains \"${qrst:0:1}\""
exit
;;
esac
qrst=${qrst:1}
done
}

# takes a triplet of h v z values and returns a qrst string into variable $qrst
# Example: hvz2qrst 39637 50100 0;echo $qrst
function hvz2qrst {
h=$1
v=$2
z=$3
HVLIMIT=$((2**($ZOOMLIMIT-$z)))
qrst=""
if [ $h -gt $HVLIMIT ];
then
echo "Error! horizontal int wrong: $h (max is $HVLIMIT)"
exit
fi
if [ $v -gt $HVLIMIT ];
then
echo "Error! vertical int wrong: $v (max is $HVLIMIT)"
exit
fi
if [ $z -gt $ZOOMLIMIT ];
then
echo "Error! zoom level wrong: $z (max is $ZOOMLIMIT)"
exit
fi
local i
for ((i=0;i<$ZOOMLIMIT-$z;i++));
do
case $((h%2)):$((v%2)) in
0:0)
qrst="q$qrst"
;;
1:0)
qrst="r$qrst"
;;
1:1)
qrst="s$qrst"
;;
0:1)
qrst="t$qrst"
;;
esac
h=$((h/2))
v=$((v/2))
done
qrst="t$qrst"
}

# takes a r0123 YYY string and returns h, v and z into variables $h, $v and $z
# TODO actually no idea of the zoom limits for YYY...
# h and v are between 0 and 2^(ZOOMLIMIT-z)
# Example: yyy2hvz r01230123;echo $h $v $z
function yyy2hvz {
yyy=$1
h=0
v=0
z=$ZOOMLIMIT
# First must be always a "r" or a "h"
if [ "${yyy:0:1}" != "r" ] && [ "${yyy:0:1}" != "h" ];
then
echo "Error! YYY string does not start by \"r\" neither \"h\": \"$1\""
exit
fi
yyy=${yyy:1}
if [ ${#yyy} -gt $ZOOMLIMIT ];
then
echo "Error! YYY string too long: \"$1\" (max is $(($ZOOMLIMIT+1)))"
exit
fi
while [ ${#yyy} -ne 0 ];
do
h=$((h*2))
v=$((v*2))
z=$((z-1))
case ${yyy:0:1} in
0)
;;
1)
h=$((h+1))
;;
2)
v=$((v+1))
;;
3)
h=$((h+1))
v=$((v+1))
;;
*)
echo "Error! YYY string malformed: \"$1\" contains \"${yyy:0:1}\""
exit
;;
esac
yyy=${yyy:1}
done
}

# takes a triplet of h v z values and returns a YYY string into variable $yyy
# Example: hvz2yyy 39637 50100 0;echo $yyy
function hvz2yyy {
h=$1
v=$2
z=$3
HVLIMIT=$((2**($ZOOMLIMIT-$z)))
yyy=""
if [ $h -gt $HVLIMIT ];
then
echo "Error! horizontal int wrong: $h (max is $HVLIMIT)"
exit
fi
if [ $v -gt $HVLIMIT ];
then
echo "Error! vertical int wrong: $v (max is $HVLIMIT)"
exit
fi
if [ $z -gt $ZOOMLIMIT ];
then
echo "Error! zoom level wrong: $z (max is $ZOOMLIMIT)"
exit
fi
local i
for ((i=0;i<$ZOOMLIMIT-$z;i++));
do
yyy="$(((h%2)+((v%2)*2)))$yyy"
h=$((h/2))
v=$((v/2))
done
yyy="r$yyy"
}

#######################################################
### Some shortcuts to use the script to make conversions:
case ${#*} in
1)
string=$1
case ${string:0:1} in
t)
echo "QRST to H:V:Z conversion:"
qrst2hvz $1
echo "$1=$h:$v:$z"
;;
[rh])
echo "YYY to H:V:Z conversion:"
yyy2hvz $1
echo "$1=$h:$v:$z"
;;
*)
echo "Error! string not understood! $1"
;;
esac
exit
;;
3)
echo "H:V:Z to QRST and YYY conversion:"
hvz2qrst $1 $2 $3
hvz2yyy $1 $2 $3
echo "$1:$2:$3=$qrst=$yyy"
exit
;;
esac
#######################################################

function yyy_merge {
# Offsets between YYY and Xxxxxx data
# YYY is smaller so we have to scale it a bit
# but that means the YYY tiles become bigger than the 256px of the Xxxxxx tiles
# Both are centered in the middle
# So origin is at (2^(17-$my_z))/2
# and uppercorner tile in origin axis becomes $my_hv-(2^(17-$my_z))/2
# ...times 256 to get the uppercorner in pixels
# Offset scaler is $SCALE_YYY-1
# the last (...+0.5)/1 is just a trick to round the result
echo "Getting YYY metadata... "
xoff=$(echo "((($my_h-(2^($ZOOMLIMIT-$my_z-1)))*256*($SCALE_YYY-1))+0.5)/1"|bc)
yoff=$(echo "((($my_v-(2^($ZOOMLIMIT-$my_z-1)))*256*($SCALE_YYY-1))+0.5)/1"|bc)
my_x=$(echo "$my_h-($xoff/(256*$SCALE_YYY))"|bc)
my_y=$(echo "$my_v-($yoff/(256*$SCALE_YYY))"|bc)
if [ $xoff -gt 0 ];
then
my_x=$(($my_x-1))
fi
if [ $yoff -gt 0 ];
then
my_y=$(($my_y-1))
fi
NR_H_TILES=$(($NR_H_TILES+1))
NR_V_TILES=$(($NR_V_TILES+1))
NR_TILES=$(($NR_H_TILES*$NR_V_TILES))
for ((j=0;j<$NR_V_TILES;j++));
do
jj=$(($my_y+$j))
for ((i=0;i<$NR_H_TILES;i++));
do
ii=$(($my_x+$i))
tile=$PREFIX-$ii-$jj-$my_z
hvz2yyy $ii $jj $my_z
request="http://tiles${yyy:${#yyy}-1}.virtualearth.yyy.com/tiles/r${yyy:1}.png?g=1"
get_hybrid $tile-yyy.png YYY
if [ "$HYBRID_YYY" != "true" ]; # shortcut to break if error 404
then
break
fi
pngtopnm $tile-yyy.png > $tile-yyy-orig.pnm
#rm $tile-yyy.png
done
if [ "$HYBRID_YYY" != "true" ]; # shortcut to break if error 404
then
break
fi
echo "Merge images in row..."
pnmcat -leftright $(for ((ii=$my_x;ii<$my_x+$NR_H_TILES;ii++)); do echo -n " $PREFIX-$ii-$jj-$my_z-yyy-orig.pnm";done) > $PREFIX-$j-up_merge-yyy-orig.pnm
rm -f $PREFIX-*-$jj-$my_z-yyy-orig.pnm
done
if [ "$HYBRID_YYY" != "true" ]; # shortcut to break if error 404
then
return
fi
echo "Merge rows... "
pnmcat -topbottom $(for ((j=0;j<$NR_V_TILES;j++)); do echo -n " $PREFIX-$j-up_merge-yyy-orig.pnm";done) > $PREFIX-yyy-orig.pnm
rm -f $PREFIX-*-up_merge-yyy-orig.pnm
echo "Merging with YYY metadata... "
# Colors to remove from the YYY map:
HYBRID_YYY_CLEAN=${HYBRID_YYY_CLEAN:-0xF}
clean_map=""
# Land:
if [ $(($HYBRID_YYY_CLEAN & 0x1)) -ne 0 ];
then
clean_map=$clean_map"F6/F1/E6 "
fi
# Sea:
if [ $(($HYBRID_YYY_CLEAN & 0x2)) -ne 0 ];
then
clean_map=$clean_map"B3/C6/D4 "
fi
# Littoral:
if [ $(($HYBRID_YYY_CLEAN & 0x4)) -ne 0 ];
then
clean_map=$clean_map"C4/D4/DC B4/CC/D4 E3/E4/DD B3/C6/D5 DA/DC/DA F4/EC/E4 BC/CC/D3 EC/EC/E4 CC/DC/DC CC/D4/DC BC/CC/DC "
fi
# Frontiers:
if [ $(($HYBRID_YYY_CLEAN & 0x8)) -ne 0 ];
then
clean_map=$clean_map"FC/F3/9B F7/DD/A1 F4/EC/D4 F4/EC/DC F4/EC/CC F4/EC/C0 FA/E9/7E EC/D1/71 E0/B4/66 D6/A3/5D 8D/6E/4D 96/8C/5F 57/50/42 EF/DB/92 FC/EC/CC F2/EC/DF 51/42/36 F9/D0/89 "
fi
# Construct call to ppmchange:
local tmp_ppmchange
tmp_ppmchange=""
local k
for k in $clean_map;do
tmp_ppmchange=$tmp_ppmchange"rgb:$k black "
done
ppmchange -remainder white $tmp_ppmchange $PREFIX-yyy-orig.pnm |\
ppmtopgm|pgmtopbm|pbmclean|pbmtopgm 5 5 > $PREFIX-yyy-mask.pgm
#without smooth: ppmtopgm > $PREFIX-yyy-mask.pgm
pnmscale $SCALE_YYY $PREFIX-yyy-orig.pnm > $PREFIX-yyy-orig-scaled.pnm
pnmscale $SCALE_YYY $PREFIX-yyy-mask.pgm > $PREFIX-yyy-mask-scaled.pgm
yoff=$(echo "(($yoff-(256*$SCALE_YYY*($my_v-$my_y)))+0.5)/1"|bc)
xoff=$(echo "(($xoff-(256*$SCALE_YYY*($my_h-$my_x)))+0.5)/1"|bc)
pnmcomp -xoff=$xoff -yoff=$yoff -alpha=$PREFIX-yyy-mask-scaled.pgm $PREFIX-yyy-orig-scaled.pnm $PREFIX.pnm > $PREFIX-tmp.pnm
mv $PREFIX-tmp.pnm $PREFIX.pnm
rm $PREFIX-yyy-orig.pnm $PREFIX-yyy-mask.pgm $PREFIX-yyy-orig-scaled.pnm $PREFIX-yyy-mask-scaled.pgm
}

function get_hybrid {
file=$1
if [ ! -s $file ];
then
echo "Getting mask $(($i+$j*$NR_H_TILES+1))/$NR_TILES @ x=$ii y=$jj"
until result=$(wget --tries=inf --no-verbose "$request" --output-document=$file 2>&1)
do
if echo $result|grep "403";then
echo "!!!INTERRUPT: We apparently got ourselves blacklisted!!!"
exit
fi
if echo $result|grep "404";then
eval "HYBRID_$2=false"
rm $file
break
fi
sleep 1;
echo "Retry...";
done
fi
}

case $UPPERLEFT in
# This is not an exhaustive check on the UPPERLEFT, just first char.
[rh]*)
yyy2hvz $UPPERLEFT
hvz2qrst $h $v $z
QRST_UPPERLEFT=$qrst
;;
t*)
QRST_UPPERLEFT=$UPPERLEFT
;;
[0-9]*:[0-9]*:[0-9]*)
hv=${UPPERLEFT%:*}
hvz2qrst ${hv%:*} ${hv#*:} ${UPPERLEFT##*:}
QRST_UPPERLEFT=$qrst
;;
*)
echo "Error! UPPERLEFT malformed: $UPPERLEFT"
exit
;;
esac

qrst2hvz $QRST_UPPERLEFT
my_h=$h
my_v=$v
my_z=$z
NR_TILES=$(($NR_H_TILES*$NR_V_TILES))
# By default, no metadata
HYBRID_XXXXXX=${HYBRID_XXXXXX:-false}
HYBRID_YYY=${HYBRID_YYY:-false}
# Print some stats
echo "Get map h=$my_h-$(($my_h+$NR_H_TILES-1)) v=$my_v-$(($my_v+$NR_V_TILES-1)) z=$my_z"
echo "This will produce a $((256*$NR_H_TILES))x$((256*$NR_V_TILES)) pixels map"
if [ "$HYBRID_XXXXXX" != "false" ];then
echo "Map will be hybrid i.e. merging of satellite and vector data from Xxxxxx"
fi
if [ "$HYBRID_YYY" != "false" ];then
echo "Map will be hybrid i.e. merging of satellite and vector data from YYY"
fi
JPGSIZE=$((12500*$NR_TILES/1024))
if [ $JPGSIZE -gt 1024 ];then
JPGSIZE="$(($JPGSIZE/1024)) Mb"
else
JPGSIZE="$JPGSIZE kb"
fi
echo "Size of jpg file (~= size of the $NR_TILES tiles to download): around $JPGSIZE"
# Required diskspace: to stock twice the pnm version of the big map (when last merge occurs)
# + the final jpeg + the original jpeg bits if not deleted at each round
# TODO: this does not count yet space required for metadata HYBRID_*
echo "Required temporary diskspace: around $(((2*(196623+12500)*$NR_TILES/1024/1024)+1)) Mb"
if [ $NR_TILES -gt 500 ];
then
echo "WARNING! Xxxxxx will probably blacklist you for a while"
echo "because of the number of downloads ($NR_TILES)"
fi
echo "Are you sure to proceed? (y/n)"
read
[ "$REPLY" != "y" ] && exit

### Recovery:
# If old half-merged files are found, try to use them
MERGE=0
if [ -s $PREFIX-*-up_merge.pnm ];
then
MERGE=$(ls -1 $PREFIX-*-up_merge.pnm|tail -1)
echo "Found $MERGE, try to recover from there..."
MERGE=${MERGE##$PREFIX-}
MERGE=${MERGE%%-up_merge.pnm}
MERGE=$(($MERGE+1))
if [ $MERGE -gt $(($NR_H_TILES)) ];
then
echo "$MERGE not in range of 1-$(($NR_H_TILES))! Discard..."
MERGE=0
fi
fi
###############################################################
# By default, satellite views from Xxxxxx and Mercator projection
SAT_SOURCE=${SAT_SOURCE:-XXXXXX}
PROJ=${PROJ:-3}
rm -f $PREFIX-*-*-$my_z.pnm
for ((j=0;j<$NR_V_TILES;j++));
do
# Recovering?
if [ $MERGE -ne 0 ];
then
j=$MERGE
MERGE=0
fi
jj=$(($my_v+$j))
for ((i=0;i<$NR_H_TILES;i++));
do
ii=$(($my_h+$i))
tile=$PREFIX-$ii-$jj-$my_z
# Build request depending on the source, Xxxxxx by default
case "$SAT_SOURCE" in
XXXXXX)
hvz2qrst $ii $jj $my_z
request="http://kh.xxxxxx.com/kh?v=$PROJ&t=$qrst"
;;
YYY)
hvz2yyy $ii $jj $my_z
request="http://tiles${yyy:${#yyy}-1}.virtualearth.yyy.com/tiles/h${yyy:1}.jpeg?g=1"
;;
esac
if [ ! -s $tile.jpg ];
then
echo "Getting bitmap $(($i+$j*$NR_H_TILES+1))/$NR_TILES @ x=$ii y=$jj"
until result=$(wget --tries=inf --no-verbose "$request" --output-document=$tile.jpg 2>&1)
do
if echo $result|grep "403";then
echo "!!!INTERRUPT: We apparently got ourselves blacklisted!!!"
exit
fi
sleep 1;
echo "Retry...";
done
fi
echo -n "Converting to PNM... "
jpegtopnm $tile.jpg > $tile.pnm
#rm $tile.jpg
# Build request depending on the source of meta, none by default
if [ "$HYBRID_XXXXXX" == "true" ];
then
hvz2qrst $ii $jj $my_z
# for info, transparent is with v=w2t.1 and plain is with v=w2.5
request="http://mt.xxxxxx.com/mt?v=w2t.1&x=$ii&y=$jj&zoom=$my_z"
get_hybrid $tile-xxxxxx.png XXXXXX
if [ "$HYBRID_XXXXXX" == "true" ];
then
pngtopnm $tile-xxxxxx.png > $tile-xxxxxx-orig.pnm
pngtopnm -alpha $tile-xxxxxx.png > $tile-xxxxxx-mask.pgm
#rm $tile-xxxxxx.png
fi
fi
done
echo "Merge images in row..."
pnmcat -leftright $(for ((ii=$my_h;ii<$my_h+$NR_H_TILES;ii++)); do echo -n " $PREFIX-$ii-$jj-$my_z.pnm";done) > $PREFIX-$j-up_merge.pnm
rm -f $PREFIX-*-$jj-$my_z.pnm
if [ "$HYBRID_XXXXXX" == "true" ];
then
pnmcat -leftright $(for ((ii=$my_h;ii<$my_h+$NR_H_TILES;ii++)); do echo -n " $PREFIX-$ii-$jj-$my_z-xxxxxx-orig.pnm";done) > $PREFIX-$j-up_merge-xxxxxx-orig.pnm
pnmcat -leftright $(for ((ii=$my_h;ii<$my_h+$NR_H_TILES;ii++)); do echo -n " $PREFIX-$ii-$jj-$my_z-xxxxxx-mask.pgm";done) > $PREFIX-$j-up_merge-xxxxxx-mask.pgm
rm -f $PREFIX-*-$jj-$my_z-xxxxxx-orig.pnm $PREFIX-*-$jj-$my_z-xxxxxx-mask.pgm
fi
done
echo "Merge rows... "
pnmcat -topbottom $(for ((j=0;j<$NR_V_TILES;j++)); do echo -n " $PREFIX-$j-up_merge.pnm";done) > $PREFIX.pnm
rm $PREFIX-*-up_merge.pnm
if [ "$HYBRID_XXXXXX" == "true" ];
then
pnmcat -topbottom $(for ((j=0;j<$NR_V_TILES;j++)); do echo -n " $PREFIX-$j-up_merge-xxxxxx-orig.pnm";done) > $PREFIX-xxxxxx-orig.pnm
pnmcat -topbottom $(for ((j=0;j<$NR_V_TILES;j++)); do echo -n " $PREFIX-$j-up_merge-xxxxxx-mask.pgm";done) > $PREFIX-xxxxxx-mask.pgm
rm -f $PREFIX-*-up_merge-xxxxxx-orig.pnm $PREFIX-*-up_merge-xxxxxx-mask.pgm
fi

# Merging with metadata, by default if both Xxxxxx and YYY, Xxxxxx first:
HYBRID_YYY_WHEN=${HYBRID_YYY_WHEN:-AFTER_HYBRID_XXXXXX}
if [ "$HYBRID_YYY" == "true" ] && [ "$HYBRID_YYY_WHEN" == "BEFORE_HYBRID_XXXXXX" ];
then
yyy_merge
fi
if [ "$HYBRID_XXXXXX" == "true" ];
then
echo "Merging with Xxxxxx metadata... "
pnmcomp -alpha=$PREFIX-xxxxxx-mask.pgm $PREFIX-xxxxxx-orig.pnm $PREFIX.pnm > $PREFIX-tmp.pnm
mv $PREFIX-tmp.pnm $PREFIX.pnm
rm $PREFIX-xxxxxx-orig.pnm $PREFIX-xxxxxx-mask.pgm
fi
if [ "$HYBRID_YYY" == "true" ] && [ "$HYBRID_YYY_WHEN" == "AFTER_HYBRID_XXXXXX" ];
then
yyy_merge
fi

#echo Converting to png format...
#pnmtopng $PREFIX.pnm > $PREFIX.png
echo Converting to jpeg format...
pnmtojpeg $PREFIX.pnm > $PREFIX.jpg
rm $PREFIX.pnm

echo Done! File is $PREFIX.jpg
</nowiki>

=== Pages blanches ===

Annuaire inversé en ligne de commande:

<nowiki>
#!/bin/bash
#Usage:
#>pages 02 1234567

### Ancien site, hors service
#lynx -dump "http://www.belgacom.be/cgi-bin/whitePages?L=F&TPL=IP2&BYNUMBER=YES&P1=$1&P2=$2"|gawk '
#/Votre recherche/{exit}
#body==1
#/Résultats/{body=1}
#'

wget -O - -q --header="Cookie: language_cookie=fr;" \
"http://www.skynet.be/index.html?l1=search&l2=whitepages&l3=reverse\
&prefixe=$1&ntel=$2&search=Rechercher"\
|gawk '\
/Résultats de la recherche/ {\
while ($0 !~ /<td class=.content_text/) getline; \
getline;\
while ($0 !~ /<!--/){\
gsub(/^[[:space:]]*|<\/?[a-z]*>/,"");\
print;\
getline\
}\
}\
'</nowiki>

=== Volume mensuel consommé chez Skynet ADSL ===

<nowiki>
#!/bin/bash
LOGIN=<YOURLOGIN>
PASSW=<YOURPASSW>
#Change CFID & CFTOKEN to have a unique one
CFID=1234567
CFTOKEN=12345678

echo -n "fuseaction=CheckLoginConnection&form_login=$LOGIN&form_password=$PASSW&Langue_Id=1&Submit=Inloggen"\
|POST -t 2 -H "Cookie: CFID=$CFID; CFTOKEN=$CFTOKEN" -d\
https://e-care.skynet.be/Login/index.cfm

wget -O /dev/null --quiet\
--header="Cookie: CFID=$CFID; CFTOKEN=$CFTOKEN"\
'https://e-care.skynet.be/Login/index.cfm?fuseaction=LoginConnection&NextPage=../App/ConTime/index.cfm?fuseaction=VolumeMeter'

wget -O - --quiet\
--header="Cookie: CFID=$CFID; CFTOKEN=$CFTOKEN"\
'https://e-care.skynet.be/App/ConTime/index.cfm?fuseaction=VolumeMeter'\
|grep disponibles |sed 's/<[^<]*>//g;s/^\t*//'

</nowiki>

La sortie ressemblera à ceci:

* Volume mensuel utilisé 3.75 Gb sur 10 Gb disponibles.

Dépendances:

* libwww-perl
* libcrypt-ssleay-perl
* wget-ssl

pour debugger : livehttpheaders de firefox ;-)
=== Vérification automatique des Free Skype Days ===

Le but est de se logguer sur son compte Skypeout et de vérifier si ce jour est un Free Skype Day. <br />Ce script permet de se faire la main avec les lwp-request (GET, POST,...) disponibles dans le paquet libwww-perl.

<nowiki>
#!/bin/bash

USER="<my_user>"
PASS="<my_pass>"
LOG="/var/log/skypeout.txt"

# Be sure to have write access to the log file:
touch $LOG||exit 1

# Login
# First: get a session_id
session_id=$(\
echo -n "username=$USER&password=$PASS&login=Sign+me+in"|\
POST -e -H 'Host: secure.skype.com' \
'https://secure.skype.com/store/member/dologin.html'|\
grep Set-Cookie|sed 's/.*$[a-f0-9]\{32\}$.*/\1/'\
)

# Then try again with this session_id
echo -n "username=$USER&password=$PASS&login=Sign+me+in"|\
POST -H 'Host: secure.skype.com' \
-H "Cookie: skype_store2=$session_id; username=$USER" \
'https://secure.skype.com/store/member/dologin.html'

# Get overview
results=$(\
GET -H 'Host: secure.skype.com' \
-H "Cookie: skype_store2=$session_id; username=$USER; loggedin=1" \
'https://secure.skype.com/store/myaccount/overview.html'|grep "Free Skype Day" \
)

# Noe that we've collected the data, this part is up to you, depends what you want to do
date >> $LOG
echo $results >> $LOG
echo "--------------------------------" >>$LOG
subject=$(echo $results |gawk '{gsub(/<[^>]*>/,"");gsub(/&#[0-9]+;/,"");print;exit}')
echo $subject|grep -q "Today is not Free Skype Day"||echo $results|mail -s "$subject" <myself>

# Logout
GET -H 'Host: secure.skype.com' \
-H "Cookie: skype_store2=$session_id; username=$USER; loggedin=1" \
'https://secure.skype.com/store/member/logout.html' >/dev/null 2>&1</nowiki>