mathieu
/
config
1
1
Fork 0
Code Issues Pull Requests Releases Activity

Remove deprecated directories

This commit is contained in:
Mathieu Maret 2022-11-21 22:07:17 +01:00
parent 0aadc590b9
commit f481dc3ec6
4 changed files with 0 additions and 142 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
debian/debian-multimedia-keyring_2008.10.16_all.deb vendored
View File

Binary file not shown.

36
debian/sources.list vendored
View File

@ -1,36 +0,0 @@
#
# deb cdrom:[Debian GNU/Linux 5.0.0 _Lenny_ - Official i386 CD Binary-1 20090214-16:29]/ lenny main
#deb cdrom:[Debian GNU/Linux 5.0.0 _Lenny_ - Official i386 CD Binary-1 20090214-16:29]/ lenny main
#depot a la con
deb http://nosuchfile.org/debian lenny main
#deb http://vlab:9999/debian stable main contrib
##Dépôts multimédia
deb http://www.debian-multimedia.org/ lenny main
deb http://ftp.fr.debian.org/debian/ lenny main
deb-src http://ftp.fr.debian.org/debian/ lenny main
deb http://ftp.fr.debian.org/debian/ lenny contrib non-free
deb http://security.debian.org/ lenny/updates main
deb-src http://security.debian.org/ lenny/updates main
deb http://volatile.debian.org/debian-volatile lenny/volatile main
deb-src http://volatile.debian.org/debian-volatile lenny/volatile main
#wine
#deb http://www.lamaresh.net/apt lenny main
#Scratchbox
deb http://scratchbox.org/debian stable main
deb http://scratchbox.org/debian legacy main
#virtual box
deb http://download.virtualbox.org/virtualbox/debian lenny non-free

106
xplanet/clouds.pl
View File

@ -1,106 +0,0 @@
#!/usr/bin/perl
#
# A ajouter dans /etc/crontab
# 49 2,5,8,11,14,17,20,23 * * * perl /usr/local/bin/clouds.pl
#49 2,5,8,11,14,17,20,23 * * * mathieu perl /usr/local/bin/clouds.pl > /home/mathieu/xplanetclouds.log
# ------------------------------------------------------------------------------------
# Program for downloading XPlanet cloud images from a random mirror
#
# Copyright (c) 2003, cueSim Ltd. http://www.cueSim.com, Bedford, UK
#
# ------------------------------------------------------------------------------------
#
# Redistribution and use, with or without modification, are permitted provided
# that the following conditions are met:
#
# * Redistributions of source code must retain the above copyright notice,
# this list of conditions and the following disclaimer.
# * Neither the cueSim name nor the names of its contributors may
# be used to endorse or promote products derived from this software without
# specific prior written permission.
#
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY
# EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
# OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT
# SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT
# OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
#
# (2005-06) hacked by mose at nguild.org for personal use on a debian SID
# (2008-08) hacked by benhaim_jerome at yahoo.fr for personal use on a ubuntu Hardy
use LWP::Simple;
# Options:
# - ou sauvegarder l'image des nuages (par defaut le répertoire courant)
#
my $Filename = "/home/mathieu/.xplanet/images/clouds.jpg";
# - fréquences de mise à jour de l'image sur le serveur
my $MaxDownloadFrequencyHours = 2;
# - Combien d'essais, si le serveur ne répond pas
my $MaxRetries = 3;
## Note: excessive requests to a single image server is discouraged.
## This script limits max retries, does not download more frequently
## than every two hours (the file is generated every 3 hours). and
## picks a random mirror location for every download.
##
## Changer les paramètres risque de vous exclure (blacklisted)
## des serveurs d'images
if(-f $Filename) {
my @Stats = stat($Filename);
my $FileAge = (time() - $Stats[9]);
my $FileSize = $Stats[7];
if($FileAge < 60 * 60 * $MaxDownloadFrequencyHours && $FileSize > 400000) {
print "File is already up to date\n";
exit(1);
}
}
for(1..$MaxRetries) {
my $MirrorURL = GetRandomMirror();
print "Using $MirrorURL\nDownloading...\n";
my $Response = getstore($MirrorURL, $Filename);
if( IndicatesSuccess($Response)) {
print "Finished: file successfully downloaded to $Filename\n";
exit(0);
}
print "Download not available, trying another website\n\n";
}
print "ERROR: Tried to download the file $MaxRetries times, but no servers could provide the file\n";
exit(2);
sub IndicatesSuccess() {
my $Response = shift();
if($Response =~ /2\d\d/) {
return(1);
} else {
return(0);
}
}
## Liste des serveurs miroir
sub GetRandomMirror() {
my @Mirrors = (
"http://xplanet.arculeo.com/clouds_2048.jpg",
"http://xplanet.sourceforge.net/clouds/clouds_2048.jpg",
"http://www.ruwenzori.net/earth/clouds_2048.jpg",
"http://xplanet.dyndns.org/clouds/clouds_2048.jpg",
"http://userpage.fu-berlin.de/~jml/clouds_2048.jpg",
"http://userpage.fu-berlin.de/~jml/clouds_4096.jpg",
"http://php.nctu.edu.tw/~ijliao/clouds_2048.jpg",
"http://home.megapass.co.kr/~gitto88/cloud_data/clouds_2048.jpg",
"http://home.megapass.co.kr/~holywatr/cloud_data/clouds_2048.jpg",
"ftp://ftp.iastate.edu/pub/xplanet/clouds_2048.jpg",
"http://xplanet.explore-the-world.net/clouds_2048.jpg",
"ftp://mirror.pacific.net.au/xplanet/clouds_2048.jpg",
"http://www.narrabri.atnf.csiro.au/operations/NASA/clouds_2048.jpg",
);
return $Mirrors[rand scalar(@Mirrors)];
}

BIN
zsh-prompt.txt
View File

Binary file not shown.