2 cron problems

From: Franck Y (franck110_at_gmail.com)
Date: 11/27/05

  • Next message: Mattia Forza: "Re: still having problem..." 
    Date: Sun, 27 Nov 2005 06:03:20 -0500
To: For users of Fedora Core releases <fedora-list@redhat.com>

    Fellows Users,
    I have two cron problem !
     I receive this on my mail , one coming from Cron
    <root@xxxxxxx> run-parts /etc/cron.weekly the other one from Cron
    <root@xxxxxxx> run-parts /etc/cron.daily

    The message from <root@xxxxxxx> run-parts /etc/cron.daily is
    /etc/cron.daily/00webalizer:

    Warning: Truncating oversized hostname
    Skipping bad record (1)
    Warning: Truncating oversized hostname
    Skipping bad record (2)

    The message from <root@xxxxxxx> run-parts /etc/cron.weekly is

    /etc/cron.weekly/makewhatis.cron:

    gawk: cmd. line:173: (FILENAME=- FNR=1) fatal error: internal error
    /usr/sbin/makewhatis: line 145: 14635 Done echo ${x}
         14636 Aborted | $AWK '

        function readline() {
          if (use_zcat || use_bzcat) {
            result = (pipe_cmd | getline);
            if (result < 0) {
              print "Pipe error: " pipe_cmd " " ERRNO > "/dev/stderr";
            }
          } else {
            result = (getline < filename);
            if (result < 0) {
              print "Read file error: " filename " " ERRNO > "/dev/stderr";
            }
          }
          return result;
        }

        function closeline() {
          if (use_zcat || use_bzcat) {
            return close(pipe_cmd);
          } else {
            return close(filename);
          }
        }

        function do_one() {
          insh = 0; thisjoin = 1; done = 0;
          entire_line = "";

          if (verbose) {
            print "adding " filename > "/dev/stderr"
          }

          use_zcat = match(filename,"\\.Z$") ||
                     match(filename,"\\.z$") || match(filename,"\\.gz$");
          if (!use_zcat)
            use_bzcat = match(filename,"\\.bz2");
          if (use_zcat || use_bzcat) {
            filename_no_gz = substr(filename, 0, RSTART - 1);
          } else {
            filename_no_gz = filename;
          }
          match(filename_no_gz, "/[^/]+$");
          progname = substr(filename, RSTART + 1, RLENGTH - 1);
          if (match(progname, "\\." section "[A-Za-z]+")) {
            actual_section = substr(progname, RSTART + 1, RLENGTH - 1);
          } else {
            actual_section = section;
          }
          sub(/\..*/, "", progname);
          if (use_zcat || use_bzcat) {
            if (use_zcat) {
              pipe_cmd = "zcat \"" filename "\"";
            } else {
              pipe_cmd = "bzcat \"" filename "\"";
            }
            # try to avoid suspicious stuff
            if (filename ~ /[;&|`$(]/) {
              print "ignored strange file name " filename " in " curdir >
    "/dev/stderr";
              return;
            }
          }

          while (!done && readline() > 0) {
            gsub(/.\b/, "");
            if (($1 ~ /^\.[Ss][Hh]/ &&
               ($2 ~ /[Nn][Aa][Mm][Ee]/ || # en/de
                $2 ~ /^JMÉNO/ || # cs
                $2 ~ /^NAVN/ || # da
                $2 ~ /^NUME/ || # ro
                $2 ~ /^BEZEICHNUNG/ || # de
                $2 ~ /^NOMBRE/ || # es
                $2 ~ /^NIMI/ || # fi
                $2 ~ /^NOM/ || # fr
                $2 ~ /^IME/ || # sh
                $2 ~ /^N[ÉE]V/ || # hu
                $2 ~ /^NAMA/ || # XXX: what lang is this?
                $2 ~ /^名前/ || # ja
                $2 ~ /^이름/ || # ko
                $2 ~ /^NAZWA/ || # pl
                $2 ~ /^НАЗÐ'АНИЕ/ || # ru
                $2 ~ /^名称/ || # zh_CN/ja
                $2 ~ /^名稱/ || # zh_TW
                $2 ~ /^NOME/ || # it/pt
                $2 ~ /^NAAM/)) || # nl
              (pages == "cat" && $1 ~ /^NAME/)) {
                if (!insh) {
                  insh = 1;
                } else {
                  done = 1;
                }
            } else if (insh) {
              if ($1 ~ /^\.[Ss][HhYS]/ ||
                (pages == "cat" &&
                ($1 ~ /^S[yYeE]/ || $1 ~ /^DESCRIPTION/ ||
                 $1 ~ /^COMMAND/ || $1 ~ /^OVERVIEW/ ||
                 $1 ~ /^STRUCTURES/ || $1 ~ /^INTRODUCTION/ ||
                 $0 ~ /^[^ ]/))) {
                  # end insh for Synopsis, Syntax, but also for
                  # DESCRIPTION (e.g., XFree86.1x),
                  # COMMAND (e.g., xspread.1)
                  # OVERVIEW (e.g., TclCommandWriting.3)
                  # STRUCTURES (e.g., XEvent.3x)
                  # INTRODUCTION (e.g., TclX.n)
                  # and anything at all that begins in Column 1, so
                  # is probably a section header.
                done = 1;
              } else {
                if ($0 ~ progname"-") { # Fix old cat pages
                    sub(progname"-", progname" - ");
                }
                if ($0 ~ /[^ \\]-$/) {
                  sub(/-$/, ""); # Handle Hyphenations
                  nextjoin = 1;
                } else if ($0 ~ /\\c$/) {
                  sub(/\\c$/, ""); # Handle Continuations
                  nextjoin = 1;
                } else
                  nextjoin = 0;

                sub(/^.[IB] /, ""); # Kill bold and italics
                sub(/^.BI /, ""); #
                sub(/^.SM /, ""); # Kill small
                sub(/^.Nm /, ""); # Kill bold
                sub(/^.Tn /, ""); # Kill normal
                sub(/^.Li /, ""); # Kill .Li
                sub(/^.Dq /, ""); # Kill .Dq
                sub(/^.Nd */, "- "); # Convert .Nd to dash
                sub(/\\\".*/, ""); # Trim pending comments
                sub(/ *$/, ""); # Trim pending spaces
                sub(/^\.$/, ""); # Kill blank comments
                sub(/^'"'"'.*/, ""); # Kill comment/troff lines
                sub(/^.in .*/, ""); # Kill various macros
                sub(/^.ti .*/, "");
                sub(/^.ta .*/, "");
                sub(/^.Vb .*/, "");
                sub(/^.[PLTH]P$/, ""); # .PP/.LP/.TP/.HP
                sub(/^.Pp$/, "");
                sub(/^.[iI]X .*$/, "");
                sub(/^.nolinks$/, "");
                sub(/^.B$/, "");
                sub(/^.nf$/, "");

                if (($1 ~ /^\.../ || $1 == "") &&
                    (entire_line ~ / - / || entire_line ~ / \\- /)) {
                  # Assume that this ends the description of one line
                  # Sometimes there are several descriptions in one page,
                  # as in outb(2).
                  handle_entire_line();
                  entire_line = "";
                  thisjoin = 1;
                } else {
                  if (thisjoin) {
                    entire_line = entire_line $0;
                  } else {
                    entire_line = entire_line " " $0;
                  }
                  thisjoin = nextjoin;
                }
              }
            }
          }
          handle_entire_line();
          closeline();
        }

        function handle_entire_line() {
          x = entire_line; # Keep it short

          gsub(/\015/, "", x); # Kill DOS remains
          gsub(/ /, " ", x); # Translate tabs to spaces
          gsub(/ +/, " ", x); # Collapse spaces
          gsub(/ *, */, ", ", x); # Fix comma spacings
          sub(/^ /, "", x); # Kill initial spaces
          sub(/ $/, "", x); # Kill trailing spaces
          sub(/__+/, "_", x); # Collapse underscores

          gsub(/\\f\(../, "", x); # Kill font changes
          gsub(/\\f[PRIB0123]/, "", x); # Kill font changes
          gsub(/\\s[-+0-9]*/, "", x); # Kill size changes
          gsub(/\\&/, "", x); # Kill \&
          gsub(/\\\|/, "", x); # Kill \|
          gsub(/\\\((ru|ul)/, "_", x); # Translate
          gsub(/\\\((mi|hy|em)/, "-", x); # Translate
          gsub(/\\\*\(../, "", x); # Kill troff strings
          gsub(/\\/, "", x); # Kill all backslashes
          gsub(/"/, "", x); # Kill quotes (from .Nd "foo bar")
          sub(/<h1 align=center>/, "", x);# Yuk! HTML cruft
          gsub(/\000.*/, "X", x); # Binary cruft in LAPACK pages
          gsub(/ +/, " ", x); # Collapse spaces (again)
          sub(/^ /, "", x); # Kill initial spaces (again)
          sub(/ $/, "", x); # Kill trailing spaces (again)
          sub(/\.$/, "", x); # Kill trailing period

          if (!match(x, / - /))
            return;

          after_dash = substr(x, RSTART);
          head = substr(x, 1, RSTART-1) ", ";
          while (match(head, /, /)) {
            prog = substr(head, 1, RSTART-1);
            head = substr(head, RSTART+2);
            if (prog != progname)
              prog = prog " [" progname "]";
            printf "%-*s (%s) %s\n", 20, prog, actual_section, after_dash;
          }
        }

        { # Main action - process each filename read in.
          filename = $0;
          do_one();
        }

                ' pages=$pages section=$section verbose=$verbose curdir=$curdir

    Do you have any idea how can i clear this ?
    Thanks ! 

    --
Franck
-- 
fedora-list mailing list
fedora-list@redhat.com
To unsubscribe: https://www.redhat.com/mailman/listinfo/fedora-list
  • Next message: Mattia Forza: "Re: still having problem..."
    • Quantcast