5 touch "$HOME/.counters/l.$DISPLAY"
6 newcount=`with-lock-ex -w "$HOME/.counters/l.$DISPLAY" perl -e '
7 chdir($ARGV[2]) or die $!;
8 $tb= unpack("H*",$ARGV[1]); $found=0;
9 open(X,"v.$ARGV[0]\0") or die $!;
10 open(Z,">n.$ARGV[0]\0") or die $!;
12 if (m/^(\d+) $tb$/o && !$found++) {
15 print Z "$_" or die $!;
18 if (!defined($nx)) { $nx= 1; }
19 print Z "$nx $tb\n" or die $!;
21 rename("n.$ARGV[0]","v.$ARGV[0]") or die $!;
23 ' "$DISPLAY" "$titlebase" "$HOME/.counters"`
24 exec xterm -T "$titlebase"' ['$newcount']' "$@"