[DRBD-cvs] testing by lars; updating README, adding two new convenie...
drbd-user@lists.linbit.com
drbd-user@lists.linbit.com
Tue, 11 May 2004 11:59:12 +0200 (CEST)
DRBD CVS committal
Author : lars
Project : drbd
Module : testing
Dir : drbd/testing
Modified Files:
Tag: rel-0_7-branch
README compare.pl
Added Files:
Tag: rel-0_7-branch
uml-screen-debug uml_profile-USER@HOST
Log Message:
updating README,
adding two new convenience scripts for uml debugging
===================================================================
RCS file: /var/lib/cvs/drbd/drbd/testing/README,v
retrieving revision 1.1
retrieving revision 1.1.2.1
diff -u -3 -r1.1 -r1.1.2.1
--- README 11 Feb 2002 12:30:06 -0000 1.1
+++ README 11 May 2004 09:59:07 -0000 1.1.2.1
@@ -1,3 +1,31 @@
+
+= informational =
compare.pl Use this perl script to compare two block devices of two machines.
-read_pc.pl This scripts shows the values of the generation counters.
+read_gc.pl This scripts shows the values of the generation counters.
show_size Displays the size of a block device.
+
+= convenience =
+uml-screen-debug
+ starts an uml inside a screen session, and attaches gdb.
+ All VCs, the console and the gdb are screen windows,
+ so you can attach to them wherever you like, and you don't have your
+ desktop cluttered with 9 xterms...
+
+ Intended usage:
+ xterm -fg white -bg black -geom 132x80 -e ./uml-screen-debug uml-1
+ xterm -fg yellow -bg darkblue -geom 132x80 -e ./uml-screen-debug uml-2
+
+uml_profile-USER@HOSTNAME
+ configuration file for uml-screen-debug, so it knows what ubdX and
+ network ips to configure.
+
+= gdb helpers for uml =
+uml-2.4.gdbinit
+uml-2.6.gdbinit
+ look into them to see what they are good for.
+
+= testing =
+test_al.pl
+write_gc.pl
+access_and_verify
+
===================================================================
RCS file: /var/lib/cvs/drbd/drbd/testing/compare.pl,v
retrieving revision 1.6
retrieving revision 1.6.2.1
diff -u -3 -r1.6 -r1.6.2.1
--- compare.pl 8 Feb 2002 12:02:37 -0000 1.6
+++ compare.pl 11 May 2004 09:59:07 -0000 1.6.2.1
@@ -1,5 +1,17 @@
#!/usr/bin/perl -w
+#
+# to simplify, I suggest:
+## perl -e '
+## use Digest::MD5 "md5_hex";
+## while (sysread(STDIN,$buf,4096)==4096) {
+## printf "%6d\t%s\n",$nr++,md5_hex($buf)
+## };' < /dev/whatever
+## and do one or both of them explicitly via ssh remotely,
+## then run a diff -u on the output.
+## but anyways... -- lge
+##
+
use strict;
use Digest::MD5;
use FileHandle;