obrisane nepotrebne datoteke od zadnjeg builda
[ossec-hids.git] / src / win32 / unix2dos.pl
1 #!/usr/bin/perl
2
3 my $file;
4
5 if(@ARGV < 1)
6 {
7     die "$0: <file>\n";
8 }
9
10 $file = shift (@ARGV);
11
12 # File
13 open(FILE,"<$file")|| die "Unable to open file: $file\n";
14
15 while(<FILE>)
16 {
17     my $line = $_;
18
19     $line =~ s/\n/\r\n/;
20     print $line;
21 }