delete obsolete scripts
This commit is contained in:
parent
514a770608
commit
b7243360ca
41
add_mg.sh
41
add_mg.sh
@ -1,41 +0,0 @@
|
|||||||
#!/bin/sh
|
|
||||||
|
|
||||||
MG_ROOT="/usr/local/www/photos.meutel.net/mediagoblin"
|
|
||||||
ALBUMS_ROOT="/home/mediagoblin/albums"
|
|
||||||
MG_USER=meutel
|
|
||||||
|
|
||||||
add_all()
|
|
||||||
{
|
|
||||||
echo "=== TAGS $2 $3 ==="
|
|
||||||
ADD_PATH=$1
|
|
||||||
echo "== path: $ADD_PATH"
|
|
||||||
FILES=$(find $ADD_PATH -type f -maxdepth 1 -iname "*.png" -o -iname "*.mp4" -o -iname "*.jpg")
|
|
||||||
for file in $FILES
|
|
||||||
do
|
|
||||||
echo "Ajout: $file"
|
|
||||||
TITLE=$(basename $file)
|
|
||||||
$MG_ROOT/bin/gmg addmedia $MG_USER "$file" --title "$TITLE" --tags "$2,$3"
|
|
||||||
done
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
ifs=$IFS
|
|
||||||
IFS='\
|
|
||||||
'
|
|
||||||
ALBUMS=$(ls $ALBUMS_ROOT)
|
|
||||||
echo "albums: $ALBUMS"
|
|
||||||
for album in $ALBUMS
|
|
||||||
do
|
|
||||||
ALBUM_NAME=$(basename $album)
|
|
||||||
TAGALBUM=$(echo $ALBUM_NAME | sed 's/ /_/g')
|
|
||||||
echo "Album: $ALBUM_NAME"
|
|
||||||
ALBUM_PATH="${ALBUMS_ROOT}/$ALBUM_NAME"
|
|
||||||
for subalbum in $(find $ALBUM_PATH -type d)
|
|
||||||
do
|
|
||||||
echo "Sous-album: $subalbum"
|
|
||||||
SUBALBUM_NAME=$(basename $subalbum)
|
|
||||||
TAGSUBALBUM=$(echo $SUBALBUM_NAME | sed 's/ /_/g')
|
|
||||||
add_all "$subalbum" "$TAGALBUM" "$TAGSUBALBUM"
|
|
||||||
done
|
|
||||||
done
|
|
||||||
IFS=$ifs
|
|
||||||
246
arte7-dl.sh
246
arte7-dl.sh
@ -1,246 +0,0 @@
|
|||||||
#!/bin/bash
|
|
||||||
|
|
||||||
# arte7-dl.sh - Download Arte+7 videos
|
|
||||||
# Version: 0.3.2
|
|
||||||
# Creation date: Sun, 26 Apr 2009 00:27:18 +0200
|
|
||||||
# Last update: Sun, 22 Nov 2009 21:35:34 +0100
|
|
||||||
# Author: CSM 'illovae' Seldon <druuna@dud-t.org>
|
|
||||||
# Copyleft 2009
|
|
||||||
|
|
||||||
# Helpers/Debuggers/Contributors:
|
|
||||||
|
|
||||||
# This script is a fork of an original idea by beubeud : Arte+7 Recorder
|
|
||||||
# http://codingteam.net/project/arte7recorder
|
|
||||||
|
|
||||||
# FREE ADVERTISE: http://u-classroom.net FTW!!
|
|
||||||
|
|
||||||
# arte7-dl.sh --help for help
|
|
||||||
# Dependancies: bash, mimms, wget, coreutils (echo, awk, grep, etc)
|
|
||||||
|
|
||||||
# arte7-dl.sh is distributed by license: Dual Beer-Ware/WTFPLv2
|
|
||||||
|
|
||||||
# THE BEER-WARE LICENSE:
|
|
||||||
# As long as you retain this notice you can do whatever you want with this
|
|
||||||
# stuff. If we meet some day, and you think this stuff is worth it, you can
|
|
||||||
# buy me a beer in return.
|
|
||||||
|
|
||||||
# DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
|
|
||||||
# Version 2, December 2004
|
|
||||||
# Copies of this license document, and changing it is allowed as long
|
|
||||||
# as the name is changed.
|
|
||||||
# DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
|
|
||||||
# TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
|
|
||||||
# 0. You just DO WHAT THE FUCK YOU WANT TO.
|
|
||||||
|
|
||||||
# NOTE for the video quality --
|
|
||||||
# With Arte7 you can download Medium Quality videos or High Quality videos.
|
|
||||||
# For the moment, this script haven't option to let you choose what video
|
|
||||||
# quality you want. The video quality is defined in this script in the $VQ
|
|
||||||
# variable below and use by default Medium Quality (MQ). Feel free to
|
|
||||||
# edit this variable at your convenience.
|
|
||||||
|
|
||||||
# BUG with mimms 3.2 --
|
|
||||||
# The original mimms 3.2 which can be downloaded from the project website
|
|
||||||
# http://savannah.nongnu.org/projects/mimms/ have a know bug : you cannot
|
|
||||||
# use the filename you want while downloading the stream. This is a function
|
|
||||||
# used by this script, so we invite you to use an other mimms version, or you
|
|
||||||
# can use a patched version. For example in debian, mimms have been patched to
|
|
||||||
# mimms 3.2.1, by debian devels, which is working properly.
|
|
||||||
|
|
||||||
# AND KNOW WE CAN BEGIN!
|
|
||||||
|
|
||||||
# Variables
|
|
||||||
|
|
||||||
# Name by which this script was invoked.
|
|
||||||
PROGNAME=$(basename $0)
|
|
||||||
VERSION="0.3.2"
|
|
||||||
|
|
||||||
# Video Quality
|
|
||||||
VQ=MQ # HQ == High Quality ; MQ = Medium Quality
|
|
||||||
|
|
||||||
# Others variables
|
|
||||||
USAGE="Usage: $PROGNAME {option}
|
|
||||||
|
|
||||||
NB: The [VALUES] are required.
|
|
||||||
|
|
||||||
Options are:
|
|
||||||
-h, --help You're looking at it
|
|
||||||
-l, --list List all availables shows
|
|
||||||
-i, --infos [VIDEO_ID] Get informations for a show using VIDEO_ID
|
|
||||||
-d, --download [VIDEO_ID] Download a file using VIDEO_ID
|
|
||||||
-v, --version Version and license
|
|
||||||
"
|
|
||||||
CASE=help
|
|
||||||
|
|
||||||
# To prevent hairy quoting and escaping later.
|
|
||||||
bq='`'
|
|
||||||
eq="'"
|
|
||||||
|
|
||||||
# The functions
|
|
||||||
|
|
||||||
# We want to get the list of available shows
|
|
||||||
function getlist
|
|
||||||
{
|
|
||||||
XMLLINK="http://plus7.arte.tv$(wget -q -O - http://plus7.arte.tv/ | \
|
|
||||||
grep xmlURL | awk -F'"' '{print $4}')"
|
|
||||||
|
|
||||||
wget -q -O - $XMLLINK | grep -F "<index>
|
|
||||||
<bigTitle>
|
|
||||||
<startDate>
|
|
||||||
<offlineDate>
|
|
||||||
<targetURL>" | sed -e 's/<index>/-- VIDEO #/g' \
|
|
||||||
-e 's/<bigTitle>/Title: /g' \
|
|
||||||
-e 's/<startDate>/Since: /g' \
|
|
||||||
-e 's/<offlineDate>/To: /g' \
|
|
||||||
-e 's/<targetURL>/Video ID: /g' \
|
|
||||||
-e 's/http[^>]*,CmC=//g' \
|
|
||||||
-e 's/,schedu[^>]*html/\n/g' | \
|
|
||||||
sed -e 's/^\s*//' | sed 's/<[^>]*>//g'
|
|
||||||
}
|
|
||||||
|
|
||||||
# We want informations from a show
|
|
||||||
function getinfos
|
|
||||||
{
|
|
||||||
# We get the stuffs
|
|
||||||
XMLLINK="http://plus7.arte.tv$(wget -q -O - http://plus7.arte.tv/ | \
|
|
||||||
grep xmlURL | awk -F'"' '{print $4}')"
|
|
||||||
GETXML=$(wget -q -O - "$XMLLINK" | grep -B 6 "$VIDEO_ID")
|
|
||||||
VIDEOURL=$(echo "$GETXML" | grep "<targetURL>" | sed -e "s/^\s*//" | \
|
|
||||||
sed "s/<[^>]*>//g")
|
|
||||||
|
|
||||||
if [ ! -z "$VIDEOURL" ]; then
|
|
||||||
|
|
||||||
# We want the name and date of the video and the HTML content
|
|
||||||
VIDEOTITLE=$(echo "$GETXML" | grep "<bigTitle>" | sed -e "s/^\s*//" | \
|
|
||||||
sed "s/<[^>]*>//g")
|
|
||||||
VIDEODATE=$(echo "$GETXML" | grep "<startDate>" | sed -e "s/^\s*//" | \
|
|
||||||
sed "s/<[^>]*>//g" | cut -d"T" -f1)
|
|
||||||
VIDEOHTML=$(wget -q -O - "$VIDEOURL")
|
|
||||||
|
|
||||||
# First we get the information
|
|
||||||
HEADLINE=$(echo "$VIDEOHTML" | grep -A 2 '<p class="headline">' | \
|
|
||||||
sed 's/<[^>]*>//g' | sed -e 's/^\s*//')
|
|
||||||
SYNOPSIS=$(echo "$VIDEOHTML" | grep -A 2 '<p class="text">' | \
|
|
||||||
sed 's/<[^>]*>//g' | sed -e 's/^\s*//')
|
|
||||||
INFOS=$(echo "$VIDEOHTML" | grep -A 2 '<p class="info">' | \
|
|
||||||
sed 's/<[^>]*>//g' | sed -e 's/^\s*//' | \
|
|
||||||
sed 's/(//' | sed 's/)/./')
|
|
||||||
|
|
||||||
# And finally we can display them
|
|
||||||
echo -e "Informations for "$bq$VIDEOTITLE$eq" ("$VIDEODATE"):\n"
|
|
||||||
echo -e "Headline --"$HEADLINE"\n"
|
|
||||||
echo -e "Synopsis --"$SYNOPSIS"\n"
|
|
||||||
echo -e "Others --"$INFOS
|
|
||||||
|
|
||||||
else
|
|
||||||
echo "$PROGNAME: there's no show whith the ID $bq$VIDEO_ID$eq"
|
|
||||||
echo "$PROGNAME: please check the show list to get a right ID"
|
|
||||||
echo "$PROGNAME: if your're sure of your ID, then this script might be deprecated"
|
|
||||||
echo "$PROGNAME: or the site may be broken..."
|
|
||||||
exit 1
|
|
||||||
fi
|
|
||||||
}
|
|
||||||
|
|
||||||
# Finally we want to download the wmv file
|
|
||||||
function getfile
|
|
||||||
{
|
|
||||||
# We get the stuffs + we define CONV for a good file renaming
|
|
||||||
XMLLINK="http://plus7.arte.tv$(wget -q -O - http://plus7.arte.tv/ | \
|
|
||||||
grep xmlURL | awk -F'"' '{print $4}')"
|
|
||||||
GETXML=$(wget -q -O - "$XMLLINK" | grep -B 6 "$VIDEO_ID")
|
|
||||||
CONV="y/abcdefghijklmnopqrstuvwxyzéèêçàù/ABCDEFGHIJKLMNOPQRSTUVWXYZEEECAU/"
|
|
||||||
|
|
||||||
if [ ! -z "$GETXML" ]; then
|
|
||||||
|
|
||||||
# We want the name and date of the video ; putting them together
|
|
||||||
VIDEOTITLE=$(echo "$GETXML" | grep "<bigTitle>" | sed -e "s/^\s*//" | \
|
|
||||||
sed "s/<[^>]*>//g" | sed -e $CONV | \
|
|
||||||
tr "[:blank:]" "_")
|
|
||||||
VIDEODATE=$(echo "$GETXML" | grep "<startDate>" | sed -e "s/^\s*//" | \
|
|
||||||
sed "s/<[^>]*>//g" | cut -d"T" -f1)
|
|
||||||
FILERENAME=$VIDEOTITLE"_"$VIDEODATE
|
|
||||||
|
|
||||||
# Now we want the mms link and the original filename
|
|
||||||
VIDEOURL=$(echo "$GETXML" | grep "<targetURL>" | sed -e "s/^\s*//" | \
|
|
||||||
sed "s/<[^>]*>//g")
|
|
||||||
VIDEOLINK=$(wget -q -O - "$VIDEOURL" | grep wmv | grep $VQ | cut -d"\"" -f4)
|
|
||||||
FILEORINAME=$(echo "$VIDEOLINK" | cut -d"/" -f8 | cut -d"." -f1)
|
|
||||||
MMSLINK=$(wget -q -O - "$VIDEOLINK" | grep mms | cut -d"\"" -f2)
|
|
||||||
|
|
||||||
# All stuff ok, we can proceed
|
|
||||||
mimms -r $MMSLINK $FILERENAME"_"$FILEORINAME".wmv"
|
|
||||||
|
|
||||||
else
|
|
||||||
echo "$PROGNAME: there's no show whith the ID $bq$VIDEO_ID$eq"
|
|
||||||
echo "$PROGNAME: please check the show list to get a right ID"
|
|
||||||
echo "$PROGNAME: if your're sure of your ID, then this script might be deprecated"
|
|
||||||
echo "$PROGNAME: or the site may be broken..."
|
|
||||||
exit 1
|
|
||||||
fi
|
|
||||||
}
|
|
||||||
|
|
||||||
# OK here we go now!
|
|
||||||
|
|
||||||
# Parse command line arguments.
|
|
||||||
while test $# != 0; do
|
|
||||||
case "$1" in
|
|
||||||
-h|--help)
|
|
||||||
CASE=help
|
|
||||||
shift
|
|
||||||
;;
|
|
||||||
-l|--list)
|
|
||||||
CASE=list
|
|
||||||
shift
|
|
||||||
;;
|
|
||||||
-i|--infos)
|
|
||||||
CASE=infos
|
|
||||||
shift
|
|
||||||
;;
|
|
||||||
-d|--download)
|
|
||||||
CASE=download
|
|
||||||
shift
|
|
||||||
;;
|
|
||||||
-v|--version)
|
|
||||||
echo "$PROGNAME ($VERSION) distributed under Dual Beer-Ware/WTFPLv2"
|
|
||||||
exit 0
|
|
||||||
;;
|
|
||||||
-- ) # Stop option processing
|
|
||||||
shift
|
|
||||||
break
|
|
||||||
;;
|
|
||||||
-? | --* )
|
|
||||||
case "$1" in
|
|
||||||
--*=* ) arg=`echo "$1" | sed -e 's/=.*//'` ;;
|
|
||||||
*) arg="$1" ;;
|
|
||||||
esac
|
|
||||||
exec 1>&2
|
|
||||||
echo "$PROGNAME: unknown or ambiguous option $bq$arg$eq"
|
|
||||||
echo "$PROGNAME: Use $bq--help$eq for a list of options."
|
|
||||||
exit 1
|
|
||||||
;;
|
|
||||||
*)
|
|
||||||
break
|
|
||||||
;;
|
|
||||||
esac
|
|
||||||
done
|
|
||||||
|
|
||||||
# for every case, do something!
|
|
||||||
case "$CASE" in
|
|
||||||
help)
|
|
||||||
echo "$USAGE" 1>&2
|
|
||||||
exit 0
|
|
||||||
;;
|
|
||||||
list)
|
|
||||||
getlist
|
|
||||||
;;
|
|
||||||
infos)
|
|
||||||
VIDEO_ID=$1
|
|
||||||
getinfos
|
|
||||||
;;
|
|
||||||
download)
|
|
||||||
VIDEO_ID=$1
|
|
||||||
getfile
|
|
||||||
;;
|
|
||||||
esac
|
|
||||||
|
|
||||||
exit 0
|
|
||||||
54
arte7dump
54
arte7dump
@ -1,54 +0,0 @@
|
|||||||
#!/bin/bash
|
|
||||||
#
|
|
||||||
# Arte+7 video downloader (french HD version)
|
|
||||||
# Author: Gerome Fournier
|
|
||||||
# Version: 0.3
|
|
||||||
# Date: 2013-09-15
|
|
||||||
# http://foutaise.org/code/
|
|
||||||
|
|
||||||
usage()
|
|
||||||
{
|
|
||||||
local progname=${0##*/}
|
|
||||||
|
|
||||||
cat <<EOF
|
|
||||||
Dump French HD version of a arte+7 video
|
|
||||||
Usage:
|
|
||||||
|
|
||||||
$progname <arte+7 url>
|
|
||||||
|
|
||||||
Example:
|
|
||||||
|
|
||||||
$progname "http://www.arte.tv/guide/fr/047158-000/evasion-fiscale?autoplay=1" > evasion-fiscale.flv
|
|
||||||
EOF
|
|
||||||
}
|
|
||||||
|
|
||||||
if [ "$1" == "-h" ]; then
|
|
||||||
usage
|
|
||||||
exit 0
|
|
||||||
fi
|
|
||||||
|
|
||||||
if [ "$#" -ne 1 ]; then
|
|
||||||
echo "Wrong number of arguments" >&2
|
|
||||||
exit 1
|
|
||||||
fi
|
|
||||||
|
|
||||||
# walk through several URLs to find the stream
|
|
||||||
link1=$(curl -s "$1" \
|
|
||||||
| grep ALL.json \
|
|
||||||
| head -n1 \
|
|
||||||
| sed -e 's/^.*arte_vp_url="//' -e 's/".*$//')
|
|
||||||
if [ -n "$link1" ]; then
|
|
||||||
json_hd_french=$(curl -s "$link1" \
|
|
||||||
| tr '{' '\n' \
|
|
||||||
| grep '"quality":"HD - 720p".*"versionCode":"\(VF\|VF-STF\|VOF-STF\)"' \
|
|
||||||
| tr ',' '\n')
|
|
||||||
streamer=$(grep '^"streamer"' <<< "$json_hd_french" | cut -d: -f2- | tr -d '"')
|
|
||||||
url=$(grep '^"url"' <<< "$json_hd_french" | cut -d: -f2- | tr -d '"')
|
|
||||||
if [ "${streamer:0:7}" == "rtmp://" ]; then
|
|
||||||
rtmpdump -r "$streamer" -y "mp4:$url"
|
|
||||||
exit 0
|
|
||||||
fi
|
|
||||||
fi
|
|
||||||
|
|
||||||
echo "Unable to find source stream" >&2
|
|
||||||
exit 1
|
|
||||||
@ -1,76 +0,0 @@
|
|||||||
#!/bin/sh
|
|
||||||
#
|
|
||||||
# Copyright (c) 2010 Mary Gardiner
|
|
||||||
#
|
|
||||||
# Permission is hereby granted, free of charge, to any person obtaining a copy
|
|
||||||
# of this software and associated documentation files (the "Software"), to deal
|
|
||||||
# in the Software without restriction, including without limitation the rights
|
|
||||||
# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
|
||||||
# copies of the Software, and to permit persons to whom the Software is
|
|
||||||
# furnished to do so, subject to the following conditions:
|
|
||||||
#
|
|
||||||
# The above copyright notice and this permission notice shall be included in
|
|
||||||
# all copies or substantial portions of the Software.
|
|
||||||
#
|
|
||||||
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
|
||||||
# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
|
||||||
# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
|
||||||
# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
|
||||||
# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
|
||||||
# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
|
|
||||||
# THE SOFTWARE.
|
|
||||||
|
|
||||||
## INFO
|
|
||||||
# This is a very simple script designed to be used when using the email client
|
|
||||||
# mutt remotely. It copies attachments to a web accessible folder and tells you
|
|
||||||
# where to view them.
|
|
||||||
#
|
|
||||||
# More details are available at http://puzzling.org/logs/thoughts/2010/May/6/mutt-attachments
|
|
||||||
|
|
||||||
# if you want to override OUTPUTDIR and VIEWINGDIR edit them here or create a
|
|
||||||
# ~/.copy-to-dir # file that looks like:
|
|
||||||
# OUTPUTDIR=someotherdir
|
|
||||||
# VIEWINGDIR=someother URI
|
|
||||||
|
|
||||||
# You can also optionally specify a location to rsync attachments to,
|
|
||||||
# RSYNCOUTPUTDIR=host:dir
|
|
||||||
# You'll probably want a passphraseless key for this and NO DELETION of rsynced
|
|
||||||
# attachments will take place.
|
|
||||||
|
|
||||||
### Extension
|
|
||||||
# use short generated file name
|
|
||||||
|
|
||||||
OUTPUTDIR=$HOME/public_html/attachments
|
|
||||||
VIEWINGDIR=https://ssl.meutel.net/~meutel/attachments
|
|
||||||
|
|
||||||
CONFIGFILE=$HOME/.copy-to-dir
|
|
||||||
if [ -e "$CONFIGFILE" ]
|
|
||||||
then
|
|
||||||
. "$CONFIGFILE"
|
|
||||||
fi
|
|
||||||
|
|
||||||
if [ -n "$1" ]
|
|
||||||
then
|
|
||||||
if [ -n "$RSYNCOUTPUTDIR" ]
|
|
||||||
then
|
|
||||||
SHORTNAME=`basename "$1"`
|
|
||||||
echo "Uploading attachment $SHORTNAME for viewing"
|
|
||||||
rsync --chmod=ugo+r --progress -ptve "ssh -C" "$1" "$RSYNCOUTPUTDIR"
|
|
||||||
echo
|
|
||||||
echo "View attachment $SHORTNAME at $VIEWINGDIR/$SHORTNAME"
|
|
||||||
elif [ ! -d "$OUTPUTDIR" ]
|
|
||||||
then
|
|
||||||
echo "ERROR: '$OUTPUTDIR' doesn't exist, or is not a directory"
|
|
||||||
else
|
|
||||||
SHORTNAME=`md5sum "$1" | cut -c -4`
|
|
||||||
MIME_TYPE=`file -Lb --mime-type "$1"`
|
|
||||||
# utilisation de l'extension correspondant au type mime
|
|
||||||
FILE_EXT=$(grep $MIME_TYPE /etc/mime.types | awk '{ print $2}')
|
|
||||||
DELETE="$OUTPUTDIR/$SHORTNAME.$FILE_EXT"
|
|
||||||
cp "$1" "$DELETE"
|
|
||||||
# ajoute le type mime dans les attributs etendus
|
|
||||||
attr -s Content-Type -V "$MIME_TYPE" $DELETE > /dev/null
|
|
||||||
chmod 644 "$DELETE"
|
|
||||||
echo "View attachment $SHORTNAME at $VIEWINGDIR/$SHORTNAME.$FILE_EXT"
|
|
||||||
fi
|
|
||||||
fi
|
|
||||||
@ -1,45 +0,0 @@
|
|||||||
#!/bin/bash
|
|
||||||
# TODO
|
|
||||||
# home (hors données distribuées)
|
|
||||||
# repos git
|
|
||||||
# crypter les données secu
|
|
||||||
# copier vers ftp
|
|
||||||
|
|
||||||
# repertoire contenant les backups
|
|
||||||
BACKUP_DIR=/home/backup
|
|
||||||
BACKUP_CUR=$BACKUP_DIR/current
|
|
||||||
mkdir -p $BACKUP_CUR
|
|
||||||
|
|
||||||
function do_backup {
|
|
||||||
BACKUP_PATH=$1
|
|
||||||
BACKUP_NAME=$2
|
|
||||||
|
|
||||||
BACKUP_FILE=$BACKUP_DIR/$BACKUP_NAME.$(date +%Y%m%d).tar.gz
|
|
||||||
BACKUP_LST=$BACKUP_DIR/$BACKUP_NAME.lst
|
|
||||||
ARCHIVE_DIR=$BACKUP_DIR/$(date +%Y%m%d)
|
|
||||||
# si le lst existe, incremental
|
|
||||||
test -f $BACKUP_LST
|
|
||||||
INCR_BACKUP=$?
|
|
||||||
|
|
||||||
tar cpzf $BACKUP_FILE -C / --listed-incremental=$BACKUP_LST $BACKUP_PATH
|
|
||||||
# TODO crypt
|
|
||||||
|
|
||||||
# si non incremental (cad complet) copie vers repertoire archive
|
|
||||||
if [ $INCR_BACKUP -ne 0 ]
|
|
||||||
then
|
|
||||||
mkdir -p $ARCHIVE_DIR
|
|
||||||
mv $BACKUP_FILE $ARCHIVE_DIR
|
|
||||||
# effacer les backups incrementaux précédents
|
|
||||||
rm -rf $BACKUP_CUR
|
|
||||||
else
|
|
||||||
mv $BACKUP_FILE $BACKUP_CUR
|
|
||||||
fi
|
|
||||||
}
|
|
||||||
|
|
||||||
# /etc
|
|
||||||
do_backup "/etc/" "$(hostname).etc"
|
|
||||||
|
|
||||||
# webapps
|
|
||||||
# TODO pas besoin d'etre root
|
|
||||||
do_backup "/home/www" "$(hostname).www"
|
|
||||||
|
|
||||||
106
batt_status.pl
106
batt_status.pl
@ -1,106 +0,0 @@
|
|||||||
#!/usr/bin/perl
|
|
||||||
|
|
||||||
##############################
|
|
||||||
# Calcul l'etat de la batterie
|
|
||||||
##############################
|
|
||||||
|
|
||||||
use strict;
|
|
||||||
|
|
||||||
use vars qw(@Batt_Data %Useful);
|
|
||||||
|
|
||||||
# renvoit une liste de hash des valeurs lues (un element par batterie)
|
|
||||||
sub read_proc {
|
|
||||||
my @batts = find_batts();
|
|
||||||
my @Batt_Data;
|
|
||||||
for (@batts) {
|
|
||||||
my $batt_dir = $_;
|
|
||||||
my %h1 = read_Batt_Data($batt_dir.'state');
|
|
||||||
my %h2 = read_Batt_Data($batt_dir.'info');
|
|
||||||
# TODO mieux?
|
|
||||||
my %h = %h1;
|
|
||||||
for my $key ( keys %h2 ) {
|
|
||||||
$h{$key} = $h2{$key};
|
|
||||||
}
|
|
||||||
# le tableau contient une reference au hash
|
|
||||||
push @Batt_Data, {%h};
|
|
||||||
}
|
|
||||||
return @Batt_Data;
|
|
||||||
}
|
|
||||||
|
|
||||||
# lit un fichier de donnees de la batterie dans proc
|
|
||||||
sub read_Batt_Data {
|
|
||||||
my ($file) = @_;
|
|
||||||
|
|
||||||
my %data;
|
|
||||||
#print '>>',$file,"\n";
|
|
||||||
open(DATA, "< $file") or next;
|
|
||||||
while (<DATA>) {
|
|
||||||
if (/^([^:]+):\s+(.+)/){
|
|
||||||
#print "$1 -> $2\n";
|
|
||||||
$data{$1} = $2;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
return %data;
|
|
||||||
}
|
|
||||||
|
|
||||||
# trouve les repertoires d'etat des batteries
|
|
||||||
sub find_batts {
|
|
||||||
my @batts;
|
|
||||||
my $proc_path = '/proc/acpi/battery/';
|
|
||||||
|
|
||||||
# TODO verifier que c'est un repertoire
|
|
||||||
opendir(BATTS, $proc_path) or die "can't open $proc_path: $!";
|
|
||||||
while (defined(my $bat_dir = readdir(BATTS))) {
|
|
||||||
# TODO verifier que c'est un repertoire
|
|
||||||
if ($bat_dir =~ /BAT([0-9])/) {
|
|
||||||
#print $1,$bat_dir,"\n";
|
|
||||||
$batts[$1] = $proc_path.$bat_dir.'/';
|
|
||||||
}
|
|
||||||
}
|
|
||||||
return @batts;
|
|
||||||
}
|
|
||||||
|
|
||||||
# synthetise les donnees utiles
|
|
||||||
sub summarize {
|
|
||||||
# capacite totale des batteries
|
|
||||||
#print $Batt_Data[0]{'present'},"\n";
|
|
||||||
my $total_full_cap = 0;
|
|
||||||
my $total_rem = 0;
|
|
||||||
my $total_rate = 0;
|
|
||||||
for my $href ( @Batt_Data ) {
|
|
||||||
my $cap = $href->{'last full capacity'} || 0;
|
|
||||||
# toujours en mAh ?
|
|
||||||
$total_full_cap += $_ for ( $cap =~ /(\d+) mAh/ );
|
|
||||||
|
|
||||||
#for ( keys %$href ) {
|
|
||||||
#print $_,"\n";
|
|
||||||
#}
|
|
||||||
my $remaining = $href->{'remaining capacity'} || 0;
|
|
||||||
#print $remaining,"\n";
|
|
||||||
$total_rem += $_ for ( $remaining =~ /(\d+) mAh/ );
|
|
||||||
|
|
||||||
my $rate = $href->{'present rate'} || 0;
|
|
||||||
$total_rate += $_ for ( $rate =~ /(\d+) mA/ );
|
|
||||||
}
|
|
||||||
$Useful{'capacity'} = $total_full_cap;
|
|
||||||
$Useful{'remaining'} = $total_rem;
|
|
||||||
$Useful{'rate'} = $total_rate;
|
|
||||||
# temps restant en heures (end of operation)
|
|
||||||
$Useful{'eooTime'} = $total_rem / $total_rate;
|
|
||||||
$Useful{'remainingPerc'} = 100*$total_rem/$total_full_cap;
|
|
||||||
return %Useful;
|
|
||||||
}
|
|
||||||
|
|
||||||
# TODO adapter selon l'OS
|
|
||||||
@Batt_Data = read_proc();
|
|
||||||
summarize();
|
|
||||||
print <<EOL;
|
|
||||||
total full cap $Useful{'capacity'}
|
|
||||||
total remaining cap $Useful{'remaining'}
|
|
||||||
total rate $Useful{'rate'}
|
|
||||||
EOL
|
|
||||||
printf("remaining: %.3f%%\n", $Useful{'remainingPerc'});
|
|
||||||
# TODO formattage delai
|
|
||||||
printf("remaining time: %d min\n", 60 * $Useful{'eooTime'});
|
|
||||||
# TODO heure de fin de fonctionnement
|
|
||||||
# TODO operation en cours (charge, decharge)
|
|
||||||
57
dl_pluzz
57
dl_pluzz
@ -1,57 +0,0 @@
|
|||||||
#!/bin/bash
|
|
||||||
# Script pour utiliser pluzz.fr
|
|
||||||
# v0.2 (11 juillet 2010)
|
|
||||||
|
|
||||||
if [ $# != 2 ]
|
|
||||||
then
|
|
||||||
printf "Syntaxe: $0 [url|play|record] http://www.pluzz.fr/...\n" >&2
|
|
||||||
exit 1
|
|
||||||
fi
|
|
||||||
command="$1"
|
|
||||||
url="$2"
|
|
||||||
|
|
||||||
if [ "$command" != 'url' -a "$command" != 'play' -a "$command" != 'record' ]
|
|
||||||
then
|
|
||||||
printf "Command must be 'url', 'play' or 'record', not '$command'\n" >&2
|
|
||||||
exit 2
|
|
||||||
fi
|
|
||||||
|
|
||||||
video_page_url=$(wget -qO- "$url" | grep -o 'http://info.francetelevisions.fr/?id-video=[^"]\+')
|
|
||||||
stream_url_part2=$(wget -qO- "$video_page_url" | grep urls-url-video | sed 's/.*content="\(.*\)".*/\1/')
|
|
||||||
ext=${stream_url_part2##*.}
|
|
||||||
|
|
||||||
if [ "$ext" = 'wmv' ]
|
|
||||||
then
|
|
||||||
stream_url_part1='mms://a988.v101995.c10199.e.vm.akamaistream.net/7/988/10199/3f97c7e6/ftvigrp.download.akamai.com/10199/cappuccino/production/publication'
|
|
||||||
elif [ "$ext" = 'mp4' ]
|
|
||||||
then
|
|
||||||
stream_url_part1='rtmp://videozones-rtmp.francetv.fr/ondemand/mp4:cappuccino/publication'
|
|
||||||
else
|
|
||||||
printf "Extension not managed : '$ext'\n" >&2
|
|
||||||
exit 3
|
|
||||||
fi
|
|
||||||
|
|
||||||
stream_url="$stream_url_part1/$stream_url_part2"
|
|
||||||
|
|
||||||
if [ "$command" = "url" ]
|
|
||||||
then
|
|
||||||
printf "$stream_url\n"
|
|
||||||
elif [ "$command" = "play" ]
|
|
||||||
then
|
|
||||||
if [ "$ext" = 'wmv' ]
|
|
||||||
then
|
|
||||||
vlc "$stream_url"
|
|
||||||
else
|
|
||||||
flvstreamer -r "$stream_url" | vlc -
|
|
||||||
fi
|
|
||||||
elif [ "$command" = "record" ]
|
|
||||||
then
|
|
||||||
output_file=${stream_url##*/}
|
|
||||||
printf "Recording to $output_file...\n"
|
|
||||||
if [ "$ext" = 'wmv' ]
|
|
||||||
then
|
|
||||||
vlc "$stream_url" ":sout=#std{access=file,mux=asf,dst=$output_file}"
|
|
||||||
else
|
|
||||||
flvstreamer -r "$stream_url" -o "$output_file"
|
|
||||||
fi
|
|
||||||
fi
|
|
||||||
@ -1,21 +0,0 @@
|
|||||||
#!/bin/sh
|
|
||||||
|
|
||||||
EARFILE=$1
|
|
||||||
EXTR_DIR=$2
|
|
||||||
|
|
||||||
# tester fichier et repertoire
|
|
||||||
|
|
||||||
# extraire le fichier donné dans le repertoire
|
|
||||||
unzip $EARFILE -d $EXTR_DIR
|
|
||||||
|
|
||||||
# extraire chaque fichier jar, war, sar dans le repertoire temporaire
|
|
||||||
for ar_file in `ls $EXTR_DIR/*.?ar`
|
|
||||||
do
|
|
||||||
TMP_DIR=$EXTR_DIR/.tmp
|
|
||||||
mkdir -p $TMP_DIR
|
|
||||||
|
|
||||||
# suppromer le jar/war/sar du repertoire d'extraction, le remplacer par le repertoire des fichiers extraits
|
|
||||||
unzip $ar_file -d $TMP_DIR
|
|
||||||
rm -f $ar_file
|
|
||||||
mv $TMP_DIR $ar_file
|
|
||||||
done
|
|
||||||
13
fix_wicd.sh
13
fix_wicd.sh
@ -1,13 +0,0 @@
|
|||||||
#!/bin/sh
|
|
||||||
|
|
||||||
# corrige un bug de wicd, un ligne contenant [] apparait dans le fichier de
|
|
||||||
# conf et fait planter le demon
|
|
||||||
# à executer avec les droits root
|
|
||||||
|
|
||||||
# Fichier à corriger
|
|
||||||
CONF_FILE=/etc/wicd/wired-settings.conf
|
|
||||||
# Backup
|
|
||||||
cp $CONF_FILE $CONF_FILE.bak
|
|
||||||
# supprimer les lignes contenant []
|
|
||||||
sed '/\[\]/d' $CONF_FILE.bak > $CONF_FILE
|
|
||||||
/etc/init.d/wicd restart
|
|
||||||
45
mgceleryd
45
mgceleryd
@ -1,45 +0,0 @@
|
|||||||
#!/bin/sh
|
|
||||||
|
|
||||||
# PROVIDE: mgceleryd
|
|
||||||
# REQUIRE: LOGIN cleanvar
|
|
||||||
# KEYWORD: shutdown
|
|
||||||
|
|
||||||
. /etc/rc.subr
|
|
||||||
|
|
||||||
name="mgceleryd"
|
|
||||||
rcvar="mgceleryd_enable"
|
|
||||||
|
|
||||||
load_rc_config $name
|
|
||||||
: ${mgceleryd_enable:="NO"}
|
|
||||||
: ${mgceleryd_path:="/usr/local/www/photos.meutel.net/mediagoblin"}
|
|
||||||
: ${mgceleryd_user:="www"}
|
|
||||||
: ${mgceleryd_mgconfig:="$mgceleryd_path/mediagoblin_local.ini"}
|
|
||||||
: ${mgceleryd_config_module:="mediagoblin.init.celery.from_celery"}
|
|
||||||
: ${mgceleryd_logdir:="/var/log/mediagoblin"}
|
|
||||||
: ${mgceleryd_eggcache:="/usr/local/www/.python-eggs"}
|
|
||||||
|
|
||||||
pidfile="/var/run/${name}.pid"
|
|
||||||
required_files="$mgceleryd_mgconfig"
|
|
||||||
required_dirs="$mgceleryd_path $mgceleryd_path/bin $mgceleryd_logdir"
|
|
||||||
|
|
||||||
start_precmd="${name}_prestart"
|
|
||||||
mgceleryd_chdir=$mgceleryd_path
|
|
||||||
command="$mgceleryd_path/bin/celery"
|
|
||||||
command_args=" > $mgceleryd_logdir/${name}_start.log 2>&1 &"
|
|
||||||
command_interpreter="$mgceleryd_path/bin/python"
|
|
||||||
|
|
||||||
mgceleryd_flags=" worker --pidfile $pidfile -f ${mgceleryd_logdir}/${name}.log $mgceleryd_flags"
|
|
||||||
|
|
||||||
mgceleryd_prestart()
|
|
||||||
{
|
|
||||||
touch $pidfile
|
|
||||||
chown $mgceleryd_user $pidfile
|
|
||||||
MEDIAGOBLIN_CONFIG=$mgceleryd_mgconfig
|
|
||||||
export MEDIAGOBLIN_CONFIG
|
|
||||||
CELERY_CONFIG_MODULE=$mgceleryd_config_module
|
|
||||||
export CELERY_CONFIG_MODULE
|
|
||||||
PYTHON_EGG_CACHE="$mgceleryd_eggcache"
|
|
||||||
export PYTHON_EGG_CACHE
|
|
||||||
}
|
|
||||||
|
|
||||||
run_rc_command "$1"
|
|
||||||
47
mgpaster
47
mgpaster
@ -1,47 +0,0 @@
|
|||||||
#!/bin/sh
|
|
||||||
|
|
||||||
# PROVIDE: mgpaster
|
|
||||||
# REQUIRE: LOGIN cleanvar
|
|
||||||
# KEYWORD: shutdown
|
|
||||||
|
|
||||||
. /etc/rc.subr
|
|
||||||
|
|
||||||
name="mgpaster"
|
|
||||||
rcvar="mgpaster_enable"
|
|
||||||
|
|
||||||
load_rc_config $name
|
|
||||||
: ${mgpaster_enable:="NO"}
|
|
||||||
: ${mgpaster_path:="/usr/local/www/photos.meutel.net/mediagoblin"}
|
|
||||||
: ${mgpaster_user:="www"}
|
|
||||||
: ${mgpaster_pasteini:="paste_local.ini"}
|
|
||||||
: ${mgpaster_logdir:="/var/log/mediagoblin"}
|
|
||||||
: ${mgpaster_eggcache:="/usr/local/www/.python-eggs"}
|
|
||||||
: ${mgpaster_host:="10.42.0.90"}
|
|
||||||
: ${mgpaster_port:="26543"}
|
|
||||||
: ${mgpaster_celery_eager:="false"}
|
|
||||||
|
|
||||||
pidfile="/var/run/${name}.pid"
|
|
||||||
required_files="$mgpaster_path/$mgpaster_pasteini"
|
|
||||||
required_dirs="$mgpaster_path $mgpaster_path/bin $mgpaster_logdir"
|
|
||||||
|
|
||||||
start_precmd="${name}_prestart"
|
|
||||||
mgpaster_chdir=$mgpaster_path
|
|
||||||
command="$mgpaster_path/bin/paster"
|
|
||||||
command_interpreter="$mgpaster_path/bin/python"
|
|
||||||
command_args=" > $mgpaster_logdir/${name}_start.log 2>&1"
|
|
||||||
|
|
||||||
mgpaster_flags=" serve $mgpaster_path/$mgpaster_pasteini --server-name=fcgi \
|
|
||||||
fcgi_host=$mgpaster_host fcgi_port=$mgpaster_port \
|
|
||||||
--pid-file $pidfile --log-file ${mgpaster_logdir}/${name}.log --daemon $mgpaster_flags"
|
|
||||||
|
|
||||||
mgpaster_prestart()
|
|
||||||
{
|
|
||||||
touch $pidfile
|
|
||||||
chown $mgpaster_user $pidfile
|
|
||||||
CELERY_ALWAYS_EAGER=$mgpaster_celery_eager
|
|
||||||
export CELERY_ALWAYS_EAGER
|
|
||||||
PYTHON_EGG_CACHE="$mgpaster_eggcache"
|
|
||||||
export PYTHON_EGG_CACHE
|
|
||||||
}
|
|
||||||
|
|
||||||
run_rc_command "$1"
|
|
||||||
@ -1,3 +0,0 @@
|
|||||||
#!/bin/bash
|
|
||||||
# backup mysql base gallery3
|
|
||||||
mysqldump -Q --add-drop-table gallery3 > ~/mysql/mysql_gallery3_$(date +%Y%m%d).sql
|
|
||||||
58
pluzz
58
pluzz
@ -1,58 +0,0 @@
|
|||||||
#!/bin/bash
|
|
||||||
# Script pour utiliser pluzz.fr
|
|
||||||
# v0.2 (11 juillet 2010)
|
|
||||||
|
|
||||||
if [ $# != 2 ]
|
|
||||||
then
|
|
||||||
printf "Syntaxe: $0 [url|play|record] http://www.pluzz.fr/...\n" >&2
|
|
||||||
exit 1
|
|
||||||
fi
|
|
||||||
command="$1"
|
|
||||||
url="$2"
|
|
||||||
|
|
||||||
if [ "$command" != 'url' -a "$command" != 'play' -a "$command" != 'record' ]
|
|
||||||
then
|
|
||||||
printf "Command must be 'url', 'play' or 'record', not '$command'\n" >&2
|
|
||||||
exit 2
|
|
||||||
fi
|
|
||||||
|
|
||||||
video_page_url=$(wget -qO- "$url" | grep -o 'http://info.francetelevisions.fr/?id-video=[^"]\+')
|
|
||||||
stream_url_part2=$(wget -qO- "$video_page_url" | grep urls-url-video | sed 's/.*content="\(.*\)".*/\1/')
|
|
||||||
ext=${stream_url_part2##*.}
|
|
||||||
|
|
||||||
if [ "$ext" = 'wmv' ]
|
|
||||||
then
|
|
||||||
stream_url_part1='mms://a988.v101995.c10199.e.vm.akamaistream.net/7/988/10199/3f97c7e6/ftvigrp.download.akamai.com/10199/cappuccino/production/publication'
|
|
||||||
elif [ "$ext" = 'mp4' ]
|
|
||||||
then
|
|
||||||
stream_url_part1='rtmp://videozones-rtmp.francetv.fr/ondemand/mp4:cappuccino/publication'
|
|
||||||
else
|
|
||||||
printf "Extension not managed : '$ext'\n" >&2
|
|
||||||
exit 3
|
|
||||||
fi
|
|
||||||
|
|
||||||
stream_url="$stream_url_part1/$stream_url_part2"
|
|
||||||
|
|
||||||
if [ "$command" = "url" ]
|
|
||||||
then
|
|
||||||
printf "$stream_url\n"
|
|
||||||
elif [ "$command" = "play" ]
|
|
||||||
then
|
|
||||||
if [ "$ext" = 'wmv' ]
|
|
||||||
then
|
|
||||||
vlc "$stream_url"
|
|
||||||
else
|
|
||||||
flvstreamer -r "$stream_url" | vlc -
|
|
||||||
fi
|
|
||||||
elif [ "$command" = "record" ]
|
|
||||||
then
|
|
||||||
output_file=${stream_url##*/}
|
|
||||||
printf "Recording to $output_file...\n"
|
|
||||||
if [ "$ext" = 'wmv' ]
|
|
||||||
then
|
|
||||||
#vlc "$stream_url" ":sout=#std{access=file,mux=asf,dst=$output_file}"
|
|
||||||
mplayer $stream_url -dumpstream -dumpfile $output_file
|
|
||||||
else
|
|
||||||
flvstreamer -r "$stream_url" -o "$output_file"
|
|
||||||
fi
|
|
||||||
fi
|
|
||||||
Loading…
Reference in New Issue
Block a user