Needed some cleanup.
[usit-rt.git] / local / bin / rt-get-messages-test
CommitLineData
84fb5b46
MKG
1#!/usr/bin/perl
2
3use strict;
4use warnings;
5use LWP::Simple;
6
7my $baseurl = "http://www.uio.no/tjenester/it/applikasjoner/rt/utvikling-drift/rt-info/";
8my $msg_dir = "/www/var/rt-info/";
9
10my $msg = get($baseurl."messages-test.txt");
11if ($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");
19if ($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}