---
title: "Nedräkningsscript till IRSSI"
type: "forum-thread"
url: "https://www.webforum.nu/amne/programmering/135991-nedräkningsscript-till-irssi"
topic: "Programmering"
topic_url: "https://www.webforum.nu/amne/programmering"
author: "silfver"
published: "2005-10-19T09:28:10.000Z"
updated: "2005-10-21T17:51:11.000Z"
replies: 1
views: 270
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/programmering/135991-nedräkningsscript-till-irssi"
---

# Nedräkningsscript till IRSSI

## #1 — silfver, 2005-10-19T09:28Z

Jag har ett script till irssi som ser ut så här:

```
Irssi::settings_add_str('misc','countdown_target','2005 00 00 00 00 00');
Irssi::settings_add_str('misc','countdown_message','Tid kvar:');
Irssi::settings_add_str('misc','countdown_command','!dh');
Irssi::settings_add_str('misc','countdown_chan','#chan');

sub sig_public {
	my ($server, $msg, $nick, $address, $target) = @_;
	my $ctarget = Irssi::settings_get_str("countdown_target");
	my $cinfo = Irssi::settings_get_str("countdown_message");
	my $ccmd = Irssi::settings_get_str("countdown_command");
	my $cchan = Irssi::settings_get_str("countdown_chan");
	if ($msg eq $ccmd and lc($target) eq lc($cchan))
	{
		if ($ctarget =~ /^(\d+?) (\d+?) (\d+?) (\d+?) (\d+?) (\d+?)$/)
		{
			my $sec = timelocal($6,$5,$4,$3,$2-1,$1-1900);
			$sec -= time;
			my $min = ($sec/60)-(($sec%60)/60);
			my $hour = ($min/60)-(($min%60)/60);
			my $day = ($hour/24)-(($hour%24)/24);
			$sec = ($sec%60);
			$min = ($min%60);
			$hour = ($hour%24);
			if ($day) { $cinfo = $cinfo." $day dagar,"; }
			if ($hour) { $cinfo = $cinfo." $hour timmar,"; }
			if ($min) { $cinfo = $cinfo." $min minuter och"; }
			if ($sec) { $cinfo = $cinfo." $sec sekunder."; }
			$server->command("msg $target $cinfo");
		} else
		{
			Irssi::print("Error: countdown.pl misc.countdown_target sould be format <year> <month> <day> <hour> <minute> <second>");
		}
	}
}

Irssi::signal_add_last('message public', 'sig_public');
Irssi::print("Script : countdown.pl loaded");
```

 Men det fungerar inte så som jag vill ha det. Till exempel så kan jag själv inte trigga scriptet genom att skriva !dh.

Jag vill i stället göra ett nytt script som räknar ner, men när jag själv skriver /valfritt.

Nån som är haj på såna här script? Ingen annan ska alltså kunna "trigga" scriptet förutom jag själv.

Permalänk: https://www.webforum.nu/p/135991

## #2 — silfver, 2005-10-21T17:51Z

Ingen?

Permalänk: https://www.webforum.nu/p/1690523

---

Tråden på webben: https://www.webforum.nu/amne/programmering/135991-nedräkningsscript-till-irssi