fixed build with bundled OpenSSL
[public/netxms.git] / tools / generate_guids.pl
CommitLineData
50963ced
VK
1#!/usr/bin/perl
2
3use Data::UUID;
4
5while(<STDIN>)
6{
7 chomp;
8 $line = $_;
9
10 if ($line =~ /^(.*)____guid____(.*)$/)
11 {
12 $gen = Data::UUID->new;
13 $guid = $gen->create();
14 print $1 . $gen->to_string($guid) . $2 . "\n";
15 }
16 else
17 {
18 print $line . "\n";
19 }
20}