add CTY-3304

[spider.git] / html / program.html
diff --git a/html/program.html b/html/program.html

index 1be759f0ab4247e031219b54a95f0f1ade2db365..9b6262ec28dcc9575fa5c4f9c7d4d19f170c215e 100644 (file)
--- a/html/program.html
+++ b/html/program.html
@@ -2,10 +2,12 @@
  <html>
    <head>
      <title>Programming New Commands</title>
-  </head>
+
         <meta name="Keywords" content="DX Cluster, DXSpider, Spider, Packet Cluster, DXCluster, Pavillion Software, AK1A, AX25, AX.25, WWV, Packet Radio, Amateur Radio, Propagation, DX, DXing, G1TLH, GB7TLH, Dirk Koopman, Mailing list, Linux, RedHat, PERL">
         <meta name="Description" content="Software and systems for realtime digital communications between amateur radio stations for the provision of information on propagation conditions and stations operating">
         <meta name="Author" content="Dirk Koopman G1TLH">
+    <link rel=stylesheet href="style.css" type="text/css" title="default stylesheet">
+
    </head>
  
    <body TEXT="#000000" LINK="#0000ff" VLINK="#800080" BGCOLOR="#FFFFFF">
@@ -132,7 +134,7 @@ Last modified: Mon Dec 28 23:13:21 GMT 1998
                 and are subroutines derived from the DXChannel class. They effectively
                 the following declaration :-
                 <p><pre>
-  sub Emb_<cmdname>($self, $args)
+  sub Emb_&lt;cmdname>($self, $args)
    {
       ...
       your code here
@@ -155,7 +157,7 @@ Last modified: Mon Dec 28 23:13:21 GMT 1998
    my @out;
  
    # check privileges
-  return (1, $self->msg('e5')) if $self->priv < 5;
+  return (1, $self->msg('e5')) if $self->priv &lt; 5;
  
    ....
    ....
@@ -226,11 +228,11 @@ my @out;
  my $user;
  my $ref;
    
-return (1, $self->msg('e5')) if $self->priv < 9;
+return (1, $self->msg('e5')) if $self->priv &lt; 9;
    
  foreach $call (@args) {
      $call = uc $call;
-    if ($ref = DXUser->get_current($call)) {
+    if ($ref = DXUser::get_current($call)) {
          $ref->passwd($pass);
             $ref->put();
                 push @out, $self->msg("password", $call);
@@ -301,11 +303,11 @@ return (1, @out)
  
                 <p><li>It is important that you remember when you have tie
                 hashes using MLDBM et al. If you do a
-               <tt>DXUser->get($call)</tt> you will get a different (older)
+               <tt>DXUser::get($call)</tt> you will get a different (older)
                 thing than the one in <tt>$self->user</tt>. This is almost
                 certainly NOT what you want if want to modify a user that is
                 currently connected. Either use <tt>$self->user</tt> or, if
-               you want another user, use <tt>DXUser->get_current($call)</tt>
+               you want another user, use <tt>DXUser::get_current($call)</tt>
  
                 <p><li>If you want to debug something, start the cluster.pl up thus:-
                 <pre>
@@ -331,7 +333,7 @@ return (1, @out)
                 mean that this is a prompt and will not have a \r or \n appended to
                 it in the client for telnet sessions (only).
  
-               <p><li>help is kept in <tt>/spider/cmd/Command_<lang>.hlp</tt> files.
+               <p><li>help is kept in <tt>/spider/cmd/Command_&lt;lang>.hlp</tt> files.
                 The format of the help files should be self explanatory, but they are
                 explained further in the files themselves.