[ERLEDIGT] Massenhaft Domains anlegen?

[NoFutureKid]

Das wage ich zu bezweifeln, nix desto trotz:

Code:

#!/usr/bin/perl

$user = 33;

open(DATEI,"domains.txt");        # oeffne die Datei

while (<DATEI>) {                # solange noch Daten existieren
  chop;                          # schneide LF ab
  $domainname=$_;
#  print "('$domainname', 0, 0, " . $user++ . ", 2, 1200423864, 0, 0, 0, 0, 0, 0, 'toadd', 0, 0, 1, 0, 0, 'yes', 'no'),\n"
  print "(" . $user++ .", '$domainname', '3136407c963c53b2f1413435689a81d7', 'user', 1200113804, '', 2, '', '', '', '', '', '', '', 'server@you-it.de', '', '', '', '', NULL, NULL),\n"
}

close(DATEI);

Da war danach noch ein wenig Handarbeit nötig