/usr/bin/vg is in cgvg 1.6.2-2.1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 | #!/usr/bin/perl
#
# vg - Vi Grepped - edit a file at a line specified in a cg search.
# Copyright 2000-2002 by Joshua Uziel <uzi@uzix.org> - version 1.6.2
#
# Usage: vg number
#
# Helper script to go with cg for opening a editor conveniently
# with the correct file and line as shown in cg's log. Run this
# with a single numerical argument (ie. "vg 3") to edit the desired
# log entry.
#
# This script seems to work fine with a number of editors, including
# vi, vim, emacs, pico, joe, etc. (Despite it's name.)
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
# Include our general functions and variables.
use File::Basename;
BEGIN { $prefix = "/usr" }
use lib dirname($0), "${prefix}/share/cgvg";
require 'cgvg-common.pl';
&parse_rcfile;
# We can't edit if the editor doesn't exist.
`which $EDITOR`;
$no_editor = $?;
die "Error: Editor $EDITOR isn't in your path.\n" if ($no_editor != 0);
# One argument can be numerical only.
if ($#ARGV == 0) {
$num = $ARGV[0];
die "Error: Non-numerical argument.\n"
unless (($num =~ /\d+/) && ($num !~ /\D+/));
# Two arguments must be '-l' and then a number.
} elsif ($#ARGV == 1) {
die "Error: Unknown option.\n" unless ($ARGV[0] == '-l');
$num = $ARGV[1];
die "Error: Non-numerical argument.\n"
unless (($num =~ /\d+/) && ($num !~ /\D+/));
$LOGFILE = $LASTLOG;
# Can't have three or more, or zero arguments.
} else {
die "Bad argument(s). Usage: ", basename($0), " [-l] number\n";
}
# Default to LASTLOG if LOGFILE doesn't exist, else error.
$LOGFILE = $LASTLOG unless (-f $LOGFILE);
die "Error: No existing logfile.\n" unless (-f $LOGFILE);
&edit($num);
# If we're here, there was a problem.
die "Error: Numerical argument invalid.\n";
### END
#--------------------------------------------------------------------------#
## Subroutines ##
#--------------------------------------------------------------------------#
sub edit {
my $num = shift(@_);
open (IN, "<$LOGFILE");
# Check if our current path is the path when the log was taken. If so,
# then nullify $path, else set it to $path/ so we can use anywhere.
$PWD="$ENV{PWD}\n";
$path=(split(/=/, <IN>))[1];
if ($PWD eq $path) {
$path="";
} else {
chomp($path);
$path="$path/";
}
# Find the line we want and open up vi to that line.
foreach $line (<IN>) {
($this, $file, $line) = (split(/:/, $line))[0,1,2];
# Change this to execute the editor.
if ($num == $this) {
close (IN);
exec "$EDITOR +$line $path$file"
}
}
}
|