blob: c0c842a91d7910cf9a5468c120f037685dc1060d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
#! /usr/bin/perl
use strict;
use warnings;
my $switchtype = "ex2200";
print "begin;\n";
print "delete from temppoll;\n";
print "delete from dhcp;\n";
print "delete from switches where switchtype = '$switchtype';\n";
#print "SELECT pg_catalog.setval('switches_switch_seq', 1, false);\n";
print "SELECT pg_catalog.setval('polls_poll_seq', 1, false);\n";
my %ip;
my $i = 1;
while (<STDIN>) {
chomp;
my @info = split(/ /);
if (scalar @info < 5) {
die "Unknown line: $_";
}
my $name = $info[0];
my $range = $info[1];
my $ip = $info[3];
$ip =~ s/\/.*$//;
print "insert into switches (ip, sysname, switchtype) values ('$ip', '$name', '$switchtype');\n";
print "insert into dhcp select switch, '$range' from switches where sysname = '$name';\n";
}
close HOSTS;
print "end;\n";
|
