Needed some cleanup.
[usit-rt.git] / local / bin / rt-get-messages-test
1 #!/usr/bin/perl
2
3 use strict;
4 use warnings;
5 use LWP::Simple;
6
7 my $baseurl = "http://www.uio.no/tjenester/it/applikasjoner/rt/utvikling-drift/rt-info/";
8 my $msg_dir = "/www/var/rt-info/";
9
10 my $msg = get($baseurl."messages-test.txt");
11 if ($msg) {
12         open F, ,">", $msg_dir."messages.txt";
13         if ($msg =~ /DO NOT SHOW/) { print F "" } 
14         else {print F $msg }
15         close F;
16 }
17
18 $msg = get($baseurl."warn-test.txt");
19 if ($msg) {
20         open F, ">",  $msg_dir."warn.txt";
21         if ($msg =~ /DO NOT SHOW/) { print F "" }
22         else { print F $msg }
23         close F;
24 }