#!/bin/sh
IFS=!
for table in `mdb-tables -d ! $1`
do
echo "Export de la table $1"
dbname=`echo "$1" | awk -F/ '{print $NF}'`
mdb-export -d \| "$1" "$table" > "$2/$dbname.$table.csv"
done
J'explique un peu :
;; mode suivi des modifications (defun my-highlight-changes-mode () (defvar my-highlight-changes-color "wheat") (defun my-make-highlight-face (face colour) (make-face face) (set-face-background face colour) (make-face-bold face) ) (defun highlight-changes-remove-all-highlights () (interactive) (highlight-changes-remove-highlight (point-min) (point-max) ) ) (my-make-highlight-face 'highlight-1 my-highlight-changes-color) (setq highlight-changes-colours nil) (setq highlight-changes-face-list '(highlight-1)) (highlight-changes-mode t) (add-hook 'write-file-hooks 'highlight-changes-rotate-faces) (global-set-key [C-right] 'highlight-changes-next-change) (…)
(defun replace-string* (from to) (while (search-forward from (point-max) t) (backward-char 1) (let ((props (text-properties-at (point)))) (delete-char (length from)) (let ((string (format "%s" to))) (set-text-properties 0 (length string) props string) (insert string))))) (defun faces:save-as-html () (interactive) (let* ((buffer-name (format "*HTML:%s*" (buffer-name))) (buffer (get-buffer (buffer-name))) (buffer-html (or (get-buffer buffer-name) (generate-new-buffer buffer-name)))) (save-excursion (set-buffer buffer-html) (…)
#!/usr/bin/perl # # Copyright (c) 2006 Mathieu Roy# http://yeupou.coleumes.org # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General (…)
Usage: desproxy remote_host remote_port proxy_host proxy_port local_portAprés avoir lancé un serveur ssh sur le port 443 chez moi je m'y (…)