One Hat Cyber Team

Your IP: 216.73.216.133
Server IP: 185.119.109.197
Server: Linux managedhosting.chostar.me 5.15.0-160-generic #170-Ubuntu SMP Wed Oct 1 10:06:56 UTC 2025 x86_64
Server Software: Apache
PHP Version: 8.1.33
Buat File | Buat Folder

View File Name : cgi_args.pl

do 'fetchmail-lib.pl';

sub cgi_args
{
my ($cgi) = @_;
if ($cgi eq 'edit_poll.cgi' || $cgi eq 'edit_global.cgi') {
	my ($file, $user, @conf);
	if ($config{'config_file'}) {
		# Just one file
		$file = $config{'config_file'};
		}
	else {
		# Many users, pick first one with a config
		setpwent();
		while(@uinfo = getpwent()) {
			my $ufile = "$uinfo[7]/.fetchmailrc";
			if (-s $ufile) {
				@conf = grep { $_->{'poll'} }
					     &parse_config_file($ufile);
				if (@conf) {
					$file = $ufile;
					$user = $uinfo[0];
					last;
					}
				}
			}
		}
	return 'none' if (!$file);
	return 'file='.&urlize($file).'&idx='.$conf[0]->{'index'}.
	       '&user='.&urlize($user);
	}
return undef;
}