Setting tag sliver-openvswitch-2.2.90-1

[sliver-openvswitch.git] / ovsdb / dot2pic

diff --git a/ovsdb/dot2pic b/ovsdb/dot2pic
index 7b0ec36..d682be5 100755 (executable)
--- a/ovsdb/dot2pic
+++ b/ovsdb/dot2pic
@@ -1,6 +1,6 @@
 #! /usr/bin/perl
 
-# Copyright (c) 2009, 2010, 2011 Nicira, Inc.
+# Copyright (c) 2009, 2010, 2011, 2013 Nicira, Inc.
 #
 # Licensed under the Apache License, Version 2.0 (the "License");
 # you may not use this file except in compliance with the License.
@@ -17,7 +17,13 @@
 use strict;
 use warnings;
 
+use Getopt::Long;
+
+my $font_scale = 0;
+GetOptions("f=i" => \$font_scale) || exit 1;
+
 my ($scale) = 1;
+printf ".ps %+d\n", -$font_scale if $font_scale;
 print ".PS\n";
 print "linethick = 1;\n";
 while (<>) {
@@ -70,4 +76,5 @@ while (<>) {
     }
 
 }
+printf ".ps %+d\n", $font_scale if $font_scale;
 print ".PE\n";