#
# $Id: HotSaNICshellio.pm,v 1.10 2004/02/07 23:03:11 bernisys Exp $
#

package HotSaNICshellio;

($VERSION = '$Revision: 1.10 $') =~ s/.*(\d+\.\d+).*/$1/;

use POSIX qw(:termios_h);

my ($term, $oterm, $echo, $noecho, $fd_stdin);

$fd_stdin = fileno(STDIN);

$term     = POSIX::Termios->new();
$term->getattr($fd_stdin);
$oterm     = $term->getlflag();

$echo     = ECHO | ECHOK | ICANON;
$noecho   = $oterm & ~$echo;

open FILE,"clear|";
$CLS=<FILE>;
close FILE;


######################################################################
#
# waits for a key to be pressed and checks it against a keylist
# if just "enter" is pressed, the default value will be filled in
#
# syntax:
#
#   readkey_list($keylist,$default_answer);
#
#      $keylist           List of valid characters
#      $default_answer    the default character
#
#   returns the first valid key pressed
#
sub readkey_list {
  my $list=lc shift;
  my $default=lc shift;
  my $input="";
  print " > ";
  while ($input eq "") {
    $input=lc readkey();
    chomp $input;
    print "$input\n";
    if ($input eq "") { $input=$default; }
    elsif (index($list,$input) < 0 ) { print "please answer [$list] > "; $input=""; }
    }
  return $input;
  }


######################################################################
#
# ask yes/no question and wait for user input.
#
# syntax:
#
#   askyesno($question,$default_answer);
#
#      $question         raw question to be asked without final "?"
#      $default_answer   either "y" or "n"  (default: "y")
#
#   returns either "y" or "n".
#
sub askyesno {
  my $string=shift;
  my $default=lc shift;
  my $input="";
  if ($default eq "n") { print "$string? (y/N)"; }
  else { print "$string? (Y/n)"; $default="y"; }
  return readkey_list("yn",$default);
  }



######################################################################
#
# let the user choose one item from a list.
#
# syntax:
#
#   $result=choose($currentvalue,$errormessage,@items)
#
#     $currentvalue   the currently selected item
#
#     $errormessage   error that will be printed when @items is empty
#
#     @items          arry that contains all items to choose from
#
#
#  If $currentvalue is an element of @items, $currentvalue will be
#  returned by default, without user-interaction.
#
#  To force interaction set $currentvalue to something NOT in @list
#
sub choose {
  my ($value,$errormsg,@ITEMS)=@_;
    
  $ok=0;
  if (@ITEMS) {
    foreach $nn (@ITEMS) {
      chomp $nn;
      if ( $nn eq $value ) { $ok=1; }
      }

    if ($ok == 0) {
      if ($#ITEMS == 0) {
        print "detected: ",$ITEMS[0],"\n";
        $input=HotSaNICshellio::askyesno("is this corrrect","y");
        if ($input eq "y") { $ok=1; $value=$ITEMS[0]; }
        }
      else {
        print "select one of these items:\n";
        $pos=0;
        foreach $nn (@ITEMS) {
          chomp $nn;
          printf "%5i  $nn\n",$pos++;
          }
        $input=-1;
        print "by just pressing ŽENTERŽ, item \"0\" will be selected.\n";
        print "select item 0 ... ",($pos-1),"? > ";
        while ( $input < 0) {
          if ($pos<10) { $input=lc readkey(); print "$input\n"; }
	  else { $input=<STDIN>; }
          chomp $input;
	  if ($input eq "") { $input=0; }
          elsif ($input!~ /^[0-9]+$/) {
            print "please enter a positive number! > " if $pos>9;
	    $input=-1;
            }
          elsif ($input >= $pos) {
            print "input has to be between 0 and ",($pos-1),"! > " if $pos >9;
	    $input=-1;
            }
          }
        $value=$ITEMS[$input];
        }
      }
    }
  else { print "\nERROR: $errormsg\n\n"; }
  return $value;
  }
    
sub cls {
  system "tput clear";
  }

sub goto {
  my $x=shift || 0;
  my $y=shift || 0;
  system "tput cup $x $y";
  }


######################################################################
#
# prints a table at the given position. If the terminal supports
# ANSI colors, it will be printed on blue background.
#
# usage:
#   table($x,$y,$head,@lines);
#
sub table {
  my $x=shift || 0;
  my $y=shift || 0;
  my $head=shift || "";
  my @lines=@_;

# require Curses;
# $win=new Curses;

  my $maxlen=length($head);
  for (@lines) {
    my $len=length($_);
    if ($maxlen < $len) { $maxlen=$len; }
    }

  HotSaNICshellio::goto($x++,$y);
  setattr("BG_BLUE","FG_WHITE","UNDERLINE");
  printf "%-".$maxlen."s",$head;
  setattr("NORMAL","BG_BLUE");
  for (@lines) {
#   $win -> addstr($x++,$y,$_);
  HotSaNICshellio::goto($x++,$y);
    printf "%-".$maxlen."s",$_;
    }
  setattr("NORMAL");
  print "\n";

# $win -> refresh();

  }

sub setattr {
  my $line="";
  my %ATTR=(
    "BG_BLACK"=>"setab 0","FG_BLACK"=>"setaf 0",
    "BG_RED"=>"setab 1","FG_RED"=>"setaf 1",
    "BG_GREEN"=>"setab 2","FG_GREEN"=>"setaf 2",
    "BG_YELLOW"=>"setab 3","FG_YELLOW"=>"setaf 3",
    "BG_BLUE"=>"setab 4","FG_BLUE"=>"setaf 4",
    "BG_MAGENTA"=>"setab 5","FG_MAGENTA"=>"setaf 5",
    "BG_CYAN"=>"setab 6","FG_CYAN"=>"setaf 6",
    "BG_WHITE"=>"setab 7","FG_WHITE"=>"setaf 7",
    "BOLD"=>"bold","DIM"=>"dim",
    "UNDERLINE"=>"smul","NO_UNDERLINE"=>"rmul",
    "NORMAL"=>"sgr0"
    );
  for (@_) {
    if ( defined $ATTR{$_} ) { $line=$line."\n".$ATTR{$_}; }
    }
  if ($line eq "") { $line="setab 0\nsetaf 7\ndim\n"; }
  system "tput -S<<EOF$line\nEOF";
  }

# Colour Capabilities
#   tput setab [1-7]         Set a background colour using ANSI escape
#   tput setb [1-7]          Set a background colour
#   tput setaf [1-7]         Set a foreground colour using ANSI escape
#   tput setf [1-7]          Set a foreground colour
#
# Text Mode Capabilities
#   tput bold    Set bold mode
#   tput dim     turn on half-bright mode
#   tput smul    begin underline mode
#   tput rmul    exit underline mode
#   tput rev     Turn on reverse mode
#   tput smso    Enter standout mode (bold on rxvt)
#   tput rmso    Exit standout mode
#   tput sgr0    Turn off all attributes (doesn't work quite as expected)
#
# Cursor Movement Capabilities
#   tput cup Y X   Move cursor to screen location X,Y (top left is 0,0)
#   tput sc        Save the cursor position
#   tput rc        Restore the cursor position
#   tput lines     Output the number of lines of the terminal
#   tput cols      Output the number of columns of the terminal
#   tput cub N     Move N characters left
#   tput cuf N     Move N characters right
#   tput cub1      move left one space
#   tput cuf1      non-destructive space (move right one space)
#   tput ll        last line, first column (if no cup)
#   tput cuu1      up one line
#
# Clear and Insert Capabilities
#   tput ech N   Erase N characters
#   tput clear   clear screen and home cursor
#   tput el1     Clear to beginning of line
#   tput el      clear to end of line
#   tput ed      clear to end of screen
#   tput ich N   insert N characters (moves rest of line forward!)
#   tput il N    insert N lines
#
#  see:
#
#    http://www.gnu.org/manual/termutils-2.0/html_chapter/tput_toc.html#TOC8
#    http://www.linuxgazette.com/issue65/padala.html

######################################################################
#
# disables all output and expects one keystroke.
# (found in perlfaq5 man-page)
#
# usage:  $key=readkey();
#
# Compatibility: Linux and Solaris seem to work fine.
#
sub readkey {
  my $key = '';
  cbreak();
  sysread(STDIN, $key, 1);
  cooked();
  return $key;
  }

######################################################################
#
# local echo off
#
sub cbreak {
  $term->setlflag($noecho);
  $term->setcc(VTIME, 1);
  $term->setattr($fd_stdin, TCSANOW);
  }

######################################################################
#
# local echo on
#
sub cooked {
  $term->setlflag($oterm);
  $term->setcc(VTIME, 0);
  $term->setattr($fd_stdin, TCSANOW);
  }

######################################################################
#
# clear screen
#
sub clear {
  print $CLS;
  }

1;
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
   <head>
      <meta http-equiv="content-type" content="text/html;charset=UTF-8">
      <meta http-equiv="generator" content="WebSVN 2.2.1" /> <!-- leave this for stats -->
      <link rel="shortcut icon" type="image/x-icon" href="./templates/BlueGrey/favicon.ico" />
      <link type="text/css" href="./templates/BlueGrey/styles.css" rel="stylesheet" media="screen">
      <!--[if lt IE 7]>
      <script type="text/javascript" src="./templates/BlueGrey/png.js"></script>
      <![endif]-->
      <script type="text/javascript" src="./templates/BlueGrey/collapse.js"></script>
      <title>
         WebSVN
            - hotsanic
            - Blame
               - Rev 9
            - /branches/HotSaNIC-0.5.0-jablonecka/lib/HotSaNICshellio.pm
      </title>

      <script type="text/javascript">
         function checkCB(chBox)
         {
            count = 0
            first = null
            f = chBox.form
            for (i = 0 ; i < f.elements.length ; i++)
            if (f.elements[i].type == 'checkbox' && f.elements[i].checked)
            {
               if (first == null && f.elements[i] != chBox)
                  first = f.elements[i]
               count += 1
            }
            
            if (count > 2) 
            {
               first.checked = false
               count -= 1
            }
         }
         
      </script>


</head>
<body>
	<table width="100%" border="0">
	  <tr>
		<td width="13%">&nbsp;</td>
		<td width="73%" align="center"><a href="http://www.jablonka.cz/"><img style="border: 0; width: 201px; height: 51px;" src="./templates/BlueGrey/logo.png" alt="jablonka.cz" /></a><a href="http://www.prosek.czf/"><img style="border: 0; width: 528px; height: 51px;" src="./templates/BlueGrey/squares.png" alt="prosek.czf" /></a></td>
		<td width="13%"><div style="float: right"><form action="?path=%2Fbranches%2FHotSaNIC-0.5.0-jablonecka%2Flib%2FHotSaNICshellio.pm&amp;repname=hotsanic&amp;rev=9" method="post" id="langform"><select name="langchoice" onchange="javascript:this.form.submit();"><option value="ca">Catal&agrave;-Valenci&agrave; - Catalan</option><option value="cs">&#268;esky - Cesky</option><option value="da">Dansk - Dansk</option><option value="nl">Dutch - Dutch</option><option value="en" selected="selected">English - English</option><option value="fi">Finnish - Finnish</option><option value="fr">Fran&ccedil;ais - Francais</option><option value="de">Deutsch - German</option><option value="he-IL">&#1506;&#1489;&#1512;&#1497;&#1514; - Hebrew</option><option value="hu">Magyar - Hungarian</option><option value="id">Bahasa Indonesia - Indonesian</option><option value="it">Italiano - Italian</option><option value="ja">&#26085;&#26412;&#35486; - Japanese</option><option value="ko">&#54620;&#44397;&#50612; - Korean</option><option value="no">Norsk - Norwegian</option><option value="pl">Polski - Polish</option><option value="pt">Portugu&ecirc;s - Portuguese</option><option value="pt-BR">Portugu&ecirc;s - Brazilian Portuguese</option><option value="ru">&#1056;&#1091;&#1089;&#1089;&#1082;&#1080;&#1081; - Russian</option><option value="zh-CN">&#20013;&#25991; - Simplified Chinese</option><option value="sk">Sloven&#269;ina - Slovak</option><option value="sl">Sloven&#269;ina - Slovenian</option><option value="es">Espa&ntilde;ol - Spanish</option><option value="sv">Svenska - Swedish</option><option value="zh-TW">&#20013;&#25991; - Traditional Chinese</option><option value="tr">T&uuml;rk&ccedil;e - Turkish</option><option value="uz">O&euml;zbekcha - Uzbek</option></select><input type="submit" value="Go" /></form></div></td>
	  </tr>
	</table>
	<hr />
<table cellspacing="0" cellpadding="0" border="0" width="100%">
  <tr>
    <td align="left"><h1>hotsanic</h1></td>
    <td align="right"><b>Subversion Repositories:</b> <form action="form.php?" method="post" id="projectform"><select name="repname" onchange="javascript:this.form.submit();"><option value="banderdyn">banderdyn</option><option value="centos.prosek.czf">centos.prosek.czf</option><option value="crusader">crusader</option><option value="czf4bfu">czf4bfu</option><option value="czf4bfu.prosek.czf">czf4bfu.prosek.czf</option><option value="czfcentos">czfcentos</option><option value="czfgmap">czfgmap</option><option value="discover">discover</option><option value="fedora.prosek.czf">fedora.prosek.czf</option><option value="freenet-router">freenet-router</option><option value="ftth">ftth</option><option value="getonlineclouds">getonlineclouds</option><option value="hotsanic" selected="selected">hotsanic</option><option value="internet.prosek.czf">internet.prosek.czf</option><option value="is">is</option><option value="mapstats">mapstats</option><option value="meteolinger">meteolinger</option><option value="netmap">netmap</option><option value="qos">qos</option><option value="sedlo">sedlo</option><option value="sedlo.prosek.czf">sedlo.prosek.czf</option><option value="switches">switches</option><option value="vbtobb">vbtobb</option><option value="vlubnt">vlubnt</option><option value="weathermap">weathermap</option><option value="weatherstats">weatherstats</option><option value="websvn">websvn</option><option value="wifidashboard">wifidashboard</option><option value="wifimon">wifimon</option><option value="www.prosek.czf">www.prosek.czf</option><option value="xenstats">xenstats</option></select><input type="submit" value="Go" /><input type="hidden" name="selectproj" value="1" /><input type="hidden" name="op" value="form" /></form></td>
  </tr>
</table>

[<a href="listing.php?repname=hotsanic&amp;path=%2F&amp;rev=9">/</a>] [<a href="listing.php?repname=hotsanic&amp;path=%2Fbranches%2F&amp;rev=9">branches/</a>] [<a href="listing.php?repname=hotsanic&amp;path=%2Fbranches%2FHotSaNIC-0.5.0-jablonecka%2F&amp;rev=9">HotSaNIC-0.5.0-jablonecka/</a>] [<a href="listing.php?repname=hotsanic&amp;path=%2Fbranches%2FHotSaNIC-0.5.0-jablonecka%2Flib%2F&amp;rev=9">lib/</a>] [<b>HotSaNICshellio.pm</b>] - Blame information for rev <b>9</b>
<p>&nbsp;</p>

<table cellpadding="2" cellspacing="0" width="100%" class="blameTbl">
	<thead>
		<tr>
			<th class="HdrClmn"><b>Line No.</b></th>
			<th class="HdrClmn"><b>Rev</b></th>
			<th class="HdrClmn"><b>Author</b></th>
			<th class="HdrClmnEnd"><b>Line</b></th>
		</tr>
	</thead>
	<tbody>
	</tbody>
</table> 


<script type='text/javascript'>
/* <![CDATA[ */
var rev = new Array();
var a = document.getElementsByTagName('a');
for (var i = 0; i < a.length; i++) {
  if (a[i].className == 'blame-revision') {
    var id = a[i].id;
    addEvent(a[i], 'mouseover', function() { mouseover(this) } );
    addEvent(a[i], 'mouseout', function() { mouseout(this) } );
  }
}

function mouseover(a) {
  // Find the revision by using the link
  var m = /rev=(\d+)/.exec(a.href);
  var r = m[1];

  div = document.createElement('div');
  div.className = 'blame-popup';
  div.innerHTML = rev[r];
  a.parentNode.appendChild(div);
}

function mouseout(a) {
  var div = a.parentNode.parentNode.getElementsByTagName('div');
  for (var i = 0; i < div.length; i++) {
    if (div[i].className = 'blame-popup') {
      div[i].parentNode.removeChild(div[i]);
    }
  }
}

function addEvent(obj, type, func) {
  if (obj.addEventListener) {
    obj.addEventListener(type, func, false);
    return true;
  } else if (obj.attachEvent) {
    return obj.attachEvent('on' + type, func);
  } else {
    return false;
  }
}
/* ]]> */
</script>

      <p><center><font size="-1"><i><b>Powered by <a href="http://www.websvn.info/">WebSVN</a> 2.2.1</b></i></font></center>
   </body>
</html>