#!/usr/bin/perl
# manual_save.cgi
# Write out the config file

require './procmail-lib.pl';
&ReadParseMime();

defined($in{'data'}) || &error($text{'manual_edata'});
$in{'data'} =~ s/\r//g;
&lock_file($procmailrc);
open(FILE, ">$procmailrc");
print FILE $in{'data'};
close(FILE);
&unlock_file($procmailrc);
&webmin_log("manual");
&redirect("");

