The Mailbag

Ray Ingles

$echo ${${(z) $(whereis libcrypto)}[2]}

libcrypto: libcrypto.so libcryto.a
it returns libcrypto.so only.

$robin=($(whereis libcrypto)); echo ${robin[1]}

/
/
"<Ctrl-A>su -c "

PROMPT="%S%n@$HOST_:%~%#%s "
PROMPT2='%S%_>%s '

export PS1='ROOT@`hostname`:`pwd`$ '
export PS2='> '

ben.bashrc.txt
su -m

/bin/bash
rpm -qilp sendmail

dpkg -L sendmail

	position: absolute;

# Create a directory to hold the CD data (none at the moment) plus "boot"
ben@Fenrir:~$ mkdir -p /tmp/cdrom/boot

# Create byte-by-byte copy in "boot.img"
ben@Fenrir:~$ dd if=/dev/fd0 of=/tmp/cdrom/boot/boot.img

/tmp/cdrom
ben@Fenrir:~$ cd /tmp/cdrom
ben@Fenrir:/tmp/cdrom$ mkisofs -r -b boot/boot.img -c boot/boot.catalog -o bootcd.iso .

ben@Fenrir:/tmp/cdrom$ sudo cdrecord -v -eject speed=8 dev=0,0,0 bootcd.iso

dpkg-reconfigure xserver-common

/etc/X11/Xwrapper.config
/usr/bin/no
/usr/bin/yes
 	#!/bin/sh
	OUTPUT='y'
	[ "$#" -gt 1] && OUTPUT="$*"
	while : ; do
		echo "$OUTPUT"
		done

/usr/bin/yes
		 /usr/bin/yes no

/usr/bin/yes
> /bin/sh: no: command not found

khh > find ./ -name "no*"
./gettext-runtime/po/no.po
./gettext-runtime/po/no.gmo
./gettext-tools/po/no.po
./gettext-tools/po/no.gmo

/etc/resolv.conf
/etc/nsswitch.conf:
hosts: files dns

# route -n
Kernel IP routing table
Destination     Gateway         Genmask         Flags  Iface
62.104.218.38   0.0.0.0         255.255.255.255 UH     ppp0
192.168.2.3     0.0.0.0         255.255.255.255 UH     dummy0
10.10.10.0      0.0.0.0         255.255.255.0   U      eth0
172.16.57.0     0.0.0.0         255.255.255.0   U      vmnet1
0.0.0.0         62.104.218.38   0.0.0.0         UG     ppp0

0.0.0.0      [some IP]           0.0.0.0        UG      eth0

/var/log/messages
route del default

/dev/hda1
/etc/pam.d/sshd
/etc/ssh/sshd_config
scp -B files thomas@thomas

/etc/ssh_config
BatchMode=yes

/var/log/messages
/etc/xinetd.d$
Option ""XaaNoSolidTwoPointLine""

/etc/X11/XF86Config
-4
/usr/share/XaoS/examples.
backup-weekly.sh.txt
tar zcvf /windows/s/suse/back_tbrown.tgz /home/tbrown

(cd /src/dir && tar cf - . ) | (cd /dest/dir && tar xvfp -)

/src/dir
/dest/dir
find /var -xdev -print | afio -v -o -Z -T 5k -b10k  ARCHIVE.afio

tar cvzf - * | split -b 100k backup-01-15-04

tar cvzpSf - *

tar cvzpSf

/
/proc/swsusp/activate
	echo -n disk > /sys/power/state

	echo 4 > /proc/acpi/sleep

	echo 1 > /proc/kernel/suspend/activate or whatever

sudo echo 4 > /proc/acpi/sleep

/bin
/boot
/etc
00:02.0 VGA compatible controller: Intel Corp. 82852/855GM Integrated
Graphics Device (rev 01)

dpkg-reconfigure -plow xserver-xfree86

PCI:nn:nn:nn

PCI:00:02:00

/etc/modules
/voila/!
cp /boot/config-$(uname -r) /usr/src/linux/.config

make oldconfig

/boot
swapon /dev/xxx

   	  _______________________
	 |                       |
	 |                       |
	 |                       |
	 |        Touchpad       |
	 |                       |
	 |                       |
	 |                       |
	 |                       |
          -----------------------
	 |          _|_          |
	 |         /   \         |
	 | Button |  X  | Button |
	 |   1     \___/    2    |
	 |           |           |
	  -----------------------

Working:
1024x768 video
Sound
Touchpad (except the above issues)
NIC
USB2.0
ACPI (no suspend yet, though)

Untested but everything loads OK:
Wireless networking
Bluetooth interface
CD-RW/DVD-RW
Firewire
Parallel port
Video out
FIR

Not working yet:
4-in-1 card reader
Better video
Framebuffer
Modem (Lucent winmodem, bleh :( There's probably a binary driver
       somewhere, but I think I'll get a PCMCIA modem.)
Five-way "media control" keys

/bin
/boot
/etc
/
/etc
/etc/passwd
% perl Makefile.PL
% make
% make test
% make install 

% tv_grab_na --days 1 --output /tmp/tv.xml

% tv_sort --output /tmp/tv_sorted.xml /tmp/tv.xml
% tv_grep --output /tmp/tv_grepped.xml --ignore-case --not --category Children \
          --not --category Sports --not --title "Paid Programming" \
          --not --title "Local Origination" \
          --on-after now /tmp/tv_sorted.xml

% tv_to_text --output /tmp/tv.txt /tmp/tv_grepped.xml

21:00--21:30    Spy School      38
21:00--21:30    Designing for the Sexes // European Kitchen     64
21:00--21:30    Chappelle's Show        67
21:00--21:30    The Real World // Las Vegas     71
21:00--22:00    Law & Order: Special Victims Unit // Guilt      44
21:00--22:00    Wild Card // Auntie Venom       45
21:00--22:00    Cold Case Files // The Accidental Killer; Little Sister Lost    57
21:00--22:00    America's Most Wanted: America Fights Back // Top Ten Most Wanted Fugitives     5
21:00--22:00    The FBI Files // The Price of Greed     60
21:00--22:00    Trading Spaces // Nashville: Murphywood Crossing        61
21:00--22:00    Great Chowder Cook-Off  63
21:00--22:00    Ends of the Earth // Secrets of the Holy Land   65
21:00--22:00    The E! True Hollywood Story // The Hilton Sisters       68
...

% mail -s "Today's TV listings from XMLTV" user@localhost < /tmp/tv.txt

#!/bin/sh

# Grab today's listings:
tv_grab_na --days 1 --output /tmp/tv.xml

# Sort
tv_sort --output /tmp/tv_sorted.xml /tmp/tv.xml

# Grep
tv_grep --output /tmp/tv_grepped.xml --ignore-case --not --category Children \
--not --category Sports --not --title "Paid Programming" \
--not --title "Local Origination" \
--on-after now /tmp/tv_sorted.xml

# Convert To Text
tv_to_text --output /tmp/tv.txt /tmp/tv_grepped.xml

# Email
mail -s "Today's TV listings from XMLTV" user@localhost < /tmp/tv.txt

gpasm -a inhx8m a.s

:020000000030CE
:02400E00983FD9
:00000001FF

from uspp import *

# COM1 is initialized at 9600 baud. The
# default data format is 8N1

s = SerialPort("/dev/ttyS0", None, 9600)
s.flush() # discard unread bytes

print ord(s.read()) # s.read() returns a one-character
                    # string. We convert it into its ascii
                    # value

# ./configure
# make world; make opt; make install

open Basics
open Unix
open Unix.LargeFile

val string_sub: string -> int -> int -> string
(** Get the sub string from a [string] from position [from] with [length].
This is the same function as String.sub, but it will never raise an exception.
And a negative [from] value is counted from the right side of the string. *)

let gettype file =
try
let pos = String.rindex file '.' in
String.sub file (pos+1) (String.length file-pos-1)
with Not_found -> ""
;;

let filesize s =
let tostr f =
  if f>9.9 then
    string_of_int (int_of_float (f +. 0.5))
  else
    let res = string_of_float (floor (f *. 10.0 +. 0.5) /. 10.0) in
    if String.length res=2 then
      res ^ "0"
    else 
      res
in
let bytes = Int64.to_float s in
if bytes > 512.0 then
  let kb = bytes /. 1024.0 in
  if kb > 512.0 then
    let mb = kb /. 1024.0 in
    if mb > 512.0 then
      let gb = mb /. 1024.0 in
      tostr gb ^ " Gb"
    else
      tostr mb ^ " Mb"
  else
    tostr kb ^ " kb"
else
  Int64.to_string s
;;

let month = [("jan", 0); ("feb", 1); ("mar", 2); ("apr", 3); ("may", 4); ("jun", 5);
             ("jul", 6); ("aug", 7); ("sep", 8); ("oct", 9); ("nov", 10); ("dec", 11)]
;;

let converttime str =
try
begin match
  if str>"a" && str<"z" then
  ( int_of_string (string_sub str (String.rindex str ' '+1) 99),
    List.assoc (string_sub str 0 3) month,
    1
  )
  else
  ( int_of_string (string_sub str 0 (
      try String.index str '-' with Not_found -> 99
    )),
    ( try let pos=String.index str '-'+1 in
        int_of_string (string_sub str pos (
          try String.index_from str pos '-'-pos with err -> 99
        ))-1
        with err -> 0
    ),
    ( try let pos=String.index str '-'+1 in
        int_of_string (string_sub str (String.index_from str pos '-'+1) 99)
        with err -> 1
    )
  )
with (yr,mn,md) ->
(* print_string ("Last access before: "^
     string_of_int (if yr<50 then yr+2000 else if yr<100 then yr+1900 else yr)^"-"^
     string_of_int (mn+1)^"-"^
     string_of_int md^"\n"); 
*)
  fst (mktime 
  { tm_sec = 0; tm_min = 0; tm_hour = 0;
    tm_mday = md; tm_mon = mn;
    tm_year = if yr<50 then yr+100 else if yr<100 then yr else yr-1900;
    tm_wday = 0; tm_yday = 0; tm_isdst = false
  })
end with err ->
  print_string ("Cannot decipher this date string '" ^ str ^ "'\n"); max_float
;;

type entrytype =
| Dir of entry list   (* directory with a list of files *)
| File of string      (* a file inside a directory *)

and

entry = {
	mutable e_name: string;   (* name of a file or directory *)
	e_type: entrytype;        (* what type is this together with type
                                     related information *)
	e_atime: float;           (* last access time *)
	e_size: int64;            (* size of the file or size of all the matching
                                     files in the directory *)
}

let rec dirwrite el depth sortfn =
List.iter (
  fun e ->
    match e.e_type with
    | Dir lst ->
       if e.e_size <> Int64.of_int 0 then begin
         print_string ((String.make (depth*2) ' ') ^ "Directory " ^
           e.e_name ^ " = (" ^ filesize e.e_size ^ ")\n"); 
         dirwrite lst (depth+1) sortfn
       end
    | File string -> 
       print_string ((String.make (depth*2) ' ') ^ e.e_name ^
         " (" ^ filesize e.e_size ^ ")\n")
  ) (List.sort sortfn el)
;;

(* List of global variables *)

let min_size = ref (Int64.of_int 0) and    (* minimum size of a file in bytes *)
    last_access = ref max_float and        (* last access time in seconds since 1970 *)
    has_type = ref "" and                  (* type of file to show or empty to
                                              show all *)
    name_match = ref "" and                (* regular expression to match the filename
                                              with; empty is show all *)
    name_regexp = ref (Str.regexp "") and  (* pre-calculated regular expression *)
    no_symlinks = ref false                (* don't follow symbolic links to
                                              directories *)
;;

let rec dirread path =
let list = ref [] and
    size = ref (Int64.of_int 0) in
try
let dh = opendir path in
while true do
  let file = readdir dh in
  if file<>".." && file<>"." && file<>"CVS" && String.sub file 0 1 <> "." then
  let s=stat (path^"/"^file) in
  if s.st_kind = S_DIR &&
    (not !no_symlinks || (lstat (path^"/"^file)).st_kind <> S_LNK)
  then
    let dir = dirread (path^"/"^file) in
    list := 
    { e_name = file;
      e_type = Dir (fst dir);
      e_atime = s.st_atime;
      e_size = snd dir
    } :: !list;
    size := Int64.add !size (snd dir)
  else if 
    (!has_type = "" || gettype file = !has_type) &&
    s.st_size > !min_size && 
    s.st_atime < !last_access &&
    (!name_match = "" || Str.string_match !name_regexp file 0)
  then begin
    list := 
    { e_name = file;
      e_type = File (gettype file);
      e_atime = s.st_atime;
      e_size = s.st_size;
    } :: !list;
    size := Int64.add !size s.st_size
  end
done;
(!list, !size)
with 
| End_of_file -> (!list, !size)
| Unix_error (EACCES, err, parm) -> (!list, !size)
;;

let rec flat el path =
List.fold_right (
  fun e ls ->
    match e.e_type with
    | Dir lst -> flat lst (path ^ "/" ^ e.e_name) @ ls
    | File string ->
        e.e_name <- (path ^ "/" ^ e.e_name);
        e :: ls
  ) el []
;;

let name_order a b =
compare a.e_name b.e_name
;;

let type_order a b =
let typea = match a.e_type with Dir ls -> "dir" | File tp -> tp and
    typeb = match b.e_type with Dir ls -> "dir" | File tp -> tp in
if compare typea typeb = 0 then
  compare a.e_name b.e_name
else compare typea typeb
;;

let atime_order a b =
compare a.e_atime b.e_atime
;;

let dir = ref "." and
    sort = ref name_order and
    show = ref 0
    in

Arg.parse [
   ("-t",Arg.Unit (fun () -> sort := type_order), 
     "Sort by type and filename");
   ("-l",Arg.Unit (fun () -> sort := atime_order),
     "Sort by last access time");
   ("-n",Arg.Unit (fun () -> show := 1),
     "List filenames");
   ("-b",Arg.Unit (fun () -> show := 2),
     "List both filenames and sizes");
   ("-s",Arg.Unit (fun () -> no_symlinks := true),
     "Don't follow symbolic links");
   ("--before",Arg.String (fun s -> last_access := converttime s),
     "Last access older than give date (format 'yyyy-mm-dd' or 'mmm yyyy')");
   ("--size",Arg.Int (fun i ->
        min_size := Int64.mul (Int64.of_int i) (Int64.of_int (1024*1024))
     ), "File size bigger than size in Mbytes");
   ("--type",Arg.String (fun s -> has_type := s),
     "File is specific type");
   ("--name",Arg.String (fun s ->
        name_match := s; name_regexp := Str.regexp (s ^ "$")
     ), "Filename matches regular expression")
] (fun d -> dir := d) "show [DIR]";
let res = dirread !dir in
if !show=0 then begin
  dirwrite (fst res) 0 !sort;
  print_string ("Total size " ^ filesize (snd res) ^ "\n")
end else
  List.iter
    (fun e -> 
      print_endline (e.e_name ^ if !show=2 then " ("^filesize e.e_size^")" else "")
    ) (List.sort !sort (flat (fst res) !dir))
;;

ocamlopt -o show unix.cmxa str.cmxa basics.cmx show.ml

make
su
make install
exit
show --help
show -s ~ --size 3 --before "apr 2003"

System	Xringd	Mail filter	Port knocking	Sniffers	Lando	Ostiary
Network Required?		Yes	Yes	Yes	Yes	Yes
Port Required?		Yes			Yes	Yes
Modem Required?	Yes
Replay?		Yes	Yes	Yes	Yes
Man-in-the-middle?		Yes	Yes	Yes	Yes
Command arguments?		Yes			Yes
CPU load?		Sometimes	Yes	Yes
Special client?			Sometimes	Sometimes	Yes	Yes

February 2004 (#99):

The Mailbag

Bash Scripting

Article suggestion - Clustering (formatting correction)

RV: Sendmail Help

Jython article

Windows Defectors

About solving priblem of /bin/bash access denied

Clear writing

stylesheet problem??

Linux Gazette

how to join the TAG mailing list?

bum link

More Two Cent Tips!

no-floppy system configuration

Nice value in XFree86 startup

CPU Support on Linux

mac 5200

Miller-Daemon

what is "no"? (missing prog for binutils compile)

What is Linux Torvalds wife famous for

pppd problem

PPP & ETH won't work concurrently

Red Hat Linux Install issues

pam and ssh

Pctel modem ................NO CARRIER..........?????

Which VT? Custom prompts.

workaround for black lines on Radeon mobility 7500

Cool toy of the week: XaoS

The Answer Gang

Contents:

Greetings from Heather Stern

Backing up with tar

Hunting for new desktop hardware

Software suspend troubles

Oh-oh. This isn't looking good for the moment...

Copyright © 2004 Copying license http://www.linuxgazette.net/copying.html Published in Issue 99 of Linux Gazette, February 2004

HTML script maintained by Heather Stern of Starshine Technical Services, http://www.starshine.org/

Lightweight, (Almost) Crypto-Free Remote System Operation

Introduction

Overview

The Problem

Some Solutions

The Options

Old School Remote Operation - Xringd

Procmail And Other Mail Filters

Port Knocking

'Sniffer' Triggers - libpcap and friends

Lando - Simple & Flexible

Okay, A Little Crypto - Ostiary

Summary

XMLTV

Installation

Configuration

Delivery

Let's Build a Cool Linux Toy

Get a PIC micro, and set it up to work with Linux

A Quick Introduction to PIC programming

Lighting up an LED

Building a `running' circuit

Debugging tips

The temperature sensor interfacing project

Filtering PWM pulses

From DAC to ADC

Back to Linux

Interfacing with the serial port

Serial I/O in Python

Acknowledgements

Conclusion

OCaml, an Introduction

Modules & Functions

Basic operations and function calls

If then else

List notation and type conversion

Dynamic data structure

Recursion

Variables vs. definitions

Small is beautiful

Command line parameters

Generating binaries

Copyright © 2004
Copying license http://www.linuxgazette.net/copying.html
Published in Issue 99 of Linux Gazette, February 2004