Permalink
Browse files

[50] Removed useless file handlers

Signed-off-by: DoesntMatter <jaed1@gmx.net>
  • Loading branch information...
DoesntMatter committed Jan 28, 2012
1 parent 3c5518a commit 52571d990cf1c8ad1c71009354e001bf9fa012ec
Showing with 1 addition and 11 deletions.
  1. +0 −6 libs/HTML.pm
  2. +1 −5 libs/RSS.pm
View
@@ -66,8 +66,6 @@ sub CreateHTML {
my $weblink = "https://github.com";
my $commit;
open(FILE, ">$file");
print FILE "<?xml version=\"1.0\" encoding=\"UTF-8\"?>
<!DOCTYPE html
@@ -78,9 +76,7 @@ sub CreateHTML {
<title>$html{'title'}</title>
</head>
<body>";
close(FILE);
open(FILE, ">>$file");
for my $i ( 0 .. $#items ) {
# $items[$i][0] Blank
# $items[$i][1] Commit-Hash
@@ -102,9 +98,7 @@ sub CreateHTML {
<p>$items[$i][5]</p>
<p>$items[$i][6]</p>";
}
close(FILE);
open(FILE, ">>$file");
print FILE "</body>
</html>";
close(FILE);
View
@@ -73,8 +73,8 @@ sub CreateRSS {
my $itemlink = $rss{'link'};
my $commit;
# Header
open(FILE, ">$file");
# Header
print FILE "<?xml version=\"1.0\" encoding=\"utf-8\"?>
<rss version=\"2.0\">
<channel>
@@ -83,10 +83,8 @@ sub CreateRSS {
<link>$itemlink</link>
<description>$rss{'desc'}</description>
";
close(FILE);
# Content
open(FILE, ">>$file");
for my $i ( 0 .. $#items ) {
# $items[$i][0] Blank
# $items[$i][1] Commit-Hash
@@ -116,10 +114,8 @@ $items[$i][6]
]]></description>
</item>";
}
close(FILE);
# Footer
open(FILE, ">>$file");
print FILE "\n
</channel>
</rss>";

0 comments on commit 52571d9

Please sign in to comment.