kenmirrors
/
freeswitch
mirror of https://github.com/signalwire/freeswitch.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

FS-7988 add info in the buffer with comments to exclude lines

This commit is contained in:
Anthony Minessale 2015-08-20 19:14:24 -05:00
parent 64111dbff6
commit 51856904a2
1 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
support-d/utils/filebug.pl
View File

@ -8,7 +8,7 @@ use Data::Dumper;
my $editor = $ENV{"EDITOR"} || $ENV{"VISUAL"} || `which emacs` || `which vi`;
my $default_versions = "1.7 1.6";
my $default_components = "freeswitch-core";
my $desc_head = "; Enter the description lines beginning with a ; will be ignored.\n";
sub getpass {
@ -35,19 +35,25 @@ sub getfield {
sub get_text {
my $text = shift;
my $notes = shift;
my @chars = ("A".."Z", "a".."z");
my $string;
$string .= $chars[rand @chars] for 1..8;
if ($text) {
if ($text || $notes) {
open O, ">/tmp/TEXT.$string";
print O $text;
if ($notes) {
print O $notes;
}
if ($text) {
print O $text;
}
close O;
}
system("$editor /tmp/TEXT.$string");
my $newtext = `cat /tmp/TEXT.$string`;
my $newtext = `cat /tmp/TEXT.$string | grep -v "^\\;"`;
unlink("/tmp/TEXT.$string");
return $newtext;
}
@ -167,9 +173,9 @@ if ($opts{askall}) {
$opts{hash} = getfield("GIT Hash: ", $opts{hash});
if ($opts{noedit}) {
$opts{desc} = getfield("Description: ", $opts{desc});
$opts{desc} = getfield("Description: ", $opts{desc}, $desc_head);
} else {
$opts{desc} = get_text($opts{desc});
$opts{desc} = get_text($opts{desc}, $desc_head);
}
}
@ -177,7 +183,7 @@ if (!$opts{desc}) {
if ($opts{noedit}) {
$opts{desc} = getfield("Description: ", $opts{desc});
} else {
$opts{desc} = get_text($opts{desc});
$opts{desc} = get_text($opts{desc}, $desc_head);
}
if (!$opts{desc}) {