Hits : 1865


Script σε tcl για να φτιάχνω dns records για πολλαπλά και συνεχόμενα classes


#!/usr/bin/tclsh
set class_b "10.10" ;
set sub 0 ;
set subnets 256 ;
set plithos 256 ;
set start_ip 0 ;
set name "dnsname" ;
set name_start 1 ;
 
for { set subnet 0 } { $subnet < $subnets } { incr subnet } {
  for { set ip $start_ip } { $ip < $plithos } { incr ip } {
        set prefix "";
        if { $name_start < 1000 } { set prefix 0 ; }
        if { $name_start < 100 } { set prefix 00 ; }
        if { $name_start < 10 } { set prefix 000 ; }
        puts "$name-$prefix$name_start\tIN\tA\t$class_b.$sub.$ip"
    incr name_start
  }
  incr sub }

Για να δεις το παραπάνω script πως είναι γραμμένο σε perl:
https://balaskas.gr/wk/dslperl


Για να δεις το παραπάνω script πως είναι γραμμένο σε python:
https://balaskas.gr/wk/dslpython


Για να δεις το παραπάνω script πως είναι γραμμένο σε php:
https://balaskas.gr/wk/dslphp


Για να δεις το παραπάνω script πως είναι γραμμένο σε ruby:
https://balaskas.gr/wk/dslruby


Για να δεις το παραπάνω script πως είναι γραμμένο σε bash:
https://balaskas.gr/wk/dslbash