Hallo, dies ist ein Test.

PWD: /www/data-lst1/unixsoft/unixsoft/kaempfer/.public_html

Running in File Mode
Relative path: ./../../../../../server/etc/scripts/gen-index/create_namelist
Real path: /www/server/etc/scripts/gen-index/create_namelist
Zurück

#!/usr/bin/perl
#
#	@(#)create_namelist.pl 1.0 30.05.94 ftpsoft
#
# Usage:
#   create_namelist [filename|-] [filename...]
# If filename is not specified, use index.html for input
# If filename is "-", use stdin
# If filename is specified, use filename for input
# Multiple filenames may be specified, they will be read sequentially

$force = 1;
$wwwdir = "/www/server/data/WWW/Personen"; # Location of dbm
$dateiout = "index.neu";
$Edateiout = "e_index.neu";
$englindex = "e_index.html";
$date = `date +'%d-%m-%y (%T)'`; chop($date);
$preindex = `cat .preindex`;
$postindex = `sed -e 's/DATE/$date/' .postindex`;
$date = `date +'%m-%d-%y (%T)'`; chop($date);
$Epreindex = `cat .e_preindex`;
$Epostindex = `sed -e 's/DATE/$date/' .e_postindex`;

dbmopen(%NAME, ".dbm-name", 0664);
dbmopen(%DIRS, ".dbm-dirs", 0664);

while (($user, $pwpass, $uid, $gid, $quota,
        $comm, $gecos, $dir, $shell) = getpwent) {

next if ( $wsort{$user} ) ;
    $wsort{$user} = $user ;
    #print $user, "<=>", $gecos, "<+>", $dir, "\n";

@words = split( /,/, $gecos);
    $name = $words[0];
    if ($name && ($name ne " ")) {
          @words = split( /[.\s]/, $name);
          $sort = $words[$#words] . $user;
    }
    else {
          $name = "Nutzer ".$user;
          $sort = $user;
    }
    # print $user, "<=>", $gecos, "<+>", $dir, " # ",$name,"\n";
    $gecosn=$NAME{$user};
    if ( $gecosn ne "" ) { 
        @words = split( /,/, $gecosn);
        if ( $words[1] eq "" ) {
             $name = $words[0];
        }
        else {
             $words[1] = substr($words[1],1);
             $name = $words[1]." ".$words[0];
        }
        if ($name && ($name ne " ")) {
             @words = split( /[.\s]/, $name);
        }
        else {
          $name = "Nutzer ".$user;
        }
    }
    # print $user, "<=>", $gecosn, "<+>", $dir, " # ",$name,"\n";

$ewref{$sort} = $wref{$sort};
    # print $user, "<>", $dir," - ", $sort ," - ",$wref{$sort}," # ",$name,"\n";
    next if ( $wflag{$sort} );

if ( -f "$dir/.public_html/index.html"
    	|| -f "$dir/.public_html/index.htm"
    	|| -f "$dir/.public_html/index.shtml"
   	|| -f "$dir/.public_html/index.asis" 
	|| -f "$dir/.public_html/index.php" )
    {
         $wref{$sort} = "/~$user/";
         $ewref{$sort} = "/~$user/";
         # print $user, "<=>", $wref{$sort}, "\n";
     }

# Seiten liegen nicht unter ~user/.public_html/
    if ( $DIRS{$user} )
    {
        $wref{$sort} = "$DIRS{$user}";
        $ewref{$sort} = "$DIRS{$user}";
    }

if ( -f "$dir/.public_html/$englindex" ) {
        $ewref{$sort} = "/~$user/$englindex";
    }
    # Standartbezeichnung f"ur englische Dokumente
    if ( -f "$dir/.public_html/index.html.en" ) {
        $ewref{$sort} = "/~$user/index.html.en";
    }
    if ( -f "$dir/.public_html/index.php.en" ) {
        $ewref{$sort} = "/~$user/index.php.en";
    }
    # Standartbezeichnung f"ur dt. Dokumente
    if ( -f "$dir/.public_html/index.html.de" ) {
        $wref{$sort} = "/~$user/index.html.de";
    }
    if ( -f "$dir/.public_html/index.php.de" ) {
        $wref{$sort} = "/~$user/index.php.de";
    }
    #print $user, "<=>$dir/.public_html/$englindex", ":", $ewref{$sort}, "\n";
    #print $user, "<>", $dir," - ", $sort ," - ",$wref{$sort},"\n";

if (! $wflags{$sort}) {
        $wflags{$sort} = $user;
    }
    if (! $wname{$sort}) {
       $wname{$sort} = $name;
    }
}

dbmclose(%DIRS);
dbmclose(%NAME);

foreach ( keys(%wref) ) {
   $firstchar = substr($_, 0, 1);
   $firstchar =~ tr/a-z/A-Z/;
   $chars{$firstchar} = 'x';
}

$anz = 0;

open(NEUOUT, ">$dateiout");
open(NEUEOUT, ">$Edateiout");
print NEUOUT "$preindex<HR><PRE><H3>\n";
print NEUEOUT "$Epreindex<HR><PRE><H3>\n";
foreach $sort ( sort namecompare keys(%chars) ) {
   print NEUOUT "<A HREF=#$sort target=\"_self\">$sort</A>  ";
   print NEUEOUT "<A HREF=#$sort target=\"_self\">$sort</A>  ";
}
print NEUOUT "\n\n</H3></PRE><HR>\n";
print NEUEOUT "\n\n</H3></PRE><HR>\n";

$char = '@';
foreach $sort ( sort namecompare keys(%wref) ) {
   $firstchar = substr($sort, 0, 1);
   $firstchar =~ tr/a-z/A-Z/;
   #print "Sort :`$sort' , Char :$firstchar\n";
   if ($firstchar ne $char) {
      if ($char ne '@') {
         print NEUOUT "</UL><P>\n\n";
         print NEUEOUT "</UL><P>\n\n";
      }
      $char = $firstchar;
      #print NEUOUT "<H3><A NAME=$char>$char</A></H3><UL>\n";
      #print NEUEOUT "<H3><A NAME=$char>$char</A></H3><UL>\n";
      print NEUOUT "<H3><A NAME=$char TARGET=_self>$char</A></H3><UL>\n";
      print NEUEOUT "<H3><A NAME=$char TARGET=_self>$char</A></H3><UL>\n";
   }
   $anz++;
   # print $wname{$sort},"\n";
   @words = split(/[.\s]/, $wname{$sort});
   $word1 = $words[$#words];
   if ( $#words eq 0 ){
       $word2 = "";
   } else {
      $word2 = ", $words[0]";
   }
   if ( $#words eq 2 ) {
       $word2 = $word2." ".$words[1];
   }
   # print "Ausgabe: ",$#words," ",$word1,$word2,"\n";
   # print NEUOUT "<LI><A HREF=$wref{$sort}>$wname{$sort}</A>\n";
   print NEUOUT "<LI><A HREF=$wref{$sort}>$word1$word2</A>\n";
   # print NEUEOUT "<LI><A HREF=$ewref{$sort}>$wname{$sort}</A>\n";
   print NEUEOUT "<LI><A HREF=$ewref{$sort}>$word1$word2</A>\n";
}
if ($char ne '@') {
   print NEUOUT "</UL><P>\n\n";
   print NEUEOUT "</UL><P>\n\n";
}
print NEUOUT "<HR>Anzahl: $anz\n$postindex";
print NEUEOUT "<HR>Count: $anz\n$Epostindex";

close (NEUOUT);
close (NEUEOUT);

exit(0);

sub namecompare {

$vara = $a; $vara =~ tr/a-z/A-Z/;
   $varb = $b; $varb =~ tr/a-z/A-Z/;
   $vara cmp $varb;
}