maryjane
/
syncevolution
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

adapt automatically to console size if tput is available 

git-svn-id: https://zeitsenke.de/svn/SyncEvolution/trunk@109 15ad00c4-1369-45f4-8270-35d70d36bdcd
This commit is contained in:
Patrick Ohly 2006-05-27 16:33:34 +00:00
parent d0fc457548
commit 2facc65f0f
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/normalize_vcard.pl
View File

@ -120,8 +120,14 @@ sub Normalize {
print $out join( "\n\n", sort @items ), "\n";
}
# number of columns available for output
my $columns = 75;
# number of columns available for output:
# try tput without printing the shells error if not found,
# default to 80
my $columns = `which tput >/dev/null && tput cols`;
print $columns;
if ($? || !$columns) {
$columns = 80;
}
if($#ARGV > 1) {
# error
@ -140,7 +146,7 @@ if($#ARGV > 1) {
open(IN2, "<$file2") || die "$file2: $!";
open(OUT1, ">$normal1") || die "$normal1: $!";
open(OUT2, ">$normal2") || die "$normal2: $!";
my $singlewidth = ($columns - 3) / 2;
my $singlewidth = int(($columns - 3) / 2);
$columns = $singlewidth * 2 + 3;
Normalize(*IN1{IO}, *OUT1{IO}, $singlewidth);
Normalize(*IN2{IO}, *OUT2{IO}, $singlewidth);