a_help.pl

AndyChat 是一种用Perl 来编写的多协议的控制台聊天程序。它的目的在于提供一种共同的控制台界面

##!/usr/bin/perl
#
# Schpati - Pre-Alpha of AndyChat v3.xx
# MODULE: Help
#
# Started on Thursday, 23rd of March, 2000 around 9pm
#
# 23rd of March, 2000
# -  (8.59pm) Initial Porting :)
# -  (9.11pm) Porting complete? :)
#

sub TraceHelpOn {
  my ($ah_topic) = @_;

  $ah_topic = uc($ah_topic);
  $ah_str = "";

  if (! $helpsize)
  {
    if (! -r $config{andypath} . "andychat.hlp")
    {
      AddLine($thiswin, Lang(16) . Lang(103) . "andychat.hlp");
      return;
    }
    else
    {
      open(hfile, $config{andypath} . "andychat.hlp");
      @helpfile = <hfile>;
      $helpsize = @helpfile;
      for ($ah_i = 0; $ah_i < $helpsize; $ah_i++)
      {
        while (substr($helpfile[$ah_i], -1, 1) eq chr(13) || substr($helpfile[$ah_i], -1, 1) eq chr(10))
        {
          $helpfile[$ah_i] = substr($helpfile[$ah_i], 0, -1);
        }
      }
    }
  }

  for ($ah_i = 0; $ah_i < $helpsize; $ah_i++)
  {
    if (uc($helpfile[$ah_i]) eq "[" . $ah_topic . "]")
    {
      AddLine($thiswin, "`%- Help on `9" . $ah_topic);
      $ah_i++;
      while ($ah_i < $helpsize && substr($helpfile[$ah_i], 0, 1) ne "[")
      {
        AddLine($thiswin, "`%- `7" . $helpfile[$ah_i]);
        $ah_i++;
      }
    }
  }
}