annotate getcdinfo @ 9:f3f2657296d2

Use Tcl 8.2 Catch socket errors. Create separate dummy file generation proc.
author darius
date Thu, 18 Jul 2002 06:37:12 +0000
parents 5cead4da1db9
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2
5cead4da1db9 Initial import.
darius
parents:
diff changeset
1 #!/bin/sh
5cead4da1db9 Initial import.
darius
parents:
diff changeset
2
5cead4da1db9 Initial import.
darius
parents:
diff changeset
3 # Find where we where run from
5cead4da1db9 Initial import.
darius
parents:
diff changeset
4 root=`dirname $0`
5cead4da1db9 Initial import.
darius
parents:
diff changeset
5
5cead4da1db9 Initial import.
darius
parents:
diff changeset
6 "$root/get_cdinfo.tcl" cdinfo.txt `"$root/cddb-id" -f /dev/acd0c -m`
5cead4da1db9 Initial import.
darius
parents:
diff changeset
7